diff options
| author | Mark Mitchell <mark@codesourcery.com> | 2001-01-15 16:52:49 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2001-01-15 16:52:49 +0000 |
| commit | 611081b2882d1928df1d9c09becabe6e645ab424 (patch) | |
| tree | 0f9df36c52eba621608324f5297dbfab66401863 | |
| parent | 9f1630a9884cb8a716bf6c704ad13b33fe53ca58 (diff) | |
| download | gcc-611081b2882d1928df1d9c09becabe6e645ab424.zip gcc-611081b2882d1928df1d9c09becabe6e645ab424.tar.gz gcc-611081b2882d1928df1d9c09becabe6e645ab424.tar.bz2 | |
com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT label to current_function_decl.
2001-01-15 Mark Mitchell <mark@codesourcery.com>
* com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT
label to current_function_decl.
From-SVN: r39042
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index eb154fd..7fa1853 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2001-01-15 Mark Mitchell <mark@codesourcery.com> + + * com.c (ffecom_lookup_label): Set DECL_CONTEXT for FORMAT + label to current_function_decl. + Fri Jan 12 17:21:33 2001 Joseph S. Myers <jsm28@cam.ac.uk> * g77spec.c (lang_specific_driver): Update copyright year to 2001. diff --git a/gcc/f/com.c b/gcc/f/com.c index 719df1f..67b09b3c 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -12264,7 +12264,7 @@ ffecom_lookup_label (ffelab label) 1, 0)); TREE_CONSTANT (glabel) = 1; TREE_STATIC (glabel) = 1; - DECL_CONTEXT (glabel) = 0; + DECL_CONTEXT (glabel) = current_function_decl; DECL_INITIAL (glabel) = NULL; make_decl_rtl (glabel, NULL); expand_decl (glabel); |