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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/simplify/simple-pp.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/simplify/simple-pp.sml

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

revision 608, Fri Mar 11 22:38:23 2011 UTC revision 609, Sat Mar 12 02:03:38 2011 UTC
# Line 183  Line 183 
183              string "}";  nl()              string "}";  nl()
184            end            end
185    
186      fun output (outS, S.Program{globals, globalInit, strands}) = let      fun output (outS, S.Program{globals, globalInit, strands, init}) = let
187            val ppStrm = PP.openOut {dst = outS, wid = 120}            val ppStrm = PP.openOut {dst = outS, wid = 120}
188            fun nl () = PP.newline ppStrm            fun nl () = PP.newline ppStrm
189            in            in
# Line 191  Line 191 
191                PP.string ppStrm "/* Simplified Program start */"; nl();                PP.string ppStrm "/* Simplified Program start */"; nl();
192                ppBlock (ppStrm, globals, globalInit);                ppBlock (ppStrm, globals, globalInit);
193                nl();                nl();
194    (* FIXME: print init *)
195                List.app (ppStrand ppStrm) strands;                List.app (ppStrand ppStrm) strands;
196                PP.string ppStrm "/* Program end */"; PP.newline ppStrm;                PP.string ppStrm "/* Program end */"; PP.newline ppStrm;
197              PP.closeBox ppStrm;              PP.closeBox ppStrm;

Legend:
Removed from v.608  
changed lines
  Added in v.609

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