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 200, Mon Aug 2 21:57:49 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, []))]
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
# Line 115  Line 120 
120              toStmt (env, VSet.empty, stms)              toStmt (env, VSet.empty, stms)
121            end            end
122    
123      fun translate (S.Program{globals, globalInit, actors}) = let      fun translate (S.Program{globals, staticInit, globalInit, actors}) = let
124            val (globalInit, env, _) = cvtBlock (VMap.empty, globalInit)            val (globalInit, env, _) = cvtBlock (VMap.empty, globalInit)
125          (* get the SSA names for the globals and a reduced environment *)          (* get the SSA names for the globals and a reduced environment *)
126            val (env, globs) = let            val (env, globs) = let

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

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