Changeset 725


Ignore:
Timestamp:
May 6, 2003, 10:04:13 PM (18 years ago)
Author:
orlov
Message:
  • Removed generation of empty condition terms.
File:
1 edited

Legend:

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

    r712 r725  
    13051305        {
    13061306          <Get-Var Max t.var> : v.max =
    1307             (INFIX ">" (t.len-var) ((INFIX "*" (s.mult) (v.max))));
     1307            ((INFIX ">" (t.len-var) ((INFIX "*" (s.mult) (v.max)))));
    13081308          /*empty*/;
    13091309        } :: e.max-cond,
    13101310        <Get-Var Min t.var> : {
    13111311          0 = /*empty*/;
    1312           e.min = (INFIX "<" (t.len-var) ((INFIX "*" (s.mult) (e.min))));
     1312          e.min = ((INFIX "<" (t.len-var) ((INFIX "*" (s.mult) (e.min)))));
    13131313        } :: e.min-cond,
    13141314        e.len-assign
    13151315        (IF ((INFIX "||"
    1316             (e.max-cond) (e.min-cond) ((INFIX "%" (t.len-var) (s.mult)))
     1316            e.max-cond e.min-cond ((INFIX "%" (t.len-var) (s.mult)))
    13171317          ))
    13181318          e.fail)
Note: See TracChangeset for help on using the changeset viewer.