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 2615, Wed May 14 00:22:49 2014 UTC revision 2620, Thu May 15 15:14:58 2014 UTC
# Line 134  Line 134 
134              | (Op.IDiv , [a, b]) => CL.mkBinOp(a, CL.#/, b)              | (Op.IDiv , [a, b]) => CL.mkBinOp(a, CL.#/, b)
135              | (Op.INeg , [a]) => CL.mkUnOp(CL.%-, a)              | (Op.INeg , [a]) => CL.mkUnOp(CL.%-, a)
136    
137                (*Scalars, but reals *)
138                | (Op.addSca,[a,b])      => CL.mkBinOp(a, CL.#+, b)
139                | (Op.subSca, [a, b])    => CL.mkBinOp(a, CL.#-, b)
140                | (Op.prodSca, [a, b])   => CL.mkBinOp(a, CL.#*, b)
141                | (Op.divSca, [a, b])    => CL.mkBinOp(a, CL.#/, b)
142    
143   (*   (*
144              | (Op.addVec(dim),[a,b]) => CL.E_Apply(N.dot d, args)   | (Op.addVec(n,shape),[a,b]) => CL.E_Apply(N.dot d, args)
             | (Op.addSca,[a,b])      =>  
145   | C of int   | C of int
146   | V of int * int * ty * ty   | V of int * int * ty * ty
147   | S of int * ty * ty   | S of int * ty * ty
148    
  | (Op.subSca, [a, b]) =>  
  | (Op.prodSca, [a, b]) =>  
  | (Op.divSca, [a, b]) =>  
149   | (Op.cons(ty,n))=>   | (Op.cons(ty,n))=>
150   | (Op.addVec dim, [a, b]) =>  
151   | (Op.subVec dim, [a, b]) =>   | (Op.subVec dim, [a, b]) =>
152   | (Op.prodVec dim, [a, b]) => CL.E_Apply(N.dot d, args)   | (Op.prodVec dim, [a, b]) => CL.E_Apply(N.dot d, args)
153   | (Op.prodScaV dim, [a, b]) =>   | (Op.prodScaV dim, [a, b]) =>

Legend:
Removed from v.2615  
changed lines
  Added in v.2620

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