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 349, Fri Sep 24 00:24:20 2010 UTC revision 358, Tue Sep 28 13:38:09 2010 UTC
# Line 42  Line 42 
42              expand fld              expand fld
43            end            end
44    
45      val expandProbe = Probe.expand      fun expandProbe (env, result, fld, pos) = let
46              val pos' = lookupVar (env, pos)
47              val fld = (case fld
48                     of SrcIL.OP(SrcOp.Field fld, []) => fld
49                      | _ => raise Fail "bogus field binding"
50                    (* end case *))
51              in
52                Probe.expand (result, fld, pos')
53              end
54    
55      fun translate prog = raise Fail "FIXME"      fun translate prog = raise Fail "FIXME"
56    

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

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