[racerd] fix bug in ownership transitivity 2

Reviewed By: ezgicicek

Differential Revision: D13488195

fbshipit-source-id: 3feed4322

infer/src/concurrency/RacerD.ml

@@ -167,13 +167,7 @@ module TransferFunctions (CFG : ProcCfg.S) = struct
           Conjunction actual_indexes
       | HilExp.AccessExpression access_expr -> (
           let actual_access_path = HilExp.AccessExpression.to_access_path access_expr in
-          if OwnershipDomain.is_owned actual_access_path caller_astate.ownership then
+          match OwnershipDomain.get_owned actual_access_path caller_astate.ownership with
-            (* the actual passed to the current callee is owned. drop all the conditional accesses
-               for that actual, since they're all safe *)
-            Conjunction actual_indexes
-          else
-            let base = fst actual_access_path in
-            match OwnershipDomain.get_owned (base, []) caller_astate.ownership with
           | Owned ->
               (* the actual passed to the current callee is owned. drop all the conditional
                    accesses for that actual, since they're all safe *)

infer/src/concurrency/RacerDDomain.ml

@@ -395,14 +395,6 @@ module OwnershipDomain = struct
         keep_looking access_path astate
 
 
-  let is_owned access_path astate =
-    match get_owned access_path astate with
-    | OwnershipAbstractValue.Owned ->
-        true
-    | OwnershipAbstractValue.OwnedIf _ | Unowned ->
-        false
-
-
   let rec ownership_of_expr expr ownership =
     let open HilExp in
     match expr with

infer/src/concurrency/RacerDDomain.mli

@@ -151,8 +151,6 @@ module OwnershipDomain : sig
 
   val get_owned : AccessPath.t -> t -> OwnershipAbstractValue.t
 
-  val is_owned : AccessPath.t -> t -> bool
-
   val propagate_assignment : AccessPath.t -> HilExp.t -> t -> t
 
   val propagate_return : AccessPath.t -> OwnershipAbstractValue.t -> HilExp.t list -> t -> t