2000-11-10 Toon Moene <toon@moene.indiv.nluug.nl>

	* com.c (ffecom_stabilize_aggregate_) case RTL_EXPR:
	Abort.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@37376 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index a53723ea2695f8115f47b6e068b053acd33f0f47..cb0b9d09333976a3a59b415350c20ff4a351b356 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-10  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+       * com.c (ffecom_stabilize_aggregate_) case RTL_EXPR:
+       Abort.
+
 2000-11-10  Zack Weinberg  <zack@wolery.stanford.edu>
 
        * Make-lang.in (f/fini.o, f/proj-h.o): Remove pointless sed

diff --git a/gcc/f/com.c b/gcc/f/com.c
index d158feda32b1c967081f7fe7a8ff56b5078a4059..458acd05424ebefeb6855c30d00a113ea44b15a0 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -1082,11 +1082,7 @@ ffecom_stabilize_aggregate_ (tree ref)
       break;
 
     case RTL_EXPR:
-      result = build1 (INDIRECT_REF, TREE_TYPE (ref),
-                      save_expr (build1 (ADDR_EXPR,
-                                         build_pointer_type (TREE_TYPE (ref)),
-                                         ref)));
-      break;
+      abort ();
 
 
     default: