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/env.sml
ViewVC logotype

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

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

revision 3841, Tue May 10 00:19:05 2016 UTC revision 3842, Tue May 10 14:25:30 2016 UTC
# Line 93  Line 93 
93    
94      fun flushPending (E{tbl, locals}, blkStms) = let      fun flushPending (E{tbl, locals}, blkStms) = let
95            fun doVar (x, (false, TREE e), (locals, stms)) = let            fun doVar (x, (false, TREE e), (locals, stms)) = let
96                  val t = newLocal x                  val t = Util.newLocalVar x
97                  in                  in
98                    VT.insert tbl (x, (true, TREE(TreeIR.E_Var t)));                    VT.insert tbl (x, (true, TREE(TreeIR.E_Var t)));
99                    (t::locals, TreeIR.S_Assign([t], e)::stms)                    (t::locals, TreeIR.S_Assign(t, e)::stms)
100                  end                  end
101              | doVar (x, (false, VEC(layout, es)), (locals, stms)) = raise Fail "FIXME"              | doVar (x, (false, VEC(layout, es)), (locals, stms)) = raise Fail "FIXME"
102              | doVar (_, _, acc) = acc              | doVar (_, _, acc) = acc

Legend:
Removed from v.3841  
changed lines
  Added in v.3842

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