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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/high-opt/derivative.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/high-opt/derivative.sml

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

revision 5284, Thu Aug 10 16:42:59 2017 UTC revision 5285, Thu Aug 10 16:50:56 2017 UTC
# Line 73  Line 73 
73                | E.ArcTangent =>                | E.ArcTangent =>
74                    iterDn (mkProd [mkDiv(one, mkAdd[one, square]), inner])                    iterDn (mkProd [mkDiv(one, mkAdd[one, square]), inner])
75                | E.PowInt n => iterDn (mkProd [E.Const n, E.Op1(E.PowInt(n-1), e1), inner])                | E.PowInt n => iterDn (mkProd [E.Const n, E.Op1(E.PowInt(n-1), e1), inner])
76                | E.Abs => E.Opn(E.Prod, [E.Apply(px, e1), E.Op2(E.Div, e1, E.Op1(E.Abs, e1))])                | E.Abs => iterDn  (mkProd [inner, E.Op1(E.Sgn,e1)]) (*fix here*)
77                  | E.Sgn => E.Const 0
78              (* end case *)              (* end case *)
79            end            end
80    

Legend:
Removed from v.5284  
changed lines
  Added in v.5285

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