projects
/
platform
/
upstream
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f037632
)
[Ada] Return when not working for procedures
author
Justin Squirek
<squirek@adacore.com>
Fri, 7 May 2021 16:26:09 +0000
(12:26 -0400)
committer
Pierre-Marie de Rodat
<derodat@adacore.com>
Tue, 6 Jul 2021 14:46:54 +0000
(14:46 +0000)
gcc/ada/
* par-ch6.adb (Get_Return_Kind): Properly handle the case of a
"return when" statement in the procedure case.
gcc/ada/par-ch6.adb
patch
|
blob
|
history
diff --git
a/gcc/ada/par-ch6.adb
b/gcc/ada/par-ch6.adb
index
45a4214
..
2337175
100644
(file)
--- a/
gcc/ada/par-ch6.adb
+++ b/
gcc/ada/par-ch6.adb
@@
-1903,6
+1903,11
@@
package body Ch6 is
end if;
Restore_Scan_State (Scan_State); -- to identifier
+
+ elsif Token = Tok_When then
+ Error_Msg_GNAT_Extension ("return when statement");
+
+ Result := Return_When;
end if;
return Result;