Changeset 2034 for to-imperative/trunk/compiler/rfp_parse.rf

Timestamp:

Jul 27, 2006, 8:40:44 AM (14 years ago)

Author:

orlov

Message:

• Proper generation of debug info for use with Debug library (-dbg option).
• Result expressions can contain blocks.

File:

• to-imperative/trunk/compiler/rfp_parse.rf (modified) (2 diffs)

to-imperative/trunk/compiler/rfp_parse.rf

@@ -688 +688 @@
 //<WriteLN Parse-Result-Term>,
     <Expect-Token SYMBOLS NUMBER WORD QWORD REF LPAREN
-      EVAR VVAR TVAR SVAR LBRACKET EMPTY>
+      EVAR VVAR TVAR SVAR LBRACKET LBRACE TLBRACE EMPTY>
     :: (e.pos) (s.type e.value),
     {
@@ -732 +732 @@
         (CALL <Pragma e.pos> <Make-Name e.name> <Parse-Result>) :: e.items,
         <Expect-Token RBRACKET> : e, e.items;
+      s.type : \{ LBRACE; TLBRACE; } =
+        <Unget-Token (e.pos) (s.type e.value)>,
+        <Parse-Source>;
     };