From d50108c7334b157d4c5d45c5074d94475a4c8c35 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sun, 18 Apr 1999 18:58:04 +0000 Subject: [PATCH] fix crashes on I/O statements involving COMMON variables From-SVN: r26540 --- gcc/f/ChangeLog | 6 ++++++ gcc/f/com.c | 2 ++ gcc/f/version.c | 2 +- 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 29caa6ec16b..74e0684b3b8 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +Sun Apr 18 21:53:58 1999 Craig Burley + + * 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 * bugs.texi, ffe.texi, g77.texi, g77install.texi, news.texi: diff --git a/gcc/f/com.c b/gcc/f/com.c index 1d7676dbba2..ad85268ea3e 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 807dbce5ed4..5ae6746189a 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"; -- 2.30.2