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/ssa-pp-fn.sml
ViewVC logotype

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

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

revision 3754, Thu Apr 14 22:45:39 2016 UTC revision 3762, Fri Apr 15 21:09:15 2016 UTC
# Line 30  Line 30 
30      end      end
31    
32    (* if true, the output is in compact form *)    (* if true, the output is in compact form *)
33      val compact = ref false      val compact = ref true
34    (* FIXME: use a control to set this flag from the command-line *)
35    
36      fun indent (outS, i) = TextIO.output(outS, StringCvt.padLeft #" " i "")      fun indent (outS, i) = TextIO.output(outS, StringCvt.padLeft #" " i "")
37      fun incIndent (outS, i) = (outS, i+2)      fun incIndent (outS, i) = (outS, i+2)

Legend:
Removed from v.3754  
changed lines
  Added in v.3762

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