From b6e209b5f8793412fc20ffaa6b118dc7ef8dbd27 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 4 Aug 2008 14:51:19 +0200 Subject: [PATCH] 2008-08-04 Robert Dewar * freeze.adb: (Freeze_Entity): Only check No_Default_Initialization restriction for constructs that come from source From-SVN: r138617 --- gcc/ada/freeze.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index a2dd517c509c..dffcbaf3b403 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2665,7 +2665,8 @@ package body Freeze is -- ever default initialized, and is why the check is deferred -- until freezing, at which point we know if Import applies. - if not Is_Imported (E) + if Comes_From_Source (E) + and then not Is_Imported (E) and then not Has_Init_Expression (Declaration_Node (E)) and then ((Has_Non_Null_Base_Init_Proc (Etype (E)) -- 2.47.3