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

SCM Repository

[diderot] Diff of /trunk/src/compiler/translate/translate.sml
ViewVC logotype

Diff of /trunk/src/compiler/translate/translate.sml

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

revision 227, Wed Aug 4 05:27:13 2010 UTC revision 229, Wed Aug 4 15:46:08 2010 UTC
# Line 38  Line 38 
38                    TranslateBasis.translate (lhs, f, tyArgs, args')                    TranslateBasis.translate (lhs, f, tyArgs, args')
39                  end                  end
40              | S.E_Cons args => [(lhs, IL.CONS(List.map (lookup env) args))]              | S.E_Cons args => [(lhs, IL.CONS(List.map (lookup env) args))]
41              | S.E_Input(name, NONE) => [(lhs, IL.OP(HighOps.Input name, []))]              | S.E_Input(_, name, NONE) => [(lhs, IL.OP(HighOps.Input name, []))]
42              | S.E_Input(name, SOME dflt) =>              | S.E_Input(_, name, SOME dflt) =>
43                  [(lhs, IL.OP(HighOps.InputWithDefault name, [lookup env dflt]))]                  [(lhs, IL.OP(HighOps.InputWithDefault name, [lookup env dflt]))]
44              | S.E_Field fld => [(lhs, IL.OP(HighOps.Field fld, []))]              | S.E_Field fld => [(lhs, IL.OP(HighOps.Field fld, []))]
45              | S.E_LoadImage info => [(lhs, IL.OP(HighOps.LoadImage info, []))]              | S.E_LoadImage info => [(lhs, IL.OP(HighOps.LoadImage info, []))]

Legend:
Removed from v.227  
changed lines
  Added in v.229

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