From af04dc07c565e452971c24476297f5cb6a50b2c6 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Wed, 26 Sep 2007 12:43:08 +0200 Subject: [PATCH] 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 --- gcc/ada/exp_dbug.adb | 5 +++++ 1 file changed, 5 insertions(+) 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 -- 2.30.2