diff options
| author | Tristan Gingold <gingold@adacore.com> | 2007-12-19 17:25:33 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:25:33 +0100 |
| commit | 916549397d42da052dc3c2c098f8682f01ae5d2f (patch) | |
| tree | 89012687c9b99e3e17da5920beb42f723ef29acb /gcc/ada | |
| parent | 20e8cdd795e6d426ff4b7750d6fbe9f2f866fd38 (diff) | |
| download | gcc-916549397d42da052dc3c2c098f8682f01ae5d2f.tar.gz | |
utils.c (create_var_decl_1): call rest_of_decl_compilation only for global variable.
2007-12-19 Tristan Gingold <gingold@adacore.com>
* utils.c (create_var_decl_1): call rest_of_decl_compilation only for
global variable.
From-SVN: r131083
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/utils.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 9e90ba1fbe3..a82cc79cd65 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1467,7 +1467,10 @@ create_var_decl_1 (tree var_name, tree asm_name, tree type, tree var_init, TREE_ADDRESSABLE (var_decl) = 1; if (TREE_CODE (var_decl) != CONST_DECL) - rest_of_decl_compilation (var_decl, global_bindings_p (), 0); + { + if (global_bindings_p ()) + rest_of_decl_compilation (var_decl, true, 0); + } else expand_decl (var_decl); |