diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-05-04 04:56:52 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-06 07:34:50 -0400 |
| commit | 37e43fe13e163799618f5e2eb8f84cdcfa4e4f3b (patch) | |
| tree | a40772d2465b08493524ae9c33b51c0b4bf7b94c | |
| parent | e6f323372efa29091cf052a276c15b9e6ebc00ae (diff) | |
| download | gcc-37e43fe13e163799618f5e2eb8f84cdcfa4e4f3b.zip gcc-37e43fe13e163799618f5e2eb8f84cdcfa4e4f3b.tar.gz gcc-37e43fe13e163799618f5e2eb8f84cdcfa4e4f3b.tar.bz2 | |
[Ada] Default_Initial_Condition check done after extended return with init
gcc/ada/
* par-ch6.adb (P_Return_Object_Declaration): Set
Has_Init_Expression flag.
| -rw-r--r-- | gcc/ada/par-ch6.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index abf7d10..0821e68 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -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; |