[FORTRAN,06/29] Use stringpool for association_list

Message ID	20180905145732.404-7-rep.dot.nop@gmail.com
State	New
Headers	show Return-Path: <gcc-patches-return-485224-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=bMW seBnPfrGlkkJe11ANZWf0I0G0rg9+oAjs379jvBgQcXURTpnZAxtJH7edG6PLCjg msZBwtCPZXlgHPKbXwnM9VypOzrzZqOZ0xpSuTfSeDCZQxA7z7NyTjnfG6aEcVQF I6p6Qkezo72/76nC+kFW2JlagCJ4aJLKPp87SBIg= 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 06/29] Use stringpool for association_list Date: Wed, 5 Sep 2018 14:57:09 +0000 Message-Id: <20180905145732.404-7-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-7-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=bMW
	seBnPfrGlkkJe11ANZWf0I0G0rg9+oAjs379jvBgQcXURTpnZAxtJH7edG6PLCjg
	msZBwtCPZXlgHPKbXwnM9VypOzrzZqOZ0xpSuTfSeDCZQxA7z7NyTjnfG6aEcVQF
	I6p6Qkezo72/76nC+kFW2JlagCJ4aJLKPp87SBIg=
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 06/29] Use stringpool for association_list
Date: Wed,  5 Sep 2018 14:57:09 +0000
Message-Id: <20180905145732.404-7-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>

2017-10-26  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>

	* gfortran.h (struct gfc_association_list): Change name to
	pointer.
	* match.c (gfc_match_associate): Adjust.
---
 gcc/fortran/gfortran.h | 2 +-
 gcc/fortran/match.c    | 6 ++----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 774a6de6168..ff42b39b453 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -2482,7 +2482,7 @@  typedef struct gfc_association_list
   /* True when the rank of the target expression is guessed during parsing.  */
   unsigned rankguessed:1;
 
-  char name[GFC_MAX_SYMBOL_LEN + 1];
+  const char *name;
   gfc_symtree *st; /* Symtree corresponding to name.  */
   locus where;
 
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index 1b03e7251a5..38827ed4637 100644
--- a/gcc/fortran/match.c
+++ b/gcc/fortran/match.c
@@ -1891,8 +1891,7 @@  gfc_match_associate (void)
       gfc_association_list* a;
 
       /* Match the next association.  */
-      const char *name_hack = NULL;
-      if (gfc_match (" %n =>", &name_hack) != MATCH_YES)
+      if (gfc_match (" %n =>", &newAssoc->name) != MATCH_YES)
 	{
 	  gfc_error ("Expected association at %C");
 	  goto assocListError;
@@ -1909,12 +1908,11 @@  gfc_match_associate (void)
 	    }
 	  gfc_matching_procptr_assignment = 0;
 	}
-      strcpy (newAssoc->name, name_hack);
       newAssoc->where = gfc_current_locus;
 
       /* Check that the current name is not yet in the list.  */
       for (a = new_st.ext.block.assoc; a; a = a->next)
-	if (!strcmp (a->name, newAssoc->name))
+	if (a->name == newAssoc->name)
 	  {
 	    gfc_error ("Duplicate name %qs in association at %C",
 		       newAssoc->name);

[FORTRAN,06/29] Use stringpool for association_list

Commit Message

Patch