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

SCM Repository

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

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

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

revision 339, Mon Sep 13 14:55:51 2010 UTC revision 340, Mon Sep 13 15:34:36 2010 UTC
# Line 8  Line 8 
8    
9  functor SSAPPFn (IL : SSA) : sig  functor SSAPPFn (IL : SSA) : sig
10    
11      val output : TextIO.outstream * IL.program -> unit      val output : TextIO.outstream * string * IL.program -> unit
12    
13    end = struct    end = struct
14    
# Line 109  Line 109 
109              indent out; prl(out, ["end ", Atom.toString name, "\n"])              indent out; prl(out, ["end ", Atom.toString name, "\n"])
110            end            end
111    
112      fun output (outS, IL.Program{globals, globalInit, actors}) = let      fun output (outS, msg, IL.Program{globals, globalInit, actors}) = let
113            val out = (outS, 0)            val out = (outS, 0)
114            val out1 = incIndent out            val out1 = incIndent out
115            in            in
116                pr (out, concat["##### ", msg, " ####\n"]);
117              pr (out, "## globals\n");              pr (out, "## globals\n");
118              List.app (fn x => (indent out1; prl(out1, ["global ", Var.toString x, "\n"]))) globals;              List.app (fn x => (indent out1; prl(out1, ["global ", Var.toString x, "\n"]))) globals;
119              pr (out, "## global initialization\n");              pr (out, "## global initialization\n");
120              ppStmt (out1, globalInit);              ppStmt (out1, globalInit);
121              pr (out, "## actors\n");              pr (out, "## actors\n");
122              List.app (fn actor => ppActor(out1, actor)) actors;              List.app (fn actor => ppActor(out1, actor)) actors;
123              pr (out, "## end program")              pr (out, "#### end program ####\n")
124            end            end
125    
126    end    end

Legend:
Removed from v.339  
changed lines
  Added in v.340

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