[inferbo] Do not expose unsafe Itv.lb/ub

Reviewed By: skcho

Differential Revision: D13533467

fbshipit-source-id: 4a810a411

infer/src/bufferoverrun/bufferOverrunDomainRelation.ml

@@ -853,27 +853,29 @@ module Make (Manager : Manager_S) = struct
 
 
     let itv_of sym itv =
-      if Itv.is_empty itv then empty
+      match itv with
-      else
+      | Bottom ->
-        let lb, ub = (Itv.lb itv, Itv.ub itv) in
+          empty
-        Option.value_map (SymExp.of_sym sym) ~default:empty ~f:(fun sym_exp ->
+      | NonBottom itv_pure ->
-            let tcons_lb =
+          let lb, ub = (Itv.ItvPure.lb itv_pure, Itv.ItvPure.ub itv_pure) in
-              Option.map (Itv.Bound.is_const lb) ~f:(fun lb ->
+          Option.value_map (SymExp.of_sym sym) ~default:empty ~f:(fun sym_exp ->
-                  let sym_minus_lb = SymExp.minus sym_exp (SymExp.of_big_int lb) in
+              let tcons_lb =
-                  Tcons1.make sym_minus_lb Tcons1.SUPEQ )
+                Option.map (Itv.Bound.is_const lb) ~f:(fun lb ->
-            in
+                    let sym_minus_lb = SymExp.minus sym_exp (SymExp.of_big_int lb) in
-            let tcons_ub =
+                    Tcons1.make sym_minus_lb Tcons1.SUPEQ )
-              Option.map (Itv.Bound.is_const ub) ~f:(fun ub ->
+              in
-                  let ub_minus_sym = SymExp.minus (SymExp.of_big_int ub) sym_exp in
+              let tcons_ub =
-                  Tcons1.make ub_minus_sym Tcons1.SUPEQ )
+                Option.map (Itv.Bound.is_const ub) ~f:(fun ub ->
-            in
+                    let ub_minus_sym = SymExp.minus (SymExp.of_big_int ub) sym_exp in
-            match (tcons_lb, tcons_ub) with
+                    Tcons1.make ub_minus_sym Tcons1.SUPEQ )
-            | Some tcons_lb, Some tcons_ub ->
+              in
-                doubleton tcons_lb tcons_ub
+              match (tcons_lb, tcons_ub) with
-            | Some tcons, None | None, Some tcons ->
+              | Some tcons_lb, Some tcons_ub ->
-                singleton tcons
+                  doubleton tcons_lb tcons_ub
-            | None, None ->
+              | Some tcons, None | None, Some tcons ->
-                empty )
+                  singleton tcons
+              | None, None ->
+                  empty )
 
 
     let of_raw_symexp re typ = singleton (Tcons1.make (SymExp.of_raw re) typ)

infer/src/bufferoverrun/itv.ml

@@ -10,7 +10,6 @@
 open! IStd
 open! AbstractDomain.Types
 module F = Format
-module L = Logging
 module Bound = Bounds.Bound
 open Ints
 module SymbolPath = Symb.SymbolPath
@@ -443,20 +442,6 @@ let bot : t = Bottom
 
 let top : t = NonBottom ItvPure.top
 
-let lb : t -> Bound.t = function
-  | NonBottom x ->
-      ItvPure.lb x
-  | Bottom ->
-      L.(die InternalError) "lower bound of bottom"
-
-
-let ub : t -> Bound.t = function
-  | NonBottom x ->
-      ItvPure.ub x
-  | Bottom ->
-      L.(die InternalError) "upper bound of bottom"
-
-
 let get_bound itv (be : Symb.BoundEnd.t) =
   match (itv, be) with
   | Bottom, _ ->

infer/src/bufferoverrun/itv.mli

@@ -139,10 +139,6 @@ val is_one : t -> bool
 
 val is_mone : t -> bool
 
-val lb : t -> Bound.t
-
-val ub : t -> Bound.t
-
 val get_bound : t -> Symb.BoundEnd.t -> Bound.t bottom_lifted
 
 val is_false : t -> bool