diff options
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 8f1f3419b1a..ead4d02d83b 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision: 1.6 $ + * $Revision: 1.7 $ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -1844,8 +1844,18 @@ end_subprog_body () DECL_CONTEXT (DECL_RESULT (current_function_decl)) = current_function_decl; expand_function_end (input_filename, lineno, 0); + + /* If this is a nested function, push a new GC context. That will keep + local variables on the stack from being collected while we're doing + the compilation of this function. */ + if (function_nesting_depth > 1) + ggc_push_context (); + rest_of_compilation (current_function_decl); + if (function_nesting_depth > 1) + ggc_pop_context (); + #if 0 /* If we're sure this function is defined in this file then mark it as such */ |