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

diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 9e90ba1fbe3ec9d732189369343a6d8a9367cb9d..a82cc79cd651fa84eafbc385170efbf8c2e8dbff 100644 (file)
--- 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);