Changeset 3912


Ignore:
Timestamp:
Sep 12, 2008, 5:04:55 PM (12 years ago)
Author:
orlov
Message:
  • More simple constants initialization.
File:
1 edited

Legend:

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

    r3911 r3912  
    471471
    472472
    473 $func Const_Expr_Aux e.expr = s.len e.cpp_expr;
     473$func Const_Expr_Aux e.expr = e.cpp_expr;
    474474
    475475Const_Expr_To_CPP {
     
    480480                  //       Set this bounds by options.
    481481  e.expr =
    482     <Const_Expr_Aux () e.expr> :: s.len e.cpp_expr,
    483     'GExpr('s.len')' e.cpp_expr;
     482    'GExpr('<Length e.expr>')' <Const_Expr_Aux () e.expr>;
    484483//T/    <Const_Expr_Aux () e.expr> : {
    485484//T/      ' + ' e.cpp_expr = e.cpp_expr;
     
    492491    <Const_Expr_Aux (e.accum <Symbol_To_CPP s.sym>) e.rest>;
    493492  e.accum : v =
    494     <Const_Expr_Aux () e.expr> :: s.len e.expr,
    495     <Add s.len <Length e.accum>> '.add("'e.accum'")' e.expr;
     493    '.add("'e.accum'")' <Const_Expr_Aux () e.expr>;
    496494//T/    {
    497495//T/      <CharsToBytes e.accum> : e s.c e,
     
    504502    (PAREN (STATIC e.name)) =
    505503      <Bind &Used_Consts ((STATIC e.name)) ()>,
    506       1 '.add('<Rfp2Cpp (STATIC e.name)>')';
     504      '.add('<Rfp2Cpp (STATIC e.name)>')';
    507505    (PAREN e.paren_expr) =
    508       1 '.add('<Const_Expr_To_CPP e.paren_expr>')';
     506      '.add('<Const_Expr_To_CPP e.paren_expr>')';
    509507//T/      ' + (' <Const_Expr_To_CPP e.paren_expr> ') ()';
    510508//T/    (REF t.name) =
     
    519517      <IsInt s.sym> =
    520518//T/        ' + Expr::create<' <Get &Int> '>("' s.sym '")';
    521         1 '.add(' s.sym ')';
     519        '.add(' s.sym ')';
    522520      <IsWord s.sym> =
    523521//T/        ' + Expr::create<rftype::Word>("' <Symbol_To_CPP s.sym> '")';
    524         1 '.add(' <Symbol_To_CPP s.sym> ')';
     522        '.add(' <Symbol_To_CPP s.sym> ')';
    525523    };
    526   } :: s.len e.cpp_item =
    527     <Const_Expr_Aux () e.rest> :: s.len2 e.rest,
    528     <Add s.len s.len2> e.cpp_item e.rest;
    529   = 0;
     524  } :: e.cpp_item =
     525    e.cpp_item <Const_Expr_Aux () e.rest>;
     526  = ;
    530527};
    531528
Note: See TracChangeset for help on using the changeset viewer.