From e3d09a9c3edd6a528de9bc2e0c51025c86ebd2fe Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Mon, 28 Dec 2015 11:08:39 +0100
Subject: oread: add comments.

---
 src/ortho/oread/ortho_front.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src')

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;
-- 
cgit