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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/ein/order-ein.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/ein/order-ein.sml

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

revision 2484, Sun Oct 20 11:50:37 2013 UTC revision 2485, Mon Oct 21 16:34:57 2013 UTC
# Line 28  Line 28 
28          of E.Const _ => body          of E.Const _ => body
29          | E.Tensor _=> body          | E.Tensor _=> body
30          | E.Field _ => body          | E.Field _ => body
31          | E.Kernel _ => body          | E.Krn _ => body
32          | E.Delta _ => body          | E.Delta _ => body
33          | E.Value _ => body          | E.Value _ => body
34          | E.Epsilon _=>body          | E.Epsilon _=>body
# Line 59  Line 59 
59          | E.Apply(e1,e2)=> E.Apply(e1, order e2)          | E.Apply(e1,e2)=> E.Apply(e1, order e2)
60          | E.Conv(e1,mx)=> E.Conv(order e1, mx)          | E.Conv(e1,mx)=> E.Conv(order e1, mx)
61          | E.Probe(e1,e2)=> E.Probe(e1,order e2)          | E.Probe(e1,e2)=> E.Probe(e1,order e2)
62          | E.Image es => E.Image(List.map order es)          | E.Img _ => body
63    
64       (*   | E.Prod(E.Sum(c1,esum1)::E.Sum(c2,esum2)::es)=> let       (*   | E.Prod(E.Sum(c1,esum1)::E.Sum(c2,esum2)::es)=> let
65              val esum1'=order esum1              val esum1'=order esum1
66              val esum2'=order esum2              val esum2'=order esum2

Legend:
Removed from v.2484  
changed lines
  Added in v.2485

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