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/tString.sml
ViewVC logotype

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

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

revision 2631, Fri May 23 18:13:12 2014 UTC revision 2632, Fri May 23 18:57:58 2014 UTC
# Line 12  Line 12 
12    
13      fun q m=Int.toString(m)      fun q m=Int.toString(m)
14    
15      fun toStringEx(T.E_LoadVec(tyNew, tyOrig,offset,arg))=      fun toStringEx (T.E_LoadVec(tyNew, tyOrig, arg, offset)) =
16          String.concat["LDVec:", q tyNew ,"|",q  tyOrig,Int.toString(offset),"(",toStringEx arg,")"]            String.concat["LDVec<", q tyNew ,":",q  tyOrig, ">", "(", toStringEx arg, ",", toStringEx offset, ")"]
17        | toStringEx(T.E_mkVec(tyNew, tyOrig,pieces,args)) =let        | toStringEx(T.E_mkVec(tyNew, tyOrig,pieces,args)) =let
18          val a=String.concatWith "," (List.map toStringEx args)          val a=String.concatWith "," (List.map toStringEx args)
19          in          in

Legend:
Removed from v.2631  
changed lines
  Added in v.2632

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