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

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

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

revision 2662, Fri May 30 16:55:05 2014 UTC revision 2663, Fri May 30 18:02:41 2014 UTC
# Line 97  Line 97 
97        | E_Apply of MathFuns.name * exp list        | E_Apply of MathFuns.name * exp list
98        | E_Cons of Ty.ty * exp list        | E_Cons of Ty.ty * exp list
99        | E_LoadVec of int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)        | E_LoadVec of int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)
100       (* | E_FillVec of int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)        | E_LoadVecAligned  of int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)
       | E_SliceVec of int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)  
      *)  
101        | E_mkVec   of int *int  *Ty.ty* exp list   (*vec length,  originalVec,Type:vectorLength(list),  list of ops*)        | E_mkVec   of int *int  *Ty.ty* exp list   (*vec length,  originalVec,Type:vectorLength(list),  list of ops*)
102          | E_mkVecAligned  of int *int  *Ty.ty* exp list   (*vec length,  originalVec,Type:vectorLength(list),  list of ops*)
103    
104    
105    
# Line 182  Line 181 
181              String.concat["mkVec:",q tyNew,"|",q tyOrig,"[",              String.concat["mkVec:",q tyNew,"|",q tyOrig,"[",
182              Ty.toString pieces ,"]\n\t",a]              Ty.toString pieces ,"]\n\t",a]
183          end          end
184         |   toString(E_LoadVecAligned(tyNew, tyOrig, arg, offset)) = String.concat["LDVecAligned<",q tyNew ,
185                ":",q  tyOrig, ">", "(", toString arg, ",", toString offset, ")"]
186          | toString(E_mkVecAligned(tyNew, tyOrig,pieces,args)) =let
187            val a=String.concatWith "," (List.map toString args)
188                in
189                String.concat["mkVecAligned:",q tyNew,"|",q tyOrig,"[",
190                Ty.toString pieces ,"]\n\t",a]
191                end
192    
193       | toString (E_Op(rator, args)) = String.concat[Op.toString rator,"(",       | toString (E_Op(rator, args)) = String.concat[Op.toString rator,"(",
194          String.concatWith"," (List.map toString args),")"]          String.concatWith"," (List.map toString args),")"]
195       | toString (E_Cons(ty, args)) =String.concat ["Cons:", Ty.toString ty, "(",       | toString (E_Cons(ty, args)) =String.concat ["Cons:", Ty.toString ty, "(",

Legend:
Removed from v.2662  
changed lines
  Added in v.2663

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