Skip to content

R
riscv-gcc-1
Commit eb7f48f9 by Richard Henderson Committed by Richard Henderson
Options

com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL symbols in the global binding level. 

        * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL
        symbols in the global binding level.

From-SVN: r67920
parent 1f2cd130
Showing with 7 additions and 2 deletions
gcc/f/ChangeLog
2003-06-13 Richard Henderson <rth@redhat.com>
* com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL
symbols in the global binding level.
Sun Jun 8 15:42:09 2003 Neil Booth <neil@daikokuya.co.uk> Sun Jun 8 15:42:09 2003 Neil Booth <neil@daikokuya.co.uk>
* Make-lang.in (F77_OBJS, f77.mostlyclean, f/com.o): Update. * Make-lang.in (F77_OBJS, f77.mostlyclean, f/com.o): Update.
......
gcc/f/com.c
...@@ -8078,8 +8078,8 @@ ffecom_sym_transform_ (ffesymbol s) ...@@ -8078,8 +8078,8 @@ ffecom_sym_transform_ (ffesymbol s)
DECL_EXTERNAL (t) = 1; DECL_EXTERNAL (t) = 1;
TREE_PUBLIC (t) = 1; TREE_PUBLIC (t) = 1;
t = start_decl (t, FALSE); t = start_decl (t, TRUE);
finish_decl (t, NULL_TREE, FALSE); finish_decl (t, NULL_TREE, TRUE);
if ((g != NULL) if ((g != NULL)
&& ((ffeglobal_type (g) == FFEGLOBAL_typeSUBR) && ((ffeglobal_type (g) == FFEGLOBAL_typeSUBR)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment