using address equality optimization in all abstract domains

Reviewed By: dkgi

Differential Revision: D3164574

fb-gh-sync-id: 1fab1d2
fbshipit-source-id: 1fab1d2

infer/src/checkers/abstractDomain.ml

@@ -30,18 +30,28 @@ module BottomLifted (Domain : S) = struct
 
   let initial = NonBottom Domain.initial
 
-  let (<=) ~lhs ~rhs = match lhs, rhs with
+  let (<=) ~lhs ~rhs =
+    if lhs == rhs
+    then true
+    else
+      match lhs, rhs with
       | Bottom, _ -> true
       | _ , Bottom -> false
       | NonBottom lhs, NonBottom rhs -> Domain.(<=) ~lhs ~rhs
 
   let join astate1 astate2 =
+    if astate1 == astate2
+    then astate1
+    else
       match astate1, astate2 with
       | Bottom, _ -> astate2
       | _, Bottom -> astate1
       | NonBottom a1, NonBottom a2 -> NonBottom (Domain.join a1 a2)
 
   let widen ~prev ~next ~num_iters =
+    if prev == next
+    then prev
+    else
       match prev, next with
       | Bottom, _ -> next
       | _, Bottom -> prev
@@ -80,9 +90,12 @@ module Pair (Domain1 : S) (Domain2 : S) = struct
       | _, true -> astate1
       | _ -> Domain1.join (fst astate1) (fst astate2), Domain2.join (snd astate1) (snd astate2)
 
-  let widen ~prev:(astate1_next, astate2_next) ~next:(astate1_prev, astate2_prev) ~num_iters =
+  let widen ~prev ~next ~num_iters =
-    Domain1.widen ~prev:astate1_next ~next:astate1_prev ~num_iters,
+    if prev == next
-    Domain2.widen ~prev:astate2_next ~next:astate2_prev ~num_iters
+    then prev
+    else
+      Domain1.widen ~prev:(fst prev) ~next:(fst next) ~num_iters,
+      Domain2.widen ~prev:(snd prev) ~next:(snd next) ~num_iters
 
   let pp fmt (astate1, astate2) =
     F.fprintf fmt "(%a, %a)" Domain1.pp astate1 Domain2.pp astate2
@@ -95,8 +108,19 @@ module FiniteSet (S : PrettyPrintable.PPSet) = struct
   type astate = t
 
   let initial = empty
+
   let is_bottom _ = false
-  let (<=) ~lhs ~rhs = subset lhs rhs
+
-  let join = union
+  let (<=) ~lhs ~rhs =
-  let widen ~prev ~next ~num_iters:_ = union prev next
+    if lhs == rhs
+    then true
+    else subset lhs rhs
+
+  let join astate1 astate2 =
+    if astate1 == astate2
+    then astate1
+    else union astate1 astate2
+
+  let widen ~prev ~next ~num_iters:_ =
+    join prev next
 end

infer/src/checkers/copyPropagation.ml

@@ -20,6 +20,9 @@ module Domain = struct
   (* return true if the key-value bindings in [rhs] are a subset of the key-value bindings in
      [lhs] *)
   let (<=) ~lhs ~rhs =
+    if lhs == rhs
+    then true
+    else
       Var.Map.for_all
         (fun k v ->
            try Var.var_equal v (Var.Map.find k lhs)
@@ -27,6 +30,9 @@ module Domain = struct
         rhs
 
   let join astate1 astate2 =
+    if astate1 == astate2
+    then astate1
+    else
       let keep_if_same _ v1_opt v2_opt = match v1_opt, v2_opt with
         | Some v1, Some v2 ->
             if Var.var_equal v1 v2 then Some v1 else None