* trans.c (gigi): Update gimplify_body call.
From-SVN: r92385
This commit is contained in:
parent
18330d2859
commit
ed9c846c20
|
@ -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>
|
2004-12-09 Nathan Sidwell <nathan@codesourcery.com>
|
||||||
|
|
||||||
* decl.c (gnat_substitute_in_type): Remove SET_TYPE case.
|
* decl.c (gnat_substitute_in_type): Remove SET_TYPE case.
|
||||||
|
|
|
@ -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
|
/* Set the current function to be the elaboration procedure and gimplify
|
||||||
what we have. */
|
what we have. */
|
||||||
current_function_decl = info->elab_proc;
|
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
|
/* 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. */
|
in it. If it doesn't have any, we have nothing to do. */
|
||||||
|
|
Loading…
Reference in New Issue