Do not open Batteries when not needed

Author: karoliineh

bench/hash.ml

@@ -1,4 +1,3 @@
-open Batteries
 open Printf
 
 let n_hash = ref 0

src/analyses/mutexAnalysis.ml

@@ -10,7 +10,6 @@ module MustMultiplicity = LockDomain.MustMultiplicity
 module LF = LibraryFunctions
 open GoblintCil
 open Analyses
-open Batteries
 
 module VarSet = SetDomain.Make (Basetype.Variables)
 

src/analyses/symbLocks.ml

@@ -10,7 +10,6 @@ module VarEq = VarEq.Spec
 
 module PS = SetDomain.ToppedSet (LP) (struct let topname = "All" end)
 
-open Batteries
 open GoblintCil
 open Pretty
 open Analyses

src/cdomain/value/util/wideningThresholds.ml

@@ -1,5 +1,4 @@
 open GoblintCil
-open Batteries
 module Thresholds = Set.Make(Z)
 
 (* Collect only constants that are used in comparisons *)
@@ -61,7 +60,7 @@ class extractThresholdsFromConditionsVisitor(upper_thresholds,lower_thresholds,
 end
 
 let default_thresholds = Thresholds.of_list (
-    let thresh_pos = List.map (Int.pow 2) [0;2;4;8;16;32;48] in
+    let thresh_pos = List.map (BatInt.pow 2) [0;2;4;8;16;32;48] in
     let thresh_neg = List.map (fun x -> -x) thresh_pos in
     List.map Z.of_int (thresh_neg @ thresh_pos @ [0])
   )
@@ -108,7 +107,7 @@ let thresholds = ResettableLazy.map fst widening_thresholds
 
 let thresholds_incl_mul2 = ResettableLazy.map snd widening_thresholds
 
-module EH = BatHashtbl.Make (CilType.Exp)
+module EH = Hashtbl.Make (CilType.Exp)
 
 class extractInvariantsVisitor (exps) = object
   inherit nopCilVisitor

src/cdomains/apron/gobApron.apron.ml

@@ -1,4 +1,3 @@
-open Batteries
 include Apron
 
 module Scalar =

src/cdomains/apron/sharedFunctions.apron.ml

@@ -1,6 +1,5 @@
 (** Relational value domain utilities. *)
 open GoblintCil
-open Batteries
 
 open GobApron
 

src/common/util/intOps.ml

@@ -1,7 +1,5 @@
 (** Unified interface for integer types. *)
 
-open Batteries
-
 (* IntOps
  * Wrapper around integer types providing unified interface for
  * arithmetic and logical operations. *)

src/common/util/messageCategory.ml

@@ -1,4 +1,3 @@
-open Batteries
 open GobConfig
 
 type array_oob =

src/framework/control.ml

@@ -18,7 +18,6 @@ let spec_module: (module Spec) Lazy.t = lazy (
   GobConfig.building_spec := true;
   let arg_enabled = get_bool "witness.graphml.enabled" || get_bool "exp.arg.enabled" in
   let termination_enabled = List.mem "termination" (get_string_list "ana.activated") in (* check if loop termination analysis is enabled*)
-  let open Batteries in
   (* apply functor F on module X if opt is true *)
   let lift opt (module F : S2S) (module X : Spec) = (module (val if opt then (module F (X)) else (module X) : Spec) : Spec) in
   let module S1 =

src/framework/resultQuery.ml

@@ -66,7 +66,7 @@ struct
 end
 
 
-module NH = BatHashtbl.Make (Node)
+module NH = Hashtbl.Make (Node)
 
 module type SpecSysSol2 =
 sig