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

SCM Repository

[diderot] Diff of /branches/lamont/src/compiler/tree-il/tree-il-pp.sml
ViewVC logotype

Diff of /branches/lamont/src/compiler/tree-il/tree-il-pp.sml

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

revision 2297, Fri Mar 15 22:05:31 2013 UTC revision 2298, Fri Mar 15 22:18:22 2013 UTC
# Line 33  Line 33 
33    
34      fun expToString e = let      fun expToString e = let
35           fun toStringSets(sets) = let           fun toStringSets(sets) = let
36         fun ppSetsList([]) = []                 fun ppSetsList [] = []
37           | ppSetsList(x::[]) = (case x                   | ppSetsList [x] = (case x
38              of IL.SS_All => ["all"]              of IL.SS_All => ["all"]
39               | IL.SS_Active => ["active"]               | IL.SS_Active => ["active"]
40               | IL.SS_Stable => ["stable"])               | IL.SS_Stable => ["stable"])
# Line 153  Line 153 
153                  prln(out, ["(", IL.stateVarToString x]);                  prln(out, ["(", IL.stateVarToString x]);
154                  List.app (fn x => prl(out, [",", IL.stateVarToString x])) xs;                  List.app (fn x => prl(out, [",", IL.stateVarToString x])) xs;
155                  prl (out, [") = ", expToString e, ";\n"]))                  prl (out, [") = ", expToString e, ";\n"]))
 (* DEPRECATED  
             | IL.S_LoadImage(x, dim, exp) =>  
                 prln (out, [  
                     Var.name x, " = load<", Int.toString dim, "> (", expToString exp, ");\n"  
                   ])  
 *)  
156              | IL.S_LoadNrrd(x, ty, nrrd) =>              | IL.S_LoadNrrd(x, ty, nrrd) =>
157                  prln (out, [                  prln (out, [
158                      Var.name x, " = load<", Ty.toString ty, "> (\"", String.toString nrrd, "\");\n"                      Var.name x, " = load<", Ty.toString ty, "> (\"", String.toString nrrd, "\");\n"

Legend:
Removed from v.2297  
changed lines
  Added in v.2298

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