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 4051, Sun Jun 26 22:33:17 2016 UTC revision 4052, Mon Jun 27 11:59:56 2016 UTC
# Line 233  Line 233 
233              indent out; prl(out, ["end ", Atom.toString name, "\n"])              indent out; prl(out, ["end ", Atom.toString name, "\n"])
234            end            end
235    
236      fun ppGlobal outS gv = (      fun ppGlobal outS gv = let
237            indent outS;            val ln = [
           prl(outS, [  
238                GlobalVarKind.toString(IR.GlobalVar.kind gv), " ", Ty.toString(GVar.ty gv),                GlobalVarKind.toString(IR.GlobalVar.kind gv), " ", Ty.toString(GVar.ty gv),
239                " ", GVar.uniqueName gv, "\n"                " ", GVar.uniqueName gv, "\n"
240              ]))                  ]
241              val ln = if GVar.isVarying gv then "varying " :: ln else ln
242              in
243                indent outS; prl(outS, ln)
244              end
245    
246      fun ppInput outS (Inputs.INP{var, name, init, ...}) = prl (outS, [      fun ppInput outS (Inputs.INP{var, name, init, ...}) = prl (outS, [
247              "  input ", GVar.uniqueName var, " (", name, ") = ", Inputs.initToString init, "\n"              "  input ", GVar.uniqueName var, " (", name, ") = ", Inputs.initToString init, "\n"

Legend:
Removed from v.4051  
changed lines
  Added in v.4052

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