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 2515, Mon Dec 2 03:42:14 2013 UTC revision 2525, Tue Jan 21 19:14:22 2014 UTC
# Line 189  Line 189 
189                  (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) => let
190                                      val x= print (String.concat[" d1:",Int.toString(d1)," d2:",Int.toString(d2),                                      val x= print (String.concat[" d1:",Int.toString(d1)," d2:",Int.toString(d2),
191                                          " shape:",Int.toString(length(dd)), "\n"])                                          " shape:",Int.toString(length(dd)), "\n"])
192                                            val g=print "*******\n"
193                                            val gg2=print(Int.toString(length(xs)))
194                          in                          in
195                                      [assignEin(y, mk.dotimes(d1, dd@[d2]),xs)] end ),                                      [assignEin(y, mk.dotimes(d1, dd@[d2]),xs)] end ),
196                  (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) =>let
197                                          [assignEin(y, mk.divergence(d1, dd),xs)]),                                          val g=print "*******\n"
198                                            val gg2=print(Int.toString(length(xs)))
199                                                    in
200                                            [assignEin(y, mk.divergence(d1, dd),xs)] end ),
201    
202    
203                  (BV.op_norm,            fn (y, [sv], xs) => (case shapeVarToTensor sv                  (BV.op_norm,            fn (y, [sv], xs) => (case shapeVarToTensor sv

Legend:
Removed from v.2515  
changed lines
  Added in v.2525

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