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/order-ein.sml
ViewVC logotype

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

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

revision 2869, Thu Feb 12 16:14:22 2015 UTC revision 2870, Wed Feb 25 21:47:43 2015 UTC
# Line 36  Line 36 
36         val changed =ref false         val changed =ref false
37         fun order body=(case body         fun order body=(case body
38              of E.Const _ => body              of E.Const _ => body
39        | Ein.ConstR _          => body
40              | E.Tensor _=> body              | E.Tensor _=> body
41              | E.Field _ => body              | E.Field _ => body
42              | E.Krn _ => body              | E.Krn _ => body
# Line 50  Line 51 
51              | E.Sum(c,e)=> E.Sum(c, order e)              | E.Sum(c,e)=> E.Sum(c, order e)
52              | E.Lift e => E.Lift(order e)              | E.Lift e => E.Lift(order e)
53              | E.Sqrt e => E.Sqrt(order e)              | E.Sqrt e => E.Sqrt(order e)
54                | E.PowInt(e,n1) => E.PowInt(order e,n1)
55                | E.PowReal(e,n1) => E.PowReal(order e,n1)
56              | E.Neg e => E.Neg(order e)              | E.Neg e => E.Neg(order e)
57              | E.Add es => E.Add (List.map order es)              | E.Add es => E.Add (List.map order es)
58              | E.Sub(e1,e2) => E.Sub(order e1, order e2)              | E.Sub(e1,e2) => E.Sub(order e1, order e2)

Legend:
Removed from v.2869  
changed lines
  Added in v.2870

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