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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/ein/ein-util.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/ein/ein-util.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 42  Line 42 
42            | sameOp1 (E.ArcTangent, E.ArcTangent) = true            | sameOp1 (E.ArcTangent, E.ArcTangent) = true
43            | sameOp1 (E.PowInt n1, E.PowInt n2) = (n1 = n2)            | sameOp1 (E.PowInt n1, E.PowInt n2) = (n1 = n2)
44            | sameOp1 (E.Abs, E.Abs) = true            | sameOp1 (E.Abs, E.Abs) = true
45              | sameOp1 (E.Sgn, E.Sgn) = true
46            | sameOp1 _ = false            | sameOp1 _ = false
47          fun same (e1, e2) = (case (e1, e2)          fun same (e1, e2) = (case (e1, e2)
48                 of (E.Const c1, E.Const c2) => (c1 = c2)                 of (E.Const c1, E.Const c2) => (c1 = c2)
# Line 142  Line 143 
143                        | E.PowInt _ => 0w107 + hash' e2                        | E.PowInt _ => 0w107 + hash' e2
144                        | E.Exp => 0w151 + hash' e2                        | E.Exp => 0w151 + hash' e2
145                        | E.Abs => 0w157 + hash' e2                        | E.Abs => 0w157 + hash' e2
146                          | E.Sgn => 0w157 + hash' e2
147                      (* end case *))                      (* end case *))
148                  | E.Op2(E.Sub, e1, e2) => 0w79 + hash' e1 + hash' e2                  | E.Op2(E.Sub, e1, e2) => 0w79 + hash' e1 + hash' e2
149                  | E.Op2(E.Div, e1, e2) => 0w83 + hash' e1 + hash' e2                  | E.Op2(E.Div, e1, e2) => 0w83 + hash' e1 + hash' e2

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