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

SCM Repository

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

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

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

revision 4210, Thu Jul 14 18:01:19 2016 UTC revision 4215, Fri Jul 15 01:47:19 2016 UTC
# Line 273  Line 273 
273          val index=Ein.index e          val index=Ein.index e
274          val info=(lhs,e,args)          val info=(lhs,e,args)
275          val all=(b,index,info)          val all=(b,index,info)
276          (*debug val _ =print(String.concat["\n\n*** ", lhs,"=", P.printerE(e), String.concatWith"," (List.map (fn e=> LowIL.Var.name(e))args )])*)          val _ =print(String.concat["\n\n*** ", lhs,"=", P.printerE(e), String.concatWith"," (List.map (fn e=> LowIL.Var.name(e))args )])
277          fun gen body=(case ([3,4],body)          fun gen body=(case ([3,4],body)
278              of (_::es,E.Op2(E.Sub,E.Tensor(_,i::ix),E.Tensor(_,j::jx)))              of (_::es,E.Op2(E.Sub,E.Tensor(_,i::ix),E.Tensor(_,j::jx)))
279                  => handleSub all                  => handleSub all
280    
281              |  (_::es, E.Opn(E.Add,(E.Tensor(_,i::ix)::_)))              |  (_::es, E.Opn(E.Add,(E.Tensor(_,E.V _::ix)::_)))
282                  =>  handleAdd all                  =>  handleAdd all
283    
284              | (_::es,E.Op1(E.Neg,E.Tensor(_ ,i::ix)))              | (_::es,E.Op1(E.Neg,E.Tensor(_ ,i::ix)))

Legend:
Removed from v.4210  
changed lines
  Added in v.4215

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