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 4013, Tue Jun 21 17:16:47 2016 UTC revision 4014, Tue Jun 21 18:58:13 2016 UTC
# Line 240  Line 240 
240                " ", GVar.uniqueName gv, "\n"                " ", GVar.uniqueName gv, "\n"
241              ]))              ]))
242    
243      fun ppInput outS inp = prl (outS, ["input ", Inputs.toString inp, "\n"])      fun ppInput outS (Inputs.INP{var, name, init, ...}) = prl (outS, [
244                "  input ", GVar.uniqueName var, " (", name, ") = ", Inputs.initToString init, "\n"
245              ])
246    
247      fun output (outS, msg, prog) = let      fun output (outS, msg, prog) = let
248            val IR.Program{            val IR.Program{

Legend:
Removed from v.4013  
changed lines
  Added in v.4014

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