Changeset 1598


Ignore:
Timestamp:
Oct 28, 2004, 3:43:46 PM (16 years ago)
Author:
sveta
Message:

* empty log message *

Location:
to-imperative/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/ChangeLog

    r1596 r1598  
     12004-10-28  Svetlana Ponomareva  <psm@kbse.botik.ru>
     2
     3        * compiler/rfp_asail_optim.rf:
     4        - Corrected FOR-operator bugs.
     5
    162004-10-28  Anton Orlov  <orlov@mccme.ru>
    27
  • to-imperative/trunk/compiler/rfp_asail_optim.rf

    r1597 r1598  
    110110        <ASAIL-Optim e.body> :: e.body,
    111111        { 
    112           e.break-label : /*empty*/ = <Store &Flag-For 1>; ;
    113         },             
    114         (FOR (e.cont-label) (e.break-label) (e.cond) (e.step) e.body);
     112//          e.break-label : /*empty*/ = <Store &Flag-For 1>;
     113          <In-Table? &Used-Label e.break-label> =       
     114            (FOR (e.cont-label) (e.break-label) (e.cond) (e.step) e.body);
     115          <Store &Flag-For 1>,
     116            (FOR (e.cont-label) () (e.cond) (e.step) e.body);
     117        };
    115118      (LABEL t.label e.body) = <ASAIL-Optim e.body> :: e.body,
    116119        (LABEL t.label e.body) ;
Note: See TracChangeset for help on using the changeset viewer.