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 2680, Wed Aug 6 00:51:53 2014 UTC revision 2681, Sun Aug 24 18:59:07 2014 UTC
# Line 49  Line 49 
49              | toS (IL.E_Apply(f, args), l) = MathFuns.toString f :: argsToS (",","(", args, ")", l)              | toS (IL.E_Apply(f, args), l) = MathFuns.toString f :: argsToS (",","(", args, ")", l)
50              | toS (IL.E_Cons(ty, args), l) =              | toS (IL.E_Cons(ty, args), l) =
51                  "<" :: Ty.toString ty :: ">" :: argsToS (",","{", args, "}", l)                  "<" :: Ty.toString ty :: ">" :: argsToS (",","{", args, "}", l)
52              | toS (IL.E_LoadVec(A,tyNew, tyOrig, arg, offset), l) =                      | toS (IL.E_tmp args,l)="tmp"::l
                     "LdVec<" :: itos tyNew :: ":" :: itos tyOrig :: ">("  
                       :: argsToS (",", "(", [arg, offset], ")", l)  
53              | toS (IL.E_LoadArr(A,tyNew, tyOrig, arg, offset), l) =              | toS (IL.E_LoadArr(A,tyNew, tyOrig, arg, offset), l) =
54                          "LdArr<" :: itos tyNew :: ":" :: itos tyOrig :: ">("                          "LdArr<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
55                              :: argsToS (",", "(", [arg, offset], ")", l)                              :: argsToS (",", "(", [arg, offset], ")", l)
             | toS (IL.E_mkVec(A,tyNew, tyOrig, indexAt,pieces, args), l) =let  
                 val m = argsToS (",\n\t","(", [args], ")", l)  
                 in  
                   "mkVec<" ::itos tyNew :: ":" :: itos tyOrig ::  
                   ">\n\t" :: m  
                 end  
   
             | toS (IL.E_StoreVectoArr(_,A,tyNew, tyOrig, indexAt,pieces, args), l) =let  
                       val m = argsToS (",\n\t","(", args, ")", l)  
                       in  
                       "StoreVectoArr<" ::itos tyNew :: ":" :: itos tyOrig ::  
                           ">\n\t" :: m  
                           end  
             | toS (IL.E_StoreVectoVec(_,A,tyNew, tyOrig, indexAt,pieces, args), l) =let  
                           val m = argsToS (",\n\t","(", args, ")", l)  
                           in  
                           "StoreVectoVec<" ::itos tyNew :: ":" :: itos tyOrig ::  
                               ">\n\t" :: m  
                               end  
   
56                      in                      in
57              String.concat (toS (e, []))              String.concat (toS (e, []))
58            end            end
# Line 180  Line 158 
158              | IL.S_Active => prln (out, ["active;\n"])              | IL.S_Active => prln (out, ["active;\n"])
159              | IL.S_Stabilize => prln (out, ["stabilize;\n"])              | IL.S_Stabilize => prln (out, ["stabilize;\n"])
160              | IL.S_Die => prln (out, ["die;\n"])              | IL.S_Die => prln (out, ["die;\n"])
161              | IL.S_StoreVectoArr(x,A,tyNew, tyOrig, indexAt,pieces, args) =>              | IL.S_StoreVec(x,A,tyNew, tyOrig, indexAt,pieces, args,true) =>
162                     prln(out, "StoreVectoArr<" ::Var.name x:: " = "::itos tyNew :: ":" :: itos tyOrig ::[">\n\t" ])                     prln(out, "Statement-StoreVectoArr<" ::Var.name x:: " = "::itos tyNew :: ":" :: itos tyOrig ::[">\n\t" ])
163                | IL.S_StoreVec(x,A,tyNew, tyOrig, indexAt,pieces, args,_) =>
164                           prln(out, "Statement-StoreVectoVec<" ::Var.name x:: " = "::itos tyNew :: ":" :: itos tyOrig ::[">\n\t" ])
165    
166               (* end case *))               (* end case *))
167    
168      fun statement (outS, stm) = ppStm((outS, 0), stm)      fun statement (outS, stm) = ppStm((outS, 0), stm)

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

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