[FORTRAN,17/29] Use stringpool for iso_fortran_env

Message ID	20180905145732.404-18-rep.dot.nop@gmail.com
State	New
Headers	show Return-Path: <gcc-patches-return-485246-incoming=patchwork.ozlabs.org@gcc.gnu.org> DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; q=dns; s=default; b=lYL 0SHLM8FmBgIc1BH4S96Ni7Ru3vw2KMmzi+6cVMk+h+bSPnwFgig4aojK+HTtHuyv /8Jnn/0D/dYlUTQ5osaORq7oByuBKKd1L7aHPXNmFYvITkbx83latjHinzbv2gUS 8C3FzLMgIm33qKhj6MOy5quNctbHLhnnDW9EfNbE= Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk Sender: gcc-patches-owner@gcc.gnu.org From: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com> To: fortran@gcc.gnu.org Cc: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>, gcc-patches@gcc.gnu.org Subject: [PATCH,FORTRAN 17/29] Use stringpool for iso_fortran_env Date: Wed, 5 Sep 2018 14:57:20 +0000 Message-Id: <20180905145732.404-18-rep.dot.nop@gmail.com> In-Reply-To: <CAC1BbcSJmqmQW7Zuv+6UQu0znbsVm85i3gP_y4Dny3czMCANgA@mail.gmail.com> References: <CAC1BbcSJmqmQW7Zuv+6UQu0znbsVm85i3gP_y4Dny3czMCANgA@mail.gmail.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit
Series	[FORTRAN,01/29] gdbinit: break on gfc_internal_error \| expand [FORTRAN,01/29] gdbinit: break on gfc_internal_error [FORTRAN,02/29] Use stringpool for gfc_match_defined_op_name() [FORTRAN,03/29] Use stringpool for gfc_get_name [FORTRAN,04/29] Use stringpool for gfc_match_generic_spec [FORTRAN,05/29] Use stringpool for gfc_match("%n") [FORTRAN,06/29] Use stringpool for association_list [FORTRAN,07/29] Use stringpool for some gfc_code2string return values [FORTRAN,08/29] Add uop/name helpers [FORTRAN,09/29] Use stringpool for modules [FORTRAN,10/29] Do not copy name for check_function_name [FORTRAN,11/29] Do pointer comparison instead of strcmp [FORTRAN,12/29] Use stringpool for remaining names [FORTRAN,13/29] Use stringpool for intrinsics and common [FORTRAN,14/29] Fix write_omp_udr for user-operator REDUCTIONs [FORTRAN,15/29] Use stringpool for iso_c_binding module names [FORTRAN,16/29] Do pointer comparison in iso_c_binding_module [FORTRAN,17/29] Use stringpool for iso_fortran_env [FORTRAN,18/29] Use stringpool for charkind [FORTRAN,19/29] Use stringpool and unified uppercase handling for types [FORTRAN,20/29] Use stringpool in class et al [FORTRAN,21/29] Use stringpool for module tbp [FORTRAN,22/29] Use stringpool in class and procedure-pointer result [FORTRAN,23/29] Use stringpool for module binding_label [FORTRAN,24/29] Use stringpool for intrinsic functions [FORTRAN,25/29] Use stringpool on loading module symbols [FORTRAN,26/29] Use stringpool for mangled common names [FORTRAN,27/29] Use stringpool for OMP clause reduction code [FORTRAN,28/29] Free type-bound procedure structs [FORTRAN,29/29] PR87103: Remove max symbol length check from gfc_new_symbol

Message ID

20180905145732.404-18-rep.dot.nop@gmail.com

State

New

Headers

DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id
	:list-unsubscribe:list-archive:list-post:list-help:sender:from
	:to:cc:subject:date:message-id:in-reply-to:references
	:mime-version:content-transfer-encoding; q=dns; s=default; b=lYL
	0SHLM8FmBgIc1BH4S96Ni7Ru3vw2KMmzi+6cVMk+h+bSPnwFgig4aojK+HTtHuyv
	/8Jnn/0D/dYlUTQ5osaORq7oByuBKKd1L7aHPXNmFYvITkbx83latjHinzbv2gUS
	8C3FzLMgIm33qKhj6MOy5quNctbHLhnnDW9EfNbE=
Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
Sender: gcc-patches-owner@gcc.gnu.org
From: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>
To: fortran@gcc.gnu.org
Cc: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>,	gcc-patches@gcc.gnu.org
Subject: [PATCH,FORTRAN 17/29] Use stringpool for iso_fortran_env
Date: Wed,  5 Sep 2018 14:57:20 +0000
Message-Id: <20180905145732.404-18-rep.dot.nop@gmail.com>
In-Reply-To: <CAC1BbcSJmqmQW7Zuv+6UQu0znbsVm85i3gP_y4Dny3czMCANgA@mail.gmail.com>
References: <CAC1BbcSJmqmQW7Zuv+6UQu0znbsVm85i3gP_y4Dny3czMCANgA@mail.gmail.com>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit

Series

[FORTRAN,01/29] gdbinit: break on gfc_internal_error | expand

Commit Message

Bernhard Reutner-Fischer Sept. 5, 2018, 2:57 p.m. UTC

From: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>

gcc/fortran/ChangeLog:

2017-11-23  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>

	* module.c (use_iso_fortran_env_module): Use stringpool and use
	pointer comparison instead of strcmp.
---
 gcc/fortran/module.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index d7bc7fbef1c..3b644234921 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -6678,7 +6678,7 @@  read_module_to_tmpbuf ()
 static void
 use_iso_fortran_env_module (void)
 {
-  static char mod[] = "iso_fortran_env";
+  const char *mod = gfc_get_string ("%s", "iso_fortran_env");
   gfc_use_rename *u;
   gfc_symbol *mod_sym;
   gfc_symtree *mod_symtree;
@@ -6686,11 +6686,11 @@  use_iso_fortran_env_module (void)
   int i, j;
 
   intmod_sym symbol[] = {
-#define NAMED_INTCST(a,b,c,d) { a, b, 0, d },
-#define NAMED_KINDARRAY(a,b,c,d) { a, b, 0, d },
-#define NAMED_DERIVED_TYPE(a,b,c,d) { a, b, 0, d },
-#define NAMED_FUNCTION(a,b,c,d) { a, b, c, d },
-#define NAMED_SUBROUTINE(a,b,c,d) { a, b, c, d },
+#define NAMED_INTCST(a,b,c,d) { a, gfc_get_string ("%s", b), 0, d },
+#define NAMED_KINDARRAY(a,b,c,d) { a, gfc_get_string ("%s", b), 0, d },
+#define NAMED_DERIVED_TYPE(a,b,c,d) { a, gfc_get_string ("%s", b), 0, d },
+#define NAMED_FUNCTION(a,b,c,d) { a, gfc_get_string ("%s", b), c, d },
+#define NAMED_SUBROUTINE(a,b,c,d) { a, gfc_get_string ("%s", b), c, d },
 #include "iso-fortran-env.def"
     { ISOFORTRANENV_INVALID, NULL, -1234, 0 } };
 
@@ -6708,7 +6708,7 @@  use_iso_fortran_env_module (void)
 
       mod_sym->attr.flavor = FL_MODULE;
       mod_sym->attr.intrinsic = 1;
-      mod_sym->module = gfc_get_string ("%s", mod);
+      mod_sym->module = mod;
       mod_sym->from_intmod = INTMOD_ISO_FORTRAN_ENV;
     }
   else
@@ -6723,7 +6723,7 @@  use_iso_fortran_env_module (void)
       bool found = false;
       for (u = gfc_rename_list; u; u = u->next)
 	{
-	  if (strcmp (symbol[i].name, u->use_name) == 0)
+	  if (symbol[i].name == u->use_name)
 	    {
 	      found = true;
 	      u->found = 1;

[FORTRAN,17/29] Use stringpool for iso_fortran_env

Commit Message

Patch