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 4256, Mon Jul 25 14:49:22 2016 UTC revision 4257, Mon Jul 25 15:23:32 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 )]) *)          (* DEBUG*) 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

Legend:
Removed from v.4256  
changed lines
  Added in v.4257

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