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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/cl-target/tree-to-cl.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/cl-target/tree-to-cl.sml

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

revision 2748, Wed Oct 1 21:16:56 2014 UTC revision 2749, Wed Oct 1 23:11:09 2014 UTC
# Line 219  Line 219 
219              | IL.E_Lit(Literal.String s) => CL.mkStr s              | IL.E_Lit(Literal.String s) => CL.mkStr s
220              | IL.E_Op(rator, args) => trOp (rator, trExps(env, args))              | IL.E_Op(rator, args) => trOp (rator, trExps(env, args))
221              | IL.E_Apply(f, args) => trApply(f, trExps(env, args))              | IL.E_Apply(f, args) => trApply(f, trExps(env, args))
222              | IL.E_Cons(Ty.TensorTy[n], args) => CL.mkApply(RN.mkVec n, trExps(env, args))              | IL.E_Cons(Ty.TensorTy[n], _ ,args) => CL.mkApply(RN.mkVec n, trExps(env, args))
223              | 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"])
224            (* end case *))            (* end case *))
225    
226      and trExps (env, exps) = List.map (fn exp => trExp(env, exp)) exps      and trExps (env, exps) = List.map (fn exp => trExp(env, exp)) exps
# Line 296  Line 296 
296                      ])]                      ])]
297                  end                  end
298    
299              | IL.E_Cons(Ty.TensorTy[n,m], args) => let              | IL.E_Cons(Ty.TensorTy[n,m], _,args) => let
300                (* matrices are represented as arrays of union<d><ty>_t vectors *)                (* matrices are represented as arrays of union<d><ty>_t vectors *)
301                  fun doRows (_, []) = []                  fun doRows (_, []) = []
302                    | doRows (i, e::es) =                    | doRows (i, e::es) =

Legend:
Removed from v.2748  
changed lines
  Added in v.2749

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