gimplify.c (gimplify_init_ctor_preeval): Call maybe_with_size_expr on the element...
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 28 Sep 2006 19:14:05 +0000 (19:14 +0000)
committerEric Botcazou <ebotcazou@gcc.gnu.org>
Thu, 28 Sep 2006 19:14:05 +0000 (19:14 +0000)
* gimplify.c (gimplify_init_ctor_preeval): Call maybe_with_size_expr
on the element before gimplifying it, instead of punting if it is of
variable size.

From-SVN: r117288

gcc/ChangeLog
gcc/gimplify.c
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/self_aggregate_with_pointer.adb [new file with mode: 0644]

index 1044cc057de47b08d7f466c694fae8e24ab12fd7..779868b015f53d74c69027622d44c4ca2dfd41fa 100644 (file)
@@ -1,3 +1,9 @@
+2006-09-28  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gimplify.c (gimplify_init_ctor_preeval): Call maybe_with_size_expr
+       on the element before gimplifying it, instead of punting if it is of
+       variable size.
+
 2006-09-28  Zdenek Dvorak <dvorakz@suse.cz>
 
        * doc/loop.texi: New file.
index a408c01ae3aaecd1f678774de940493fc933bd99..9db673a62d91995d9eb2e07e28a19f55bc055cae 100644 (file)
@@ -2670,9 +2670,8 @@ gimplify_init_ctor_preeval (tree *expr_p, tree *pre_p, tree *post_p,
       return;
     }
 
-  /* We can't preevaluate if the type contains a placeholder.  */
-  if (type_contains_placeholder_p (TREE_TYPE (*expr_p)))
-    return;
+  /* If this is a variable sized type, we must remember the size.  */
+  maybe_with_size_expr (expr_p);
 
   /* Gimplify the constructor element to something appropriate for the rhs
      of a MODIFY_EXPR.  Given that we know the lhs is an aggregate, we know
index 715e252dc6b917c6692810464e4c54ebfac27604..112f6fe64a17fa28b5d2224b9d6663e25e6da5fd 100644 (file)
@@ -1,3 +1,7 @@
+2006-09-28  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/self_aggregate_with_pointer.adb: New test.
+
 2006-09-27  Steven G. Kargl  <kargls@gcc.gnu.org>
 
        PR fortran/28276
diff --git a/gcc/testsuite/gnat.dg/self_aggregate_with_pointer.adb b/gcc/testsuite/gnat.dg/self_aggregate_with_pointer.adb
new file mode 100644 (file)
index 0000000..179fe4e
--- /dev/null
@@ -0,0 +1,26 @@
+-- { dg-do run }
+
+procedure self_aggregate_with_pointer is
+
+  type Arr is array (Natural range <>) of Integer;
+
+  type Rec (N : Natural) is record
+    A : Arr (1..N);
+  end record;
+
+  type Acc_Rec is access all Rec;
+
+  type SRec is record
+    A : Acc_Rec;
+    I1, I2, I3, I4, I5, I6, I7: Integer;
+  end record;
+
+  R : aliased Rec (1);
+  S : Srec := (A => R'Access, others => 0);
+
+begin
+  S := (A => S.A, others => 0);
+  if S.A /= R'Access then
+    raise Program_Error;
+  end if;
+end;