Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/c-util/tree-to-c-fn.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/c-util/tree-to-c-fn.sml

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

revision 2623, Thu May 15 20:01:40 2014 UTC revision 2624, Fri May 16 17:53:41 2014 UTC
# Line 142  Line 142 
142    
143              (*Do the same here? *)              (*Do the same here? *)
144              | (Op.subVec n ,[a,b]) =>  CL.mkBinOp(a, CL.#-, b)              | (Op.subVec n ,[a,b]) =>  CL.mkBinOp(a, CL.#-, b)
145              (*| (Op.addVec(n,ty),[a,b])      => CL.mkBinOp(a, CL.#+, b)*)              | (Op.addVec n,[a,b])    => CL.mkBinOp(a, CL.#+, b)
146    
147              (*Vector operators*)              (*Vector operators*)
148              | (Op.prodVec 2, args)   => CL.E_Apply(N.prod 2, args)              | (Op.prodVec 2, args)   => CL.E_Apply(N.prod 2, args)
# Line 159  Line 159 
159              | (Op.sumVec _,_)        => raise Fail"what do I do?"              | (Op.sumVec _,_)        => raise Fail"what do I do?"
160    
161              (*              (*
162   | C of int  
163   | V of int * int * ty * ty   | V of int * int * ty * ty
164   | S of int * ty * ty   | S of int * ty * ty
   
  | (Op.cons(ty,n))=>  
165   | (Op.imgAddr of ImageInfo.info * ty * int   | (Op.imgAddr of ImageInfo.info * ty * int
166   | (Op.imgLoad of ImageInfo.info * int * int   | (Op.imgLoad of ImageInfo.info * int * int
167    
# Line 264  Line 262 
262              | IL.E_Apply(f, args) => trApply(f, trExps(env, args))              | IL.E_Apply(f, args) => trApply(f, trExps(env, args))
263              | IL.E_Cons(Ty.TensorTy[n], args) => CL.mkApply(N.mkVec n, trExps(env, args))              | IL.E_Cons(Ty.TensorTy[n], args) => CL.mkApply(N.mkVec n, trExps(env, args))
264              | IL.E_Cons(ty, _) => raise Fail(concat["E_Cons(", Ty.toString ty, ", _) in expression"])              | IL.E_Cons(ty, _) => raise Fail(concat["E_Cons(", Ty.toString ty, ", _) in expression"])
265    
266            (* end case *))            (* end case *))
267    
268      and trExps (env, exps) = List.map (fn exp => trExp(env, exp)) exps      and trExps (env, exps) = List.map (fn exp => trExp(env, exp)) exps

Legend:
Removed from v.2623  
changed lines
  Added in v.2624

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