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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/translate/translate-basis.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/translate/translate-basis.sml

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

revision 2668, Thu Jun 12 03:29:04 2014 UTC revision 2830, Tue Nov 18 17:48:05 2014 UTC
# Line 169  Line 169 
169                                              [assignEin(y, mk.scaleField(d, dd),xs)]),                                              [assignEin(y, mk.scaleField(d, dd),xs)]),
170                  (BV.mul_fr,             fn (y, [_,Ty.DIM d, Ty.SHAPE dd], [f, s]) =>                  (BV.mul_fr,             fn (y, [_,Ty.DIM d, Ty.SHAPE dd], [f, s]) =>
171                                              [assignEin(y, mk.scaleField(d, dd),[s,f])]),                                              [assignEin(y, mk.scaleField(d, dd),[s,f])]),
 (*MARK-mul_ff*)  
172                  (BV.mul_ss,             fn (y, [_,Ty.DIM d], xs) =>                  (BV.mul_ss,             fn (y, [_,Ty.DIM d], xs) =>
173                                          [assignEin(y, mk.mulFieldss d,xs)]),                                          [assignEin(y, mk.mulFieldss d,xs)]),
174                  (BV.mul_sf,             fn (y, [_,Ty.DIM d, Ty.SHAPE dd], xs) =>                  (BV.mul_sf,             fn (y, [_,Ty.DIM d, Ty.SHAPE dd], xs) =>
# Line 211  Line 210 
210                                              [assignEin(y, (mk.probe(dd,d)),xs)]),                                              [assignEin(y, (mk.probe(dd,d)),xs)]),
211                  (BV.op_D,               fn (y, [_, Ty.DIM d], xs) =>  [assignEin(y, mk.grad([d]),xs)]),                  (BV.op_D,               fn (y, [_, Ty.DIM d], xs) =>  [assignEin(y, mk.grad([d]),xs)]),
212    
213                  (BV.op_Dotimes,         fn (y, [_, Ty.DIM d1, Ty.SHAPE dd, Ty.DIM d2], xs) => let                  (BV.op_Dotimes,         fn (y, [_, Ty.DIM d1, Ty.SHAPE dd, Ty.DIM d2], xs) =>                                    [assignEin(y, mk.dotimes(d1, dd@[d2]),xs)]),
                                     val x= print (String.concat[" d1:",Int.toString(d1)," d2:",Int.toString(d2),  
                                         " shape:",Int.toString(length(dd)), "\n"])  
                                         val g=print "*******\n"  
                                         val gg2=print(Int.toString(length(xs)))  
                         in  
                                     [assignEin(y, mk.dotimes(d1, dd@[d2]),xs)] end ),  
214                  (BV.op_Ddot,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) =>                  (BV.op_Ddot,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) =>
215                                          [assignEin(y, mk.divergence(d1, dd),xs)] ),                                          [assignEin(y, mk.divergence(d1, dd),xs)] ),
216    

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

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