From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 69813 invoked by alias); 5 Sep 2018 14:58:05 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 68920 invoked by uid 89); 5 Sep 2018 14:57:56 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-26.8 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=UD:cl, 37876, HContent-Transfer-Encoding:8bit X-HELO: mail-wm0-f51.google.com Received: from mail-wm0-f51.google.com (HELO mail-wm0-f51.google.com) (74.125.82.51) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 05 Sep 2018 14:57:55 +0000 Received: by mail-wm0-f51.google.com with SMTP id j25-v6so14208540wmc.1; Wed, 05 Sep 2018 07:57:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=WGLkYYRVunmlr4LdFxBvq1dqL24CGCTPADXyhoKRcbw=; b=ghoMJ/DfoPJcVlsCG3GinXLsvQMtoLMQwaWW5vVyNYfUnlpMCYgWDwyY81FNFCKR0N 51gg+UtaS7TjROUHrwibDJxWC4MWrt/8O+wFoC92z2WOsiGfV5BS89DnyoTAEl2WRGT+ V/6Y0/owGaxKFqq8/MBVxWDPz/Iz7PnZ5dV+Np4JV2zo2XlLfe+AsD1jNglWgO7wyEsF qPs46e1daFhT1Ja0ehv/4Z9HKIxWvGDF5ITJi6g+66cW+Qd7ZdofKeSTT5zvkjYlDyZe VCYf2jSV70CZjeUW1Iy3luYbbfZe+IVC5d73OHn+lmyd6mcvr2Ytnzqj2d/nbnj/SJl0 vtCQ== Return-Path: Received: from s46.loc (91-119-125-11.dsl.dynamic.surfer.at. [91.119.125.11]) by smtp.gmail.com with ESMTPSA id u7-v6sm3274539wmd.46.2018.09.05.07.57.48 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 05 Sep 2018 07:57:51 -0700 (PDT) Received: from cow by s46.loc with local (Exim 4.91) (envelope-from ) id 1fxZFb-00008O-6M; Wed, 05 Sep 2018 14:57:47 +0000 From: Bernhard Reutner-Fischer To: fortran@gcc.gnu.org Cc: Bernhard Reutner-Fischer , gcc-patches@gcc.gnu.org Subject: [PATCH,FORTRAN 24/29] Use stringpool for intrinsic functions Date: Wed, 05 Sep 2018 14:58:00 -0000 Message-Id: <20180905145732.404-25-rep.dot.nop@gmail.com> In-Reply-To: References: MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-IsSubscribed: yes X-SW-Source: 2018-09/txt/msg00043.txt.bz2 From: Bernhard Reutner-Fischer gcc/fortran/ChangeLog: 2017-11-29 Bernhard Reutner-Fischer * iresolve.c (gfc_resolve_ctime_sub): Use stringpool for intrinsic subroutine name. (gfc_resolve_fdate_sub): Likewise. (gfc_resolve_gerror): Likewise. (gfc_resolve_getlog): Likewise. (gfc_resolve_perror): Likewise. (gfc_resolve_fseek_sub): Likewise. (gfc_resolve_ttynam_sub): Likewise. --- gcc/fortran/iresolve.c | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index f22e0da54c9..61663fec7e5 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -3787,6 +3787,7 @@ gfc_resolve_flush (gfc_code *c) void gfc_resolve_ctime_sub (gfc_code *c) { + const char *name; gfc_typespec ts; gfc_clear_ts (&ts); @@ -3800,28 +3801,32 @@ gfc_resolve_ctime_sub (gfc_code *c) gfc_convert_type (c->ext.actual->expr, &ts, 2); } - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("ctime_sub")); + name = gfc_get_string (PREFIX ("ctime_sub")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } void gfc_resolve_fdate_sub (gfc_code *c) { - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("fdate_sub")); + const char *name = gfc_get_string (PREFIX ("fdate_sub")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } void gfc_resolve_gerror (gfc_code *c) { - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("gerror")); + const char *name = gfc_get_string (PREFIX ("gerror")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } void gfc_resolve_getlog (gfc_code *c) { - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("getlog")); + const char *name = gfc_get_string (PREFIX ("getlog")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } @@ -3844,7 +3849,8 @@ gfc_resolve_hostnm_sub (gfc_code *c) void gfc_resolve_perror (gfc_code *c) { - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("perror_sub")); + const char *name = gfc_get_string (PREFIX ("perror_sub")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } /* Resolve the STAT and FSTAT intrinsic subroutines. */ @@ -3976,6 +3982,7 @@ gfc_resolve_fput_sub (gfc_code *c) void gfc_resolve_fseek_sub (gfc_code *c) { + const char *name; gfc_expr *unit; gfc_expr *offset; gfc_expr *whence; @@ -4012,8 +4019,8 @@ gfc_resolve_fseek_sub (gfc_code *c) ts.u.cl = NULL; gfc_convert_type (whence, &ts, 2); } - - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("fseek_sub")); + name = gfc_get_string (PREFIX ("fseek_sub")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } void @@ -4045,6 +4052,7 @@ gfc_resolve_ftell_sub (gfc_code *c) void gfc_resolve_ttynam_sub (gfc_code *c) { + const char *name = gfc_get_string (PREFIX ("ttynam_sub")); gfc_typespec ts; gfc_clear_ts (&ts); @@ -4057,7 +4065,7 @@ gfc_resolve_ttynam_sub (gfc_code *c) gfc_convert_type (c->ext.actual->expr, &ts, 2); } - c->resolved_sym = gfc_get_intrinsic_sub_symbol (PREFIX ("ttynam_sub")); + c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); } -- 2.19.0.rc1