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

SCM Repository

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

Diff of /branches/charisee/src/compiler/high-il/app-ein.sml

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

revision 2602, Wed Apr 23 20:01:52 2014 UTC revision 2603, Thu Apr 24 03:58:37 2014 UTC
# Line 77  Line 77 
77          | Ein.Epsilon(i, j, k) =>Ein.Epsilon(mapSingle i, mapSingle j, mapSingle k)          | Ein.Epsilon(i, j, k) =>Ein.Epsilon(mapSingle i, mapSingle j, mapSingle k)
78          | Ein.Sum(c,esum)=> Ein.Sum(mapSum c, apply esum)          | Ein.Sum(c,esum)=> Ein.Sum(mapSum c, apply esum)
79          | Ein.Neg e => Ein.Neg(apply e)          | Ein.Neg e => Ein.Neg(apply e)
80            | Ein.Lift e => Ein.Lift(apply e)
81          | Ein.Add es => Ein.Add(List.map apply es)          | Ein.Add es => Ein.Add(List.map apply es)
82          | Ein.Sub(e1, e2) => Ein.Sub(apply e1, apply e2)          | Ein.Sub(e1, e2) => Ein.Sub(apply e1, apply e2)
83          | Ein.Prod es => Ein.Prod(List.map apply es)          | Ein.Prod es => Ein.Prod(List.map apply es)
# Line 148  Line 149 
149          | Ein.Value _=> e          | Ein.Value _=> e
150          | Ein.Epsilon(i, j, k) => e          | Ein.Epsilon(i, j, k) => e
151          | Ein.Sum(c,esum)=> (sumIndex:=sumI(c);  Ein.Sum( c, apply esum))          | Ein.Sum(c,esum)=> (sumIndex:=sumI(c);  Ein.Sum( c, apply esum))
152            | Ein.Lift e => Ein.Lift(apply e)
153          | Ein.Neg e => Ein.Neg(apply e)          | Ein.Neg e => Ein.Neg(apply e)
154          | Ein.Add es => Ein.Add(List.map apply es)          | Ein.Add es => Ein.Add(List.map apply es)
155          | Ein.Sub(e1, e2) => Ein.Sub(apply e1, apply e2)          | Ein.Sub(e1, e2) => Ein.Sub(apply e1, apply e2)

Legend:
Removed from v.2602  
changed lines
  Added in v.2603

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