Changeset 776


Ignore:
Timestamp:
May 28, 2003, 1:35:56 PM (18 years ago)
Author:
orlov
Message:
  • Corrected renaming of variables in $iter.
File:
1 edited

Legend:

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

    r759 r776  
    236236      t.Statement : (BRANCH t.Pragma e.Sentence) =
    237237        () (e.new-Snt (BRANCH t.Pragma
    238             <Rename-Vars s.num (e.upper-vars) (e.res-vars) e.Sentence>));
     238            <Rename-Vars s.num (e.vars) (e.res-vars) e.Sentence>));
    239239      t.Statement : (ITER t.IterBody t.IterVars t.IterCondition) =
    240240        <Rename-Vars s.num (e.upper-vars) () t.IterVars t.IterBody> : t t.NewBody,
     
    255255  e.new-Snt;
    256256
    257 Old-Var? e.vars (s t (e.QualifiedName)) = e.vars : e (s t (e.QualifiedName)) e;
     257Old-Var? e.vars (s.tag t (e.QualifiedName)) = e.vars : e (s.tag t (e.QualifiedName)) e;
    258258
    259259Rename s.num (s.tag t.p (e.QualifiedName s.last)), {
    260   <Int? s.last> = (s.tag t.p ("renew" e.QualifiedName s.last s.num));
    261   (s.tag t.p ("ren" e.QualifiedName s.last s.num));
     260  <Int? s.last> = (s.tag t.p ("renew_" e.QualifiedName s.last s.num));
     261  (s.tag t.p ("ren_" e.QualifiedName s.last s.num));
    262262};
    263263
Note: See TracChangeset for help on using the changeset viewer.