Changeset 3916 for to-imperative


Ignore:
Timestamp:
Sep 16, 2008, 4:20:28 PM (12 years ago)
Author:
orlov
Message:
  • Various fixes for T.
Location:
to-imperative/trunk/compiler/refal/org/refal/plus/compiler
Files:
3 edited

Legend:

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

    r3915 r3916  
    489489Const_Expr_To_CPP {
    490490  /*empty*/ = 'empty';
    491   (SUBEXPR t.name s.pos s.len) = <Rfp2Cpp t.name> '.subexpr(' s.pos ', ' s.len ')';
     491  (SUBEXPR t.name s.pos s.len) = <Rfp2Cpp t.name> '.subexpr(' s.pos ', ' s.len ').get_ref()';
    492492                  //FIXME: It is needed to check that s.pos and s.len
    493493                  //       are in allowable bounds.
     
    520520      '.add('<Const_Expr_To_CPP e.paren_expr>')';
    521521//T/      ' + (' <Const_Expr_To_CPP e.paren_expr> ') ()';
    522 //T/    (REF t.name) =
    523 //T/      ' + ' <Name_To_CPP "DECL-OBJ" t.name>;
     522    (REF t.name) =
     523      '.add(' <Name_To_CPP "DECL-OBJ" t.name>')';
    524524//      ' + Expr::create<ObjectRef>(' <Name-To-CPP t.name> ')';
    525525//T/    (STATIC e) =
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_helper.rf

    r3589 r3916  
    118118    "FUNC" = "$func";
    119119    "FUNC?" = "$func?";
     120    "TFUNC" = "$tfunc";
    120121  } :: s.funcType,
    121122  <PrintFormat e.Fin> :: e.in,
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_parse.rf

    r3896 r3916  
    241241        <Parse_Uses>;
    242242      CONST =
    243         <Parse_Const_Decls>;
     243        <Lookup_Names <Parse_Const_Decls>>;
    244244      TRACE =
    245245        <Parse_Trace_Names>;
Note: See TracChangeset for help on using the changeset viewer.