Changeset 1231 for to-imperative/trunk/compiler/rfp_compile.rf

Timestamp:

Aug 15, 2003, 5:30:23 PM (17 years ago)

Author:

orlov

Message:

• Fixed $iter compilation.

File:

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

to-imperative/trunk/compiler/rfp_compile.rf

@@ -434 +434 @@
 
   /*
+   * Before compiling $iter condition or body we should forget available info
+   * about all format variables, because that info can be changed during
+   * cycle iterations.
    * Then compile $iter condition and body both with the current state of the
    * sentence.
@@ -443 +446 @@
    */
   (Comp Iter (BRANCH e.body) t.format (BRANCH e.condition)) e.Snt =
+    t.format : (FORMAT e.Fe),
+    <Vars-Reset <Prepare-Vars <Vars e.Fe>>>,
+    <Save-Snt-State>,
     <Gener-Label "iter"> :: t.label,
     <Gener-Label "exit_iter"> :: t.exit,
-    <Save-Snt-State>,
     <Comp-Sentence s.tail? (v.fails ((BREAK t.label))) () e.condition e.Snt>
       :: e.comp-condition,