Skip to content

R
riscv-gcc-1
Commit b6e209b5 by Robert Dewar Committed by Arnaud Charlet
Options

2008-08-04 Robert Dewar <dewar@adacore.com> 

	* freeze.adb:
	(Freeze_Entity): Only check No_Default_Initialization restriction for
	constructs that come from source

From-SVN: r138617
parent bb98fe75
Showing with 2 additions and 1 deletions
gcc/ada/freeze.adb
...@@ -2665,7 +2665,8 @@ package body Freeze is ...@@ -2665,7 +2665,8 @@ package body Freeze is
-- ever default initialized, and is why the check is deferred -- ever default initialized, and is why the check is deferred
-- until freezing, at which point we know if Import applies. -- 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 not Has_Init_Expression (Declaration_Node (E))
and then and then
((Has_Non_Null_Base_Init_Proc (Etype (E)) ((Has_Non_Null_Base_Init_Proc (Etype (E))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment