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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/tree-il/low-to-tree-fn.sml

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

revision 2025, Wed Oct 10 17:17:11 2012 UTC revision 2026, Thu Oct 11 00:26:15 2012 UTC
# Line 495  Line 495 
495     * the global initialization.     * the global initialization.
496     *)     *)
497      fun splitGlobalInit globalInit = let      fun splitGlobalInit globalInit = let
498    (* FIXME: can split as soon as we see a non-Input statement! *)
499            fun walk (nd, lastInput, live) = (case Nd.kind nd            fun walk (nd, lastInput, live) = (case Nd.kind nd
500                   of IL.ENTRY{succ} => walk (!succ, lastInput, live)                   of IL.ENTRY{succ} => walk (!succ, lastInput, live)
501                    | IL.COM{succ, ...} => walk (!succ, lastInput, live)                    | IL.COM{succ, ...} => walk (!succ, lastInput, live)

Legend:
Removed from v.2025  
changed lines
  Added in v.2026

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