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 3173, Sun Mar 29 23:39:25 2015 UTC revision 3174, Mon Mar 30 11:46:58 2015 UTC
# Line 248  Line 248 
248              |  ( _ ,E.Sum([_,_], E.Prod[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)])) =>              |  ( _ ,E.Sum([_,_], E.Prod[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)])) =>
249                  handleSumProd2 all                  handleSumProd2 all
250              |  ( _ ,E.Sum(x,E.Prod(E.Img(Vid,_,_)::E.Krn(Hid,_,_)::_)))    =>              |  ( _ ,E.Sum(x,E.Prod(E.Img(Vid,_,_)::E.Krn(Hid,_,_)::_)))    =>
251                  iter(index,index,evalField,(body,info))                  (
252                    iter(index,index,evalField,(body,info)))
253              |  (_,_ )=> runGeneralCase info              |  (_,_ )=> runGeneralCase info
254              (*end case*))              (*end case*))
255    
256          val (_,code) =gen b          val (_,code) =gen b
257    
258          in (case code          in (case code
259              of(* []=> []              of(* []=> []
260              | *) _=> let (*need to reassign the last assgn*)              | *) _=> let (*need to reassign the last assgn*)

Legend:
Removed from v.3173  
changed lines
  Added in v.3174

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