OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Default_Initial_Condition check done after extended return with init

Browse Source 
gcc/ada/

	* par-ch6.adb (P_Return_Object_Declaration): Set
	Has_Init_Expression flag.
This commit is contained in:
Arnaud Charlet 2020-05-04 04:56:52 -04:00 committed by Pierre-Marie de Rodat
parent e6f323372e
commit 37e43fe13e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/ada/par-ch6.adb
View File

@ -1856,6 +1856,7 @@ package body Ch6 is
if Token = Tok_Colon_Equal then
Scan; -- past :=
Set_Expression (Decl_Node, P_Expression_No_Right_Paren);
Set_Has_Init_Expression (Decl_Node);
end if;
return Decl_Node;