From 72ac12bf6f0bbb3a61e74412fadb287cf9c3ced6 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Sun, 23 Dec 2001 17:47:10 -0800 Subject: [PATCH] utils.c (end_subprog_body): Push GC context around rest_of_compilation for nested functions. * utils.c (end_subprog_body): Push GC context around rest_of_compilation for nested functions. From-SVN: r48294 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/utils.c | 12 +++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 423ef8a4aa7..20a7cdf579e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2001-12-23 Richard Henderson + + * utils.c (end_subprog_body): Push GC context around + rest_of_compilation for nested functions. + 2001-12-23 Richard Henderson * 5nosinte.ads: Get definition of "int" from Interfaces.C. 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 */ -- 2.30.2