diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-04-18 18:58:04 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-04-18 14:58:04 -0400 |
| commit | d50108c7334b157d4c5d45c5074d94475a4c8c35 (patch) | |
| tree | 126831d572da7d0932f35c63f7619cdaeeeebc69 | |
| parent | 6b84a1ba300f6eaf7ffeb49f6f8b332d643b30a5 (diff) | |
| download | gcc-d50108c7334b157d4c5d45c5074d94475a4c8c35.zip gcc-d50108c7334b157d4c5d45c5074d94475a4c8c35.tar.gz gcc-d50108c7334b157d4c5d45c5074d94475a4c8c35.tar.bz2 | |
fix crashes on I/O statements involving COMMON variables
From-SVN: r26540
| -rw-r--r-- | gcc/f/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 | ||||
| -rw-r--r-- | gcc/f/version.c | 2 |
3 files changed, 9 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 29caa6e..74e0684 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +Sun Apr 18 21:53:58 1999 Craig Burley <craig@jcb-sc.com> + + * com.c (ffecom_sym_transform_): COMMON and EQUIVALENCE + variables have constant addresses (EQUIVALENCE only if + containing aggregate is static). + Sat Apr 17 16:55:59 1999 Craig Burley <craig@jcb-sc.com> * bugs.texi, ffe.texi, g77.texi, g77install.texi, news.texi: diff --git a/gcc/f/com.c b/gcc/f/com.c index 1d7676d..ad85268 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -7414,6 +7414,7 @@ ffecom_sym_transform_ (ffesymbol s) build_int_2 (offset, 0)); t = convert (build_pointer_type (type), t); + TREE_CONSTANT (t) = staticp (et); addr = TRUE; @@ -7930,6 +7931,7 @@ ffecom_sym_transform_ (ffesymbol s) build_int_2 (offset, 0)); t = convert (build_pointer_type (type), t); + TREE_CONSTANT (t) = 1; addr = TRUE; } diff --git a/gcc/f/version.c b/gcc/f/version.c index 807dbce..5ae6746 100644 --- a/gcc/f/version.c +++ b/gcc/f/version.c @@ -1 +1 @@ -const char *ffe_version_string = "0.5.24-19990417"; +const char *ffe_version_string = "0.5.24-19990418"; |