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

SCM Repository

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

Diff of /branches/vis12/src/compiler/high-to-mid/high-to-mid.sml

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

revision 450, Thu Oct 21 15:58:26 2010 UTC revision 511, Tue Feb 8 17:01:43 2011 UTC
# Line 147  Line 147 
147          val expand = expand          val expand = expand
148        end)        end)
149    
150      fun translate (SrcIL.Program{globals, globalInit, actors}) = let      fun translate (SrcIL.Program{globals, globalInit, strands}) = let
151            val env = VTbl.mkTable (256, Fail "env")            val env = VTbl.mkTable (256, Fail "env")
152            fun transMethod (SrcIL.Method{name, stateIn, stateOut, body}) =            fun transMethod (SrcIL.Method{name, stateIn, stateOut, body}) =
153                  DstIL.Method{                  DstIL.Method{
# Line 156  Line 156 
156                      stateOut = renameList (env, stateOut),                      stateOut = renameList (env, stateOut),
157                      body = Trans.translate (env, body)                      body = Trans.translate (env, body)
158                    }                    }
159            fun transActor (SrcIL.Actor{name, params, state, stateInit, methods}) =            fun transStrand (SrcIL.Strand{name, params, state, stateInit, methods}) =
160                  DstIL.Actor{                  DstIL.Strand{
161                      name = name,                      name = name,
162                      params = renameList (env, params),                      params = renameList (env, params),
163                      state = renameList (env, state),                      state = renameList (env, state),
# Line 179  Line 179 
179              DstIL.Program{              DstIL.Program{
180                  globals = renameList (env, globals),                  globals = renameList (env, globals),
181                  globalInit = Trans.translate (env, globalInit),                  globalInit = Trans.translate (env, globalInit),
182                  actors = List.map transActor actors                  strands = List.map transStrand strands
183                }                }
184            end            end
185    

Legend:
Removed from v.450  
changed lines
  Added in v.511

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