com.c (ffecom_stabilize_aggregate_) [case RTL_EXPR]: Abort.

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

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

From-SVN: r37376

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index a53723e..cb0b9d0 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 d158fed..458acd0 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: