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

SCM Repository

[diderot] Diff of /branches/ein16/src/compiler/high-to-mid/ProbeEin.sml
ViewVC logotype

Diff of /branches/ein16/src/compiler/high-to-mid/ProbeEin.sml

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

revision 4235, Tue Jul 19 22:26:44 2016 UTC revision 4236, Wed Jul 20 03:02:00 2016 UTC
# Line 299  Line 299 
299    
300      (* silly change in order of the product to match vis branch WorldtoSpace functions*)      (* silly change in order of the product to match vis branch WorldtoSpace functions*)
301      fun multiPs([P0,P1,P2],sx,body)= formBody(E.Sum(sx, setProd[P0,P1,P2,body]))      fun multiPs([P0,P1,P2],sx,body)= formBody(E.Sum(sx, setProd[P0,P1,P2,body]))
302         (* | multiPs([P0,P1],sx,body)=formBody(E.Sum(sx, setProd([P0,body,P1])))*)
303      (*      (*
304        | multiPs([P0,P1],sx,body)=formBody(E.Sum(sx, setProd([P0,body,P1])))        | multiPs([P0,P1],sx,body)= (print ("yap");formBody(E.Sum(sx, setProd([P1,body]))))*)
       *)  
305        | multiPs([P0,P1,P2,P3],sx,body)= formBody(E.Sum(sx, setProd[P0,P1,P2,P3,body]))        | multiPs([P0,P1,P2,P3],sx,body)= formBody(E.Sum(sx, setProd[P0,P1,P2,P3,body]))
306        | multiPs(Ps,sx,body)=formBody(E.Sum(sx,setProd([body]@Ps)))        | multiPs(Ps,sx,body)=formBody(E.Sum(sx,setProd([body]@Ps)))
307    

Legend:
Removed from v.4235  
changed lines
  Added in v.4236

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