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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/codegen/codegen-fn.sml

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

revision 526, Sat Feb 12 23:17:46 2011 UTC revision 527, Sun Feb 13 02:08:31 2011 UTC
# Line 224  Line 224 
224              doNode (vtbl, fn _ => raise Fail "bogus ifCont at JOIN node", [], CFG.entry cfg)              doNode (vtbl, fn _ => raise Fail "bogus ifCont at JOIN node", [], CFG.entry cfg)
225            end            end
226    
227      fun generate (fileStem, IL.Program{globals, globalInit, strands}) = ()      fun generate (fileStem, IL.Program{globals, globalInit, strands}) = let
228              val prog = T.newProgram ()
229              in
230                T.generate (fileStem, prog)
231              end
232    
233    end    end

Legend:
Removed from v.526  
changed lines
  Added in v.527

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