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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cfg-ir/rewrite-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/rewrite-fn.sml

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

revision 3517, Sat Dec 19 04:39:21 2015 UTC revision 3937, Mon Jun 6 13:16:10 2016 UTC
# Line 96  Line 96 
96                  in                  in
97                    changes                    changes
98                  end                  end
99          (* filter out unused globals and update the program properties if necessary *)          (* filter out unused globals and update the program properties if necessary.  Note that
100  (* FIXME: what about consts and inputs? *)           * we never remove unused inputs, since that would affect the command-line interface.
101             *)
102    (* FIXME: what about consts? *)
103            val (props, globals) = (case (globals, List.filter (fn x => IR.GlobalVar.useCount x > 0) globals)            val (props, globals) = (case (globals, List.filter (fn x => IR.GlobalVar.useCount x > 0) globals)
104                   of ([], _) => (props, globals)                   of ([], _) => (props, globals)
105                    | (_, []) => (Properties.clearProp Properties.HasGlobals props, [])                    | (_, []) => (Properties.clearProp Properties.HasGlobals props, [])

Legend:
Removed from v.3517  
changed lines
  Added in v.3937

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