diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 20a7cdf579e..755f3b26846 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-01-30 Richard Henderson <rth@redhat.com> + + * trans.c (tree_transform) [N_Loop_Statement]: Use + expand_exit_loop_top_cond. + 2001-12-23 Richard Henderson <rth@redhat.com> * utils.c (end_subprog_body): Push GC context around diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 9864efa750b..7c376e5b2d8 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision$ + * $Revision: 1.10 $ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -2350,7 +2350,7 @@ tree_transform (gnat_node) if (Present (gnat_top_condition)) gnu_top_condition = gnat_to_gnu (gnat_top_condition); - expand_exit_loop_if_false (0, gnu_top_condition); + expand_exit_loop_top_cond (0, gnu_top_condition); /* Make the loop body into its own block, so any allocated storage will be released every iteration. This is needed |