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 2922, Tue Mar 3 03:55:09 2015 UTC revision 2926, Tue Mar 3 22:38:29 2015 UTC
# Line 230  Line 230 
230                                              [assignEin(y, (mk.innerTT(dd1,dd2)),xs)]                                              [assignEin(y, (mk.innerTT(dd1,dd2)),xs)]
231                                          end),                                          end),
232    
233                  (BV.op_inner_ff,      fn (y,  [_,_,Ty.SHAPE dd1,Ty.DIM d,Ty.SHAPE dd2,_], xs) =>                  (BV.op_inner_tf,      fn (y,  [_,Ty.DIM d,Ty.SHAPE dd1,_,_], xs) =>
234                                              [assignEin(y, mk.innerFF(dd1,d,dd2),xs)]),                                                  [assignEin(y, mk.cross3FF,xs)]),
235    
236                  (BV.op_inner_ft,      fn (y,  [_,Ty.DIM d,Ty.SHAPE dd1,_,_], xs) =>                  (BV.op_inner_ft,      fn (y,  [_,Ty.DIM d,Ty.SHAPE dd1,_,_], xs) =>
237                                                  [assignEin(y, mk.cross3FF,xs)]),                                                  [assignEin(y, mk.cross3FF,xs)]),
238    
239                    (BV.op_inner_ff,      fn (y,  [_,_,Ty.SHAPE dd1,Ty.DIM d,Ty.SHAPE dd2,_], xs) =>
240                                                [assignEin(y, mk.innerFF(dd1,d,dd2),xs)]),
241    
242                  (BV.op_colon_tt,           fn (y, [sh1, sh2, _], xs) => let                  (BV.op_colon_tt,           fn (y, [sh1, sh2, _], xs) => let
243                                              val ty1 as DstTy.TensorTy dd1 = shapeVarToTensor sh1                                              val ty1 as DstTy.TensorTy dd1 = shapeVarToTensor sh1
244                                              val ty2 as DstTy.TensorTy dd2 = shapeVarToTensor sh2                                              val ty2 as DstTy.TensorTy dd2 = shapeVarToTensor sh2

Legend:
Removed from v.2922  
changed lines
  Added in v.2926

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