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

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/IL/ssa-pp-fn.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/IL/ssa-pp-fn.sml

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

revision 2634, Mon May 26 13:48:02 2014 UTC revision 2635, Mon May 26 14:06:39 2014 UTC
# Line 219  Line 219 
219            in            in
220              pr (out, concat["##### ", msg, " ####\n"]);              pr (out, concat["##### ", msg, " ####\n"]);
221              pr(out, "## properties\n");              pr(out, "## properties\n");
222              case props              prln (out1, [StrandUtil.propsToString props, "\n"]);
              of [] => prln(out1, ["none\n"])  
               | _ => prln(out1, [String.concatWith " " (List.map StrandUtil.propToString props), "\n"])  
             (* end case *);  
223              pr (out, "## globals\n");              pr (out, "## globals\n");
224              List.app              List.app
225                (fn x => (indent out1; prl(out1, ["global ", typedVar x, "\n"])))                (fn x => (indent out1; prl(out1, ["global ", typedVar x, "\n"])))

Legend:
Removed from v.2634  
changed lines
  Added in v.2635

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