Changeset 1592


Ignore:
Timestamp:
Oct 28, 2004, 5:08:35 AM (16 years ago)
Author:
orlov
Message:
  • Macro names are changed.
  • Do stack cleanup after catching an $error.
File:
1 edited

Legend:

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

    r1561 r1592  
    123123//      };
    124124    (TRY e.body) =
    125       ('trap') ('{' (<ASAIL-To-CPP e.body>) '}');
     125      ('RF_TRAP') ('{' (<ASAIL-To-CPP e.body>) '}');
    126126    (CATCH-ERROR e.body) =
    127       ('with') <ASAIL-To-CPP e.body>;
     127      ('RF_WITH') ('{' (('RF_CLEANUP;') <ASAIL-To-CPP e.body>) '}');
    128128    RETURN = ('return true;');
    129     RETFAIL = ('retfail;');
     129    RETFAIL = ('RF_RETFAIL;');
    130130    FATAL =
    131131      <? &Current-Func> : (e.name),
    132       ('error (' <Const-Expr-To-CPP e.name> ' + unexpected_fail);');
     132      ('RF_ERROR (' <Const-Expr-To-CPP e.name> ' + unexpected_fail);');
    133133    (LSPLIT e.expr (e.min) t.var1 t.var2) =
    134134      ('lsplit (' <Expr-Ref-To-CPP e.expr> ', ' <Expr-Int-To-CPP e.min> ', '
     
    159159      ('goto ' <Rfp2Cpp (LABEL t.label)> ';');
    160160    (ERROR e.expr) =
    161       ('error (' <Expr-Ref-To-CPP e.expr> ');');
     161      ('RF_ERROR (' <Expr-Ref-To-CPP e.expr> ');');
    162162    (CONSTEXPR s.linkage t.name (e.comment) e.expr) =
    163163      { s.linkage : LOCAL = 'static ';; } :: e.linkage,
Note: See TracChangeset for help on using the changeset viewer.