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

SCM Repository

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

Diff of /branches/ein16/src/compiler/high-il/normalize-ein.sml

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

revision 3166, Sun Mar 29 20:00:49 2015 UTC revision 3174, Mon Mar 30 11:46:58 2015 UTC
# Line 156  Line 156 
156          | E.Prod((E.Sub(e2,e3))::e4)=>          | E.Prod((E.Sub(e2,e3))::e4)=>
157              (changed :=true; E.Sub(E.Prod([e2]@e4), E.Prod([e3]@e4 )))              (changed :=true; E.Sub(E.Prod([e2]@e4), E.Prod([e3]@e4 )))
158  *)  *)
159    
160          | E.Prod((E.Div(e2,e3))::e4)=> (changed :=true; E.Div(E.Prod([e2]@e4), e3))          | E.Prod((E.Div(e2,e3))::e4)=> (changed :=true; E.Div(E.Prod([e2]@e4), e3))
161    
162  (*  (*
163          | E.Prod(e1::E.Add(e2)::e3)=>          | E.Prod(e1::E.Add(e2)::e3)=>
164              (changed := true; E.Add(List.map (fn e=> E.Prod([e1,e]@e3)) e2))              (changed := true; E.Add(List.map (fn e=> E.Prod([e1,e]@e3)) e2))

Legend:
Removed from v.3166  
changed lines
  Added in v.3174

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