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

SCM Repository

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

Diff of /branches/charisee_dev/src/compiler/low-il/ein-to-low.sml

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

revision 3655, Thu Feb 4 04:12:40 2016 UTC revision 3656, Thu Feb 4 18:15:06 2016 UTC
# Line 114  Line 114 
114                  val (lhs,e,args)=info                  val (lhs,e,args)=info
115                  val setT= lowSet.LowSet.empty                  val setT= lowSet.LowSet.empty
116                  val nextfnargs=(lhs,Ein.params e, args,vecIndex,id1,ix1,id2,ix2)                  val nextfnargs=(lhs,Ein.params e, args,vecIndex,id1,ix1,id2,ix2)
117                  (*val _ =print(String.concat["\nsubtraction:",P.printerE(e),String.concatWith","(List.map LowIL.Var.toString args)])*)                  val _ =print(String.concat["\nsubtraction:",P.printerE(e),String.concatWith","(List.map LowIL.Var.toString args)])
118                  in                  in
119                      iter(setT,index,index',EtoVec.subV,nextfnargs)                      iter(setT,index,index',EtoVec.subV,nextfnargs)
120                  end                  end
# Line 287  Line 287 
287    
288              |  (_::es,E.Opn(E.Prod,[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)]))              |  (_::es,E.Opn(E.Prod,[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)]))
289                  => handleProd all                  => handleProd all
290     (*
291              |  ( _,E.Sum([_], E.Opn(E.Prod,[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)])))              |  ( _,E.Sum([_], E.Opn(E.Prod,[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)])))
292                  =>  handleSumProd1 all                  =>  handleSumProd1 all
293              |  ( _ ,E.Sum([_,_],E.Opn( E.Prod,[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)])))              |  ( _ ,E.Sum([_,_],E.Opn( E.Prod,[E.Tensor(_ , i::ix), E.Tensor(_, j::jx)])))
294                  => handleSumProd2 all                  => handleSumProd2 all
295    *)
296              | (_,_ )=> runGeneralCase info              | (_,_ )=> runGeneralCase info
297              (*end case*))              (*end case*))
298    
# Line 310  Line 310 
310              |  (_,_ )=> gen b              |  (_,_ )=> gen b
311              (*end case*))              (*end case*))
312          in          in
313          if (sca) then ( "sca";runGeneralCase info) else ("vec:"; gen b)          if (sca) then ( print"ein-to-low sca";runGeneralCase info) else (print"ein-to-low vec:"; gen b)
314          end          end
315    
316  end (* local *)  end (* local *)

Legend:
Removed from v.3655  
changed lines
  Added in v.3656

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