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

SCM Repository

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

Diff of /branches/vis15/src/compiler/high-to-mid/high-to-mid.sml

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

revision 3725, Mon Apr 4 22:00:07 2016 UTC revision 3734, Thu Apr 7 22:06:42 2016 UTC
# Line 115  Line 115 
115                        val pos = Env.rename (env, pos)                        val pos = Env.rename (env, pos)
116                        val img = Env.rename (env, img)                        val img = Env.rename (env, img)
117                        val s = Kernel.support h                        val s = Kernel.support h
118                        val (_, x, code) = CoordSpaceTransform.worldToImage{info = v, img = img, pos = pos}                        val (x, code) = let
119                                val avail = AvailRHS.new()
120                                val (_, x) = CoordSpaceTransform.worldToImage{
121                                        avail = avail, info = v, img = img, pos = pos
122                                      }
123                                in
124                                  (x, AvailRHS.getAssignments avail)
125                                end
126                        in                        in
127                          code @ [(result, DstIR.OP(DstOp.Inside(v, s), [x, img]))]                          code @ [(result, DstIR.OP(DstOp.Inside(v, s), [x, img]))]
128                        end                        end

Legend:
Removed from v.3725  
changed lines
  Added in v.3734

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