Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_parse.rf

    r2010 r2034  
    688688//<WriteLN Parse-Result-Term>,
    689689    <Expect-Token SYMBOLS NUMBER WORD QWORD REF LPAREN
    690       EVAR VVAR TVAR SVAR LBRACKET EMPTY>
     690      EVAR VVAR TVAR SVAR LBRACKET LBRACE TLBRACE EMPTY>
    691691    :: (e.pos) (s.type e.value),
    692692    {
     
    732732        (CALL <Pragma e.pos> <Make-Name e.name> <Parse-Result>) :: e.items,
    733733        <Expect-Token RBRACKET> : e, e.items;
     734      s.type : \{ LBRACE; TLBRACE; } =
     735        <Unget-Token (e.pos) (s.type e.value)>,
     736        <Parse-Source>;
    734737    };
    735738
Note: See TracChangeset for help on using the changeset viewer.