From: Craig Burley <craig@jcb-sc.com>
Date: Sun, 18 Apr 1999 18:58:04 +0000 (+0000)
Subject: fix crashes on I/O statements involving COMMON variables
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d50108c7334b157d4c5d45c5074d94475a4c8c35;p=gcc.git

fix crashes on I/O statements involving COMMON variables

From-SVN: r26540
---

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  <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 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";