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 2667, Thu Jun 5 18:54:12 2014 UTC revision 2668, Thu Jun 12 03:29:04 2014 UTC
# Line 85  Line 85 
85        | S_Active        | S_Active
86        | S_Stabilize        | S_Stabilize
87        | S_Die        | S_Die
88        | S_Mk of var *exp (*Pass var to expression*)  
89    
90      and exp      and exp
91        = E_State of state_var        = E_State of state_var
# Line 94  Line 94 
94        | E_Op of Op.rator * exp list        | E_Op of Op.rator * exp list
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 int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)        | E_LoadVec of bool*int * int * exp * exp   (*aligned, Type:NativeVecTy newVec,  originalVec, addr, offset *)
98        | E_LoadVecAligned  of int * int * exp * exp   (*Type:NativeVecTy newVec,  originalVec, addr, offset *)        | E_mkVec   of bool*int *int * exp*Ty.ty* exp
99        | E_mkVec   of int *int  *Ty.ty* exp list   (*vec length,  originalVec,Type:vectorLength(list),  list of ops*)              (*aligned, vec length,  originalVec,indexAt,Type:vectorLength(list),  single op*)
100        | E_mkVecAligned  of int *int  *Ty.ty* exp list   (*vec length,  originalVec,Type:vectorLength(list),  list of ops*)  
101    
102    
103    
# Line 171  Line 171 
171    
172      fun q m=Int.toString(m)      fun q m=Int.toString(m)
173    
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,pieces,args)) =let       | toString(E_mkVec(_,tyNew, tyOrig,indexAt,pieces,args)) =let
177          val a=String.concatWith "," (List.map toString args)          val a= toString args
178          in          in
179              String.concat["mkVec:",q tyNew,"|",q tyOrig,"[",              String.concat["mkVec:",q tyNew,"|",q tyOrig,"@",toString indexAt,"[",
             Ty.toString pieces ,"]\n\t",a]  
         end  
      |   toString(E_LoadVecAligned(tyNew, tyOrig, arg, offset)) = String.concat["LDVecAligned<",q tyNew ,  
             ":",q  tyOrig, ">", "(", toString arg, ",", toString offset, ")"]  
       | toString(E_mkVecAligned(tyNew, tyOrig,pieces,args)) =let  
         val a=String.concatWith "," (List.map toString args)  
             in  
             String.concat["mkVecAligned:",q tyNew,"|",q tyOrig,"[",  
180              Ty.toString pieces ,"]\n\t",a]              Ty.toString pieces ,"]\n\t",a]
181              end              end
182    
# Line 197  Line 189 
189       | toString (E_Lit lit) = Literal.toString lit       | toString (E_Lit lit) = Literal.toString lit
190    
191      fun toStringS(S_Assign( _,e))=String.concat["Assignments=",toString e]      fun toStringS(S_Assign( _,e))=String.concat["Assignments=",toString e]
192      | toStringS(S_Mk(v,e))=String.concat["StV",toString e]  
193    
194    
195    

Legend:
Removed from v.2667  
changed lines
  Added in v.2668

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