Changeset 2349


Ignore:
Timestamp:
Feb 7, 2007, 11:46:38 PM (14 years ago)
Author:
orlov
Message:
  • Fixed a bug introduced in r2347
File:
1 edited

Legend:

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

    r2347 r2349  
    12061206      <Create-Int-Var ("len") Aux e.subtrahend> :: t.s-var e.s-assign,
    12071207      (IF ((INFIX "<" (t.m-var)
    1208         ((INFIX "+" (t.s-var)
    1209               ((INFIX "*" (e.min) (s.mult)))
    1210         ))                      ) e.end-cycle)) :: e.min-cond,
     1208          ((INFIX "+" (t.s-var)
     1209            ((INFIX "*" (e.min) (s.mult)))
     1210        ))      ))
     1211        e.end-cycle
     1212      ) :: e.min-cond,
    12111213      <Get-Var Max t.var> : {
    12121214        /*empty*/;
    12131215        e.max =
    12141216          (IF ((INFIX ">" (t.m-var)
    1215             ((INFIX "+" (t.s-var)
    1216                   ((INFIX "*" (e.max) (s.mult)))
    1217           ))                    ) e.end-cycle));
     1217              ((INFIX "+" (t.s-var)
     1218                ((INFIX "*" (e.max) (s.mult)))
     1219            ))  ))
     1220          e.end-cycle);
    12181221      } :: e.max-cond,
    12191222      (INFIX "%" ((INFIX "-" (t.m-var) (t.s-var))) (s.mult)) :: e.div-cond,
Note: See TracChangeset for help on using the changeset viewer.