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

SCM Repository

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

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

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

revision 648, Fri Mar 18 14:45:04 2011 UTC revision 649, Fri Mar 18 15:47:56 2011 UTC
# Line 142  Line 142 
142                | SrcOp.Inside _ => (case args                | SrcOp.Inside _ => (case args
143                     of [pos, fld] => expandInside(env, y, pos, fld)                     of [pos, fld] => expandInside(env, y, pos, fld)
144                    (* end case *))                    (* end case *))
145                (* fields are used in the Inside and Probe operations, but are otherwise ignored *)
146                | SrcOp.Field _ => dummy()                | SrcOp.Field _ => dummy()
147                  | SrcOp.AddField => dummy()
148                  | SrcOp.ScaleField => dummy()
149                  | SrcOp.NegField => dummy()
150                  | SrcOp.DiffField => dummy()
151                | SrcOp.Probe _ => (case args                | SrcOp.Probe _ => (case args
152                     of [fld, pos] => expandProbe(env, y, fld, pos)                     of [fld, pos] => expandProbe(env, y, fld, pos)
153                    (* end case *))                    (* end case *))

Legend:
Removed from v.648  
changed lines
  Added in v.649

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