Changeset 3938 for to-imperative


Ignore:
Timestamp:
Sep 18, 2008, 6:13:58 PM (12 years ago)
Author:
orlov
Message:
 
File:
1 edited

Legend:

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

    r3932 r3938  
    257257    FATAL =
    258258//      <? &Current-Func> : (e.name),
    259       ('{' (('TExpr ex;') ('((Expr&)ex).init_str("Unexpected fail", 15);') ('throw ex;')) '}');
     259      ('{' (('TExpr ex;') ('((Expr&)ex).init_str("Unexpected fail", 15);')
     260           ('std::cout << "$error: " << ex << endl;')
     261           ('throw ex;')) '}');
    260262//T/      ('RF_FUNC_ERROR (unexpected_fail);');
    261263    (LSPLIT e.expr (e.min) t.var1 t.var2) =
Note: See TracChangeset for help on using the changeset viewer.