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 2670, Wed Jul 9 21:54:54 2014 UTC revision 2671, Fri Jul 18 18:57:06 2014 UTC
# Line 95  Line 95 
95        | E_Apply of MathFuns.name * exp list        | E_Apply of MathFuns.name * exp list
96        | E_Cons of Ty.ty * exp list        | E_Cons of Ty.ty * exp list
97        | E_LoadVec of bool*int * int * exp * exp   (*aligned, Type:NativeVecTy newVec,  originalVec, addr, offset *)        | E_LoadVec of bool*int * int * exp * exp   (*aligned, Type:NativeVecTy newVec,  originalVec, addr, offset *)
98        | E_mkVec   of bool*int *int * exp*Ty.ty* exp list        | E_mkVec   of bool*int *int * exp*Ty.ty* exp
99              (*aligned, vec length,  originalVec,indexAt,Type:vectorLength(list),  single op*)              (*aligned, vec length,  originalVec,indexAt,Type:vectorLength(list),  single op exp*)
100          | E_mkVec2   of bool*int *int * exp*Ty.ty* exp list
101                (*aligned, -,-, -, VectorLengths, op exps*)
102    
103    
104      and var = V of {      and var = V of {
# Line 174  Line 174 
174      fun toString(E_LoadVec(_,tyNew, tyOrig, arg, offset)) = String.concat["LDVec<",q tyNew ,      fun toString(E_LoadVec(_,tyNew, tyOrig, arg, offset)) = String.concat["LDVec<",q tyNew ,
175          ":",q  tyOrig, ">", "(", toString arg, ",", toString offset, ")"]          ":",q  tyOrig, ">", "(", toString arg, ",", toString offset, ")"]
176       | toString(E_mkVec(_,tyNew, tyOrig,indexAt,pieces,args)) =let       | toString(E_mkVec(_,tyNew, tyOrig,indexAt,pieces,args)) =let
177            val a=  toString args
178            in
179                String.concat["mkVec:",q tyNew,"|",q tyOrig,"@",toString indexAt,"[",
180                Ty.toString pieces ,"]\n\t",a]
181            end
182        | toString(E_mkVec2(_,tyNew, tyOrig,indexAt,pieces,args)) =let
183          val a= String.concatWith "," (List.map toString args)          val a= String.concatWith "," (List.map toString args)
184          in          in
185              String.concat["mkVec:",q tyNew,"|",q tyOrig,"@",toString indexAt,"[",              String.concat["mkVec:",q tyNew,"|",q tyOrig,"@",toString indexAt,"[",

Legend:
Removed from v.2670  
changed lines
  Added in v.2671

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