From: Gary Dismukes Date: Wed, 26 Sep 2007 10:43:08 +0000 (+0200) Subject: exp_dbug.adb (Debug_Renaming_Declaration): Set Is_Internal on the debug variable... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=af04dc07c565e452971c24476297f5cb6a50b2c6;p=gcc.git 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 * 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 e6d2139a7b5..2f1137b41cf 100644 --- 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