From: Tristan Gingold <gingold@adacore.com>
Date: Wed, 19 Dec 2007 16:25:33 +0000 (+0100)
Subject: utils.c (create_var_decl_1): call rest_of_decl_compilation only for global variable.
X-Git-Tag: releases/gcc-4.3.0~872
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=916549397d42da052dc3c2c098f8682f01ae5d2f;p=thirdparty%2Fgcc.git

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 9e90ba1fbe3e..a82cc79cd651 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);