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 2506, Fri Nov 8 00:05:57 2013 UTC revision 2509, Tue Nov 12 21:24:35 2013 UTC
# Line 185  Line 185 
185                  (BV.op_probe,           fn (y, [_, Ty.DIM d, Ty.SHAPE dd], xs) =>                  (BV.op_probe,           fn (y, [_, Ty.DIM d, Ty.SHAPE dd], xs) =>
186                                              [assignEin(y, (mk.probe(dd,d,[d])),xs)]),                                              [assignEin(y, (mk.probe(dd,d,[d])),xs)]),
187                  (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)]),
188                  (BV.op_Dotimes,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) => let val x= print (Int.toString(d1))                  (BV.op_Dotimes,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) => let
189          val e= print (Int.toString(d2))  val x= print (String.concat[" d1:",Int.toString(d1)," d2:",Int.toString(d2),
190          val z= print (Int.toString(length(dd)))                                          " shape:",Int.toString(length(dd)), "\n"])
         val u= print "\n"  
191  in  in
192                                      [assignEin(y, mk.hessian(d1, dd),xs)] end ),                                      [assignEin(y, mk.hessian(d1, dd),xs)] end ),
193  (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) =>

Legend:
Removed from v.2506  
changed lines
  Added in v.2509

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