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

SCM Repository

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

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

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

revision 406, Fri Oct 15 12:12:10 2010 UTC revision 407, Fri Oct 15 12:27:09 2010 UTC
# Line 110  Line 110 
110                | SrcOp.CeilToInt => assign (DstOp.CeilToInt 1)                | SrcOp.CeilToInt => assign (DstOp.CeilToInt 1)
111                | SrcOp.FloorToInt => assign (DstOp.FloorToInt 1)                | SrcOp.FloorToInt => assign (DstOp.FloorToInt 1)
112                | SrcOp.LoadImage info => assign (DstOp.LoadImage info)                | SrcOp.LoadImage info => assign (DstOp.LoadImage info)
113                | SrcOp.Inside => (case args                | SrcOp.Inside _ => (case args
114                     of [pos, fld] => expandInside(env, y, pos, fld)                     of [pos, fld] => expandInside(env, y, pos, fld)
115                    (* end case *))                    (* end case *))
116                | SrcOp.Field fld => raise Fail "impossible"                | SrcOp.Field fld => raise Fail "impossible"
117                | SrcOp.Probe => (case args                | SrcOp.Probe _ => (case args
118                     of [fld, pos] => expandProbe(env, y, fld, pos)                     of [fld, pos] => expandProbe(env, y, fld, pos)
119                    (* end case *))                    (* end case *))
120                | SrcOp.Input s => assign (DstOp.Input s)                | SrcOp.Input(_, s) => assign (DstOp.Input s)
121                | SrcOp.InputWithDefault s => assign (DstOp.InputWithDefault s)                | SrcOp.InputWithDefault(_, s) => assign (DstOp.InputWithDefault s)
122                | _ => raise Fail("unexpected " ^ SrcOp.toString rator)                | _ => raise Fail("unexpected " ^ SrcOp.toString rator)
123              (* end case *)              (* end case *)
124            end            end

Legend:
Removed from v.406  
changed lines
  Added in v.407

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