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

SCM Repository

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

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

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

revision 2679, Tue Jul 29 04:18:35 2014 UTC revision 2680, Wed Aug 6 00:51:53 2014 UTC
# Line 52  Line 52 
52              | toS (IL.E_LoadVec(A,tyNew, tyOrig, arg, offset), l) =              | toS (IL.E_LoadVec(A,tyNew, tyOrig, arg, offset), l) =
53                      "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("                      "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
54                        :: argsToS (",", "(", [arg, offset], ")", l)                        :: argsToS (",", "(", [arg, offset], ")", l)
55                | toS (IL.E_LoadArr(A,tyNew, tyOrig, arg, offset), l) =
56                            "LdArr<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
57                                :: argsToS (",", "(", [arg, offset], ")", l)
58              | toS (IL.E_mkVec(A,tyNew, tyOrig, indexAt,pieces, args), l) =let              | toS (IL.E_mkVec(A,tyNew, tyOrig, indexAt,pieces, args), l) =let
59                  val m = argsToS (",\n\t","(", [args], ")", l)                  val m = argsToS (",\n\t","(", [args], ")", l)
60                  in                  in
# Line 59  Line 62 
62                    ">\n\t" :: m                    ">\n\t" :: m
63                  end                  end
64    
65              | toS (IL.E_mkVec2(A,tyNew, tyOrig, indexAt,pieces, args), l) =let              | toS (IL.E_StoreVectoArr(_,A,tyNew, tyOrig, indexAt,pieces, args), l) =let
66                        val m = argsToS (",\n\t","(", args, ")", l)                        val m = argsToS (",\n\t","(", args, ")", l)
67                        in                        in
68                        "mkVec<" ::itos tyNew :: ":" :: itos tyOrig ::                        "StoreVectoArr<" ::itos tyNew :: ":" :: itos tyOrig ::
69                              ">\n\t" :: m
70                              end
71                | toS (IL.E_StoreVectoVec(_,A,tyNew, tyOrig, indexAt,pieces, args), l) =let
72                              val m = argsToS (",\n\t","(", args, ")", l)
73                              in
74                              "StoreVectoVec<" ::itos tyNew :: ":" :: itos tyOrig ::
75                            ">\n\t" :: m                            ">\n\t" :: m
76                            end                            end
77    
# Line 171  Line 180 
180              | IL.S_Active => prln (out, ["active;\n"])              | IL.S_Active => prln (out, ["active;\n"])
181              | IL.S_Stabilize => prln (out, ["stabilize;\n"])              | IL.S_Stabilize => prln (out, ["stabilize;\n"])
182              | IL.S_Die => prln (out, ["die;\n"])              | IL.S_Die => prln (out, ["die;\n"])
183                | IL.S_StoreVectoArr(x,A,tyNew, tyOrig, indexAt,pieces, args) =>
184                       prln(out, "StoreVectoArr<" ::Var.name x:: " = "::itos tyNew :: ":" :: itos tyOrig ::[">\n\t" ])
185            (* end case *))            (* end case *))
186    
187      fun statement (outS, stm) = ppStm((outS, 0), stm)      fun statement (outS, stm) = ppStm((outS, 0), stm)

Legend:
Removed from v.2679  
changed lines
  Added in v.2680

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