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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/IL/rewrite-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/IL/rewrite-fn.sml

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

revision 2806, Sat Nov 8 17:41:00 2014 UTC revision 2807, Sat Nov 8 17:55:14 2014 UTC
# Line 86  Line 86 
86                  in                  in
87                    changes                    changes
88                  end                  end
89            (* filter out unused globals and update the program properties if necessary *)
90              val (props, globals) = (case (globals, List.filter (fn x => IL.GlobalVar.useCount x > 0) globals)
91                     of ([], _) => (props, globals)
92                      | (_, []) => (StrandUtil.clearProp StrandUtil.HasGlobals props, [])
93                      | (_, liveGlobals) => (props, liveGlobals)
94                    (* end case *))
95            in            in
96              loopToFixPt optPass;              loopToFixPt optPass;
97              IL.Program{              IL.Program{
98                  props = props,                  props = props,
99                  globals = List.filter (fn x => IL.GlobalVar.useCount x > 0) globals,                  globals = globals,
100                  inputInit = inputInit,                  inputInit = inputInit,
101                  globalInit = globalInit,                  globalInit = globalInit,
102                  initially = initially,  (* FIXME: we should optimize this code *)                  initially = initially,  (* FIXME: we should optimize this code *)

Legend:
Removed from v.2806  
changed lines
  Added in v.2807

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