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

SCM Repository

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

Diff of /branches/lamont_dev/src/compiler/translate/translate.sml

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

revision 200, Mon Aug 2 21:57:49 2010 UTC revision 226, Tue Aug 3 21:34:18 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, []))]
42                | S.E_Input(name, SOME dflt) =>
43                    [(lhs, IL.OP(HighOps.InputWithDefault name, [lookup env dflt]))]
44                | S.E_Field fld => [(lhs, IL.OP(HighOps.Field fld, []))]
45                | S.E_LoadImage info => [(lhs, IL.OP(HighOps.LoadImage info, []))]
46            (* end case *))            (* end case *))
47    
48    (* convert a Simple AST block to an IL statement.  We return the statement that represents the    (* convert a Simple AST block to an IL statement.  We return the statement that represents the

Legend:
Removed from v.200  
changed lines
  Added in v.226

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