Ignore:
Timestamp:
Aug 15, 2003, 5:30:23 PM (17 years ago)
Author:
orlov
Message:
  • Fixed $iter compilation.
File:
1 edited

Legend:

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

    r1208 r1231  
    434434
    435435  /*
     436   * Before compiling $iter condition or body we should forget available info
     437   * about all format variables, because that info can be changed during
     438   * cycle iterations.
    436439   * Then compile $iter condition and body both with the current state of the
    437440   * sentence.
     
    443446   */
    444447  (Comp Iter (BRANCH e.body) t.format (BRANCH e.condition)) e.Snt =
     448    t.format : (FORMAT e.Fe),
     449    <Vars-Reset <Prepare-Vars <Vars e.Fe>>>,
     450    <Save-Snt-State>,
    445451    <Gener-Label "iter"> :: t.label,
    446452    <Gener-Label "exit_iter"> :: t.exit,
    447     <Save-Snt-State>,
    448453    <Comp-Sentence s.tail? (v.fails ((BREAK t.label))) () e.condition e.Snt>
    449454      :: e.comp-condition,
Note: See TracChangeset for help on using the changeset viewer.