Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4344, Tue Aug 2 14:41:12 2016 UTC revision 4346, Tue Aug 2 14:50:31 2016 UTC
# Line 816  Line 816 
816                       * of the loop so that any nested flushPendings do not cause Range                       * of the loop so that any nested flushPendings do not cause Range
817                       * bindings to be flushed.                       * bindings to be flushed.
818                       *)                       *)
819                        val (src', stms) = simpleArg env (!src, Env.flushPending (env, stms))                        val (src', stms) = simpleArg env (!src, stms)
820                          val stms = Env.flushPending (env, stms)
821                        val mkStm = (case src'                        val mkStm = (case src'
822                               of T.E_Op(TOp.Range, [lo, hi]) =>                               of T.E_Op(TOp.Range, [lo, hi]) =>
823                                    (fn body => T.S_For(var', lo, hi, body))                                    (fn body => T.S_For(var', lo, hi, body))

Legend:
Removed from v.4344  
changed lines
  Added in v.4346

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0