exp_dbug.adb (Debug_Renaming_Declaration): Set Is_Internal on the debug variable...

2007-09-26  Gary Dismukes  <dismukes@adacore.com>

	* exp_dbug.adb (Debug_Renaming_Declaration): Set Is_Internal on the
	debug variable so that it won't be initialized when pragma
	Initialize_Scalars is in effect.

From-SVN: r128788

diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb
index e6d2139a7b5a68d9943e6b49808c8bf23a77921d..2f1137b41cf5ab1db2a6b8892a0dde1c85f2134d 100644 (file)
--- a/gcc/ada/exp_dbug.adb
+++ b/gcc/ada/exp_dbug.adb
@@ -466,6 +466,11 @@ package body Exp_Dbug is
 
       Set_Needs_Debug_Info (Obj);
 
+      --  Mark the object as internal so that it won't be initialized when
+      --  pragma Initialize_Scalars or Normalize_Scalars is in use.
+
+      Set_Is_Internal (Obj);
+
       return Res;
 
    --  If we get an exception, just figure it is a case that we cannot