diff options
| -rw-r--r-- | src/ortho/oread/ortho_front.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/ortho/oread/ortho_front.adb b/src/ortho/oread/ortho_front.adb index 75cc96a..afdabce 100644 --- a/src/ortho/oread/ortho_front.adb +++ b/src/ortho/oread/ortho_front.adb @@ -1909,6 +1909,10 @@ package body Ortho_Front is end; when Tok_Loop => + -- Grammar: + -- LOOP n: + -- stmts + -- END LOOP; declare Info : Loop_Info_Acc; Num : Natural; @@ -1936,6 +1940,9 @@ package body Ortho_Front is when Tok_Exit | Tok_Next => + -- Grammar: + -- EXIT LOOP n; + -- NEXT LOOP n; declare Label : Loop_Info_Acc; Etok : Token_Type; @@ -1957,6 +1964,9 @@ package body Ortho_Front is end; when Tok_Return => + -- Grammar: + -- RETURN; + -- RETURN expr; declare Res : O_Enode; Res_Type : Node_Acc; |