OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

module.c (load_generic_interfaces): Move call to find_symbol() so that only occurs if actually needed.

Browse Source 
2018-08-22  Andrew Benson  <abensonca@gmail.com>

        * module.c (load_generic_interfaces): Move call to find_symbol()
        so that only occurs if actually needed.

From-SVN: r263784
This commit is contained in:
Andrew Benson 2018-08-22 17:47:53 +00:00 committed by Andrew Benson
parent fe26fd66b0
commit 66f32b0e21
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2018-08-22 Andrew Benson <abensonca@gmail.com>
* module.c (load_generic_interfaces): Move call to find_symbol()
so that only occurs if actually needed.
2018-08-22 Janus Weil <janus@gcc.gnu.org> 2018-08-22 Janus Weil <janus@gcc.gnu.org>
PR fortran/86888 PR fortran/86888

6
gcc/fortran/module.c
View File

@ -4559,9 +4559,6 @@ load_generic_interfaces (void)
/* Decide if we need to load this one or not. */ /* Decide if we need to load this one or not. */
p = find_use_name_n (name, &i, false); p = find_use_name_n (name, &i, false);
st = find_symbol (gfc_current_ns->sym_root,
name, module_name, 1);
if (!p || gfc_find_symbol (p, NULL, 0, &sym)) if (!p || gfc_find_symbol (p, NULL, 0, &sym))
{ {
/* Skip the specific names for these cases. */ /* Skip the specific names for these cases. */
@ -4570,6 +4567,9 @@ load_generic_interfaces (void)
continue; continue;
} }
st = find_symbol (gfc_current_ns->sym_root,
name, module_name, 1);
/* If the symbol exists already and is being USEd without being /* If the symbol exists already and is being USEd without being
in an ONLY clause, do not load a new symtree(11.3.2). */ in an ONLY clause, do not load a new symtree(11.3.2). */
if (!only_flag && st) if (!only_flag && st)