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 3138, Thu Mar 26 16:27:35 2015 UTC revision 3152, Fri Mar 27 17:41:18 2015 UTC
# Line 12  Line 12 
12    
13      in      in
14    
15      val testing=0      val testing=1
16      fun err str=raise Fail (String.concat["Ill-formed EIN Operator",str])      fun err str=raise Fail (String.concat["Ill-formed EIN Operator",str])
17      fun mkProd e= F.mkProd e      fun mkProd e= F.mkProd e
18      fun filterSca e=F.filterSca e      fun filterSca e=F.filterSca e
# Line 103  Line 103 
103          | E.ArcCosine e          => E.ArcCosine(rewriteBody e)          | E.ArcCosine e          => E.ArcCosine(rewriteBody e)
104          | E.Sine e          => E.Sine(rewriteBody e)          | E.Sine e          => E.Sine(rewriteBody e)
105          | E.ArcSine e          => E.ArcSine(rewriteBody e)          | E.ArcSine e          => E.ArcSine(rewriteBody e)
             (*************Algebraic Rewrites **************)  
106          | E.PowInt(e,n1)        => E.PowInt(rewriteBody e,n1)          | E.PowInt(e,n1)        => E.PowInt(rewriteBody e,n1)
107          | E.PowReal(e,n1)       => E.PowReal(rewriteBody e,n1)          | E.PowReal(e,n1)       => E.PowReal(rewriteBody e,n1)
108                (*************Algebraic Rewrites **************)
109          | E.Add es          => let          | E.Add es          => let
110              val (change,body')= mkAdd(List.map rewriteBody es)              val (change,body')= mkAdd(List.map rewriteBody es)
111              in if (change=1) then ( changed:=true;body') else body' end              in if (change=1) then ( changed:=true;body') else body' end

Legend:
Removed from v.3138  
changed lines
  Added in v.3152

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