diff options
| author | Richard Henderson <rth@redhat.com> | 2003-06-13 16:28:49 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2003-06-13 16:28:49 -0700 |
| commit | eb7f48f94bed260eadb2f6edaadacb825c31f1b8 (patch) | |
| tree | 21d1e4b9625a3747082e7ce3ca1f1de50badd316 /gcc/f/com.c | |
| parent | 1f2cd13074d447dbfb251208fbfa2f661de94cab (diff) | |
| download | gcc-eb7f48f94bed260eadb2f6edaadacb825c31f1b8.zip gcc-eb7f48f94bed260eadb2f6edaadacb825c31f1b8.tar.gz gcc-eb7f48f94bed260eadb2f6edaadacb825c31f1b8.tar.bz2 | |
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
Diffstat (limited to 'gcc/f/com.c')
| -rw-r--r-- | gcc/f/com.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index ce821c7..4de5d6c 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -8078,8 +8078,8 @@ ffecom_sym_transform_ (ffesymbol s) DECL_EXTERNAL (t) = 1; TREE_PUBLIC (t) = 1; - t = start_decl (t, FALSE); - finish_decl (t, NULL_TREE, FALSE); + t = start_decl (t, TRUE); + finish_decl (t, NULL_TREE, TRUE); if ((g != NULL) && ((ffeglobal_type (g) == FFEGLOBAL_typeSUBR) |