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

SCM Repository

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

Diff of /trunk/src/compiler/high-to-mid/high-to-mid.sml

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

revision 334, Thu Aug 19 20:53:07 2010 UTC revision 349, Fri Sep 24 00:24:20 2010 UTC
# Line 26  Line 26 
26    (* expand the field Inside operator into a image-space test *)    (* expand the field Inside operator into a image-space test *)
27      fun expandInside (env, result, pos, fld) = let      fun expandInside (env, result, pos, fld) = let
28            val pos' = lookupVar (env, pos)            val pos' = lookupVar (env, pos)
29            val fld = (case valueOf fld            val fld = (case fld
30                   of SrcIL.OP(SrcOp.Field fld, []) => fld                   of SrcIL.OP(SrcOp.Field fld, []) => fld
31                    | _ => raise Fail "bogus field binding"                    | _ => raise Fail "bogus field binding"
32                  (* end case *))                  (* end case *))

Legend:
Removed from v.334  
changed lines
  Added in v.349

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