diff options
author | Tristan Gingold <gingold@adacore.com> | 2015-12-28 11:08:39 +0100 |
---|---|---|
committer | Tristan Gingold <gingold@adacore.com> | 2016-01-06 18:38:36 +0100 |
commit | e3d09a9c3edd6a528de9bc2e0c51025c86ebd2fe (patch) | |
tree | a7c0aaef5a1374ec4ac0c912c88e308ad1c9f503 | |
parent | f3468eaa313e7cd16005e59a59392390a0bce9f4 (diff) | |
download | ghdl-e3d09a9c3edd6a528de9bc2e0c51025c86ebd2fe.tar.gz ghdl-e3d09a9c3edd6a528de9bc2e0c51025c86ebd2fe.tar.bz2 ghdl-e3d09a9c3edd6a528de9bc2e0c51025c86ebd2fe.zip |
oread: add comments.
-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 75cc96a79..afdabcec2 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; |