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 2476, Mon Oct 14 09:36:13 2013 UTC revision 2483, Mon Oct 14 16:27:24 2013 UTC
# Line 434  Line 434 
434              condCons (hasNew, StrandUtil.NewStrands, []))              condCons (hasNew, StrandUtil.NewStrands, []))
435            end            end
436    
437      fun translate (S.Program{globals, globalInit, funcs, init, strands}) = let      fun translate (S.Program{globals, globalInit, init, strands, ...}) = let
438            val (globalInit, env) = let            val (globalInit, env) = let
439                  fun mkExit env = let                  fun mkExit env = let
440                        val nd = IL.Node.mkRETURN(VMap.listItems env)                        val nd = IL.Node.mkRETURN(VMap.listItems env)

Legend:
Removed from v.2476  
changed lines
  Added in v.2483

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