* trans.c (gigi): Update gimplify_body call.

From-SVN: r92385

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 44e0cb7209ff31d1e8c89574b795ee701f728c6f..1676f35bb87a26261c1f3327a7b7f6f5bbc34037 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-19  Richard Henderson  <rth@redhat.com>
+
+       * trans.c (gigi): Update gimplify_body call.
+
 2004-12-09  Nathan Sidwell  <nathan@codesourcery.com>
 
        * decl.c (gnat_substitute_in_type): Remove SET_TYPE case.

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 2acf8323849e8b10fdbc6f8293c6e4e09586d93a..e3d5f47e023f16f1080e0a1bd212c47222ea7e09 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -253,7 +253,7 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name,
       /* Set the current function to be the elaboration procedure and gimplify
         what we have.  */
       current_function_decl = info->elab_proc;
-      gimplify_body (&gnu_body, info->elab_proc);
+      gimplify_body (&gnu_body, info->elab_proc, false);
 
       /* We should have a BIND_EXPR, but it may or may not have any statements
         in it.  If it doesn't have any, we have nothing to do.  */