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 407, Fri Oct 15 12:27:09 2010 UTC revision 420, Sun Oct 17 02:23:55 2010 UTC
# Line 117  Line 117 
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(ty, s) => assign (DstOp.Input(cvtTy ty, s))
121                | SrcOp.InputWithDefault(_, s) => assign (DstOp.InputWithDefault s)                | SrcOp.InputWithDefault(ty, s) => assign (DstOp.InputWithDefault(cvtTy ty, 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.407  
changed lines
  Added in v.420

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