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

exp_dbug.adb (Debug_Renaming_Declaration): Set Is_Internal on the debug variable so that it won't be initialized when...

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

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