Changeset 776 for to-imperative/trunk/compiler/rfp_as2as.rf

Timestamp:

May 28, 2003, 1:35:56 PM (18 years ago)

Author:

orlov

Message:

• Corrected renaming of variables in $iter.

File:

• to-imperative/trunk/compiler/rfp_as2as.rf (modified) (2 diffs)

to-imperative/trunk/compiler/rfp_as2as.rf

@@ -236 +236 @@
       t.Statement : (BRANCH t.Pragma e.Sentence) =
         () (e.new-Snt (BRANCH t.Pragma
-            <Rename-Vars s.num (e.upper-vars) (e.res-vars) e.Sentence>));
+            <Rename-Vars s.num (e.vars) (e.res-vars) e.Sentence>));
       t.Statement : (ITER t.IterBody t.IterVars t.IterCondition) =
         <Rename-Vars s.num (e.upper-vars) () t.IterVars t.IterBody> : t t.NewBody,
@@ -255 +255 @@
   e.new-Snt;
 
-Old-Var? e.vars (s t (e.QualifiedName)) = e.vars : e (s t (e.QualifiedName)) e;
+Old-Var? e.vars (s.tag t (e.QualifiedName)) = e.vars : e (s.tag t (e.QualifiedName)) e;
 
 Rename s.num (s.tag t.p (e.QualifiedName s.last)), {
-  <Int? s.last> = (s.tag t.p ("renew" e.QualifiedName s.last s.num));
-  (s.tag t.p ("ren" e.QualifiedName s.last s.num));
+  <Int? s.last> = (s.tag t.p ("renew_" e.QualifiedName s.last s.num));
+  (s.tag t.p ("ren_" e.QualifiedName s.last s.num));
 };