Changeset 3959 for to-imperative


Ignore:
Timestamp:
Oct 7, 2008, 3:47:32 PM (12 years ago)
Author:
yura
Message:
  • No temp variables in debugging.
  • Show origin name for variables.
  • LineNumbers? are generated from beginning of constructions (not from COMMA).
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_jbc.rf

    r3887 r3959  
    893893      # <IsInTable s.block_table1 VAR t.var>,
    894894      t.var : \{
    895         (SVAR (e.name)) = <ToWord 's.' e.name>;
    896         (TVAR (e.name)) = <ToWord 't.' e.name>;
    897         (VVAR (e.name)) = <ToWord 'v.' e.name>;
    898         (EVAR (e.name)) = <ToWord 'e.' e.name>;
    899       } :: s.name,
    900       # \{ <ToChars s.name> : e '$' e; },
     895        (SVAR (e.name)) = 's.' e.name;
     896        (TVAR (e.name)) = 't.' e.name;
     897        (VVAR (e.name)) = 'v.' e.name;
     898        (EVAR (e.name)) = 'e.' e.name;
     899      } :: e.name,
     900      # \{ e.name : \{ e '$' e; e "aux" e; }; },
     901      { e.name : e.head s1, <IsInt s1> = e.head; e.name; } :: e.name,
     902      <ToWord e.name> :: s.name,
    901903      s.type : \{
    902904        Expr = <IIMVvisitLocalVariable <MV> s.name "Lorg/refal/plus/Expr;" <Null> s.start s.stop sind>;
Note: See TracChangeset for help on using the changeset viewer.