Changeset 1029


Ignore:
Timestamp:
Jul 17, 2003, 4:48:19 PM (17 years ago)
Author:
sveta
Message:
  • Modul is corrected (bugs for INFIX+).
File:
1 edited

Legend:

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

    r975 r1029  
    7777ASAIL-Optim  e.asail, e.asail: {
    7878  /*empty*/ = /*empty*/;
    79   t.item e.rest =
    80   t.item : {
     79  t.item e.rest =  t.item : {
    8180    (FUNC t.name t.args t.ress e.body) =
    8281      <Clear-Table &Used-Label <Domain &Used-Label>>,
     
    303302    e.expr :  /*empty*/ = s.res ;
    304303    s.res : 0 = <Int-Paren e.expr>;
    305     (INFIX "+" ( s.res e.expr) ) ;
     304    (INFIX "+" e.expr (s.res)) ;
    306305    };
    307306  (0) e.rest = <Optim-Add (s.res) (e.expr) e.rest>;
Note: See TracChangeset for help on using the changeset viewer.