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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/ein-to-low.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/ein-to-low.sml

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

revision 3196, Fri May 29 18:42:37 2015 UTC revision 3197, Tue Jun 2 17:11:42 2015 UTC
# Line 246  Line 246 
246          val info=(lhs,e,args)          val info=(lhs,e,args)
247          val all=(b,index,info)          val all=(b,index,info)
248          fun gen body=(case (index,body)          fun gen body=(case (index,body)
249              of(* ([3,3],_) => runGeneralCase info              of ([3,3],_) => runGeneralCase info
250              | (_, E.Prod(E.Tensor(_,_::_::_)::_))=> runGeneralCase info              | (_, E.Prod(E.Tensor(_,_::_::_)::_))=> runGeneralCase info
251              | (_,E.Sum(_,E.Prod(E.Tensor(_,_::_::_)::_)))=> runGeneralCase info              | (_,E.Sum(_,E.Prod(E.Tensor(_,_::_::_)::_)))=> runGeneralCase info
252              | (_,E.Sum(_,E.Prod(_::E.Tensor(_,_::_::_)::_)))=> runGeneralCase info              | (_,E.Sum(_,E.Prod(_::E.Tensor(_,_::_::_)::_)))=> runGeneralCase info
# Line 255  Line 255 
255                  handleSub all                  handleSub all
256              |  (_::es, E.Add(E.Tensor(_,i::ix)::_))                         =>              |  (_::es, E.Add(E.Tensor(_,i::ix)::_))                         =>
257                  handleAdd all                  handleAdd all
258        (*
259              | (_::es,E.Neg(E.Tensor(_ ,i::ix)))                          =>              | (_::es,E.Neg(E.Tensor(_ ,i::ix)))                          =>
260              handleNeg all              handleNeg all
261              | (_::es, E.Prod[E.Tensor(s, []), E.Tensor(v, j::jx)])         =>              | (_::es, E.Prod[E.Tensor(s, []), E.Tensor(v, j::jx)])         =>
# Line 271  Line 271 
271              |  ( _ ,E.Sum(x,E.Prod(E.Img(Vid,_,_)::E.Krn(Hid,_,_)::_)))    =>              |  ( _ ,E.Sum(x,E.Prod(E.Img(Vid,_,_)::E.Krn(Hid,_,_)::_)))    =>
272                  ( ("\n"^P.printbody b);                  ( ("\n"^P.printbody b);
273                  iter(index,index,evalField,(body,info)))                  iter(index,index,evalField,(body,info)))
274        *)
275              | *) (_,_ )=> runGeneralCase info              |  (_,_ )=> runGeneralCase info
276              (*end case*))              (*end case*))
277    
278          val (_,code) =gen b          val (_,code) =gen b

Legend:
Removed from v.3196  
changed lines
  Added in v.3197

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