Changeset 1597


Ignore:
Timestamp:
Oct 28, 2004, 10:50:18 AM (16 years ago)
Author:
sveta
Message:
  • Corrected FOR-operator bugs.
File:
1 edited

Legend:

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

    r1564 r1597  
    8484
    8585ASAIL-Optim  e.asail, e.asail: {
    86   /*empty*/ = /*empty*/ <Store &Flag-For >;
     86  /*empty*/ = /*empty*/ <Store &Flag-For>;
    8787  t.item e.rest =  {
    8888    <? &Flag-For> : 1 = {
     
    109109      (FOR (e.cont-label) (e.break-label) (e.cond) (e.step) e.body) =
    110110        <ASAIL-Optim e.body> :: e.body,
    111         <Store &Flag-For 1>,                   
     111        { 
     112          e.break-label : /*empty*/ = <Store &Flag-For 1>; ;
     113        },             
    112114        (FOR (e.cont-label) (e.break-label) (e.cond) (e.step) e.body);
    113115      (LABEL t.label e.body) = <ASAIL-Optim e.body> :: e.body,
Note: See TracChangeset for help on using the changeset viewer.