Open Utils implicitly

Summary: public Reviewed By: jvillard Differential Revision: D2938316 fb-gh-sync-id: c6aa6c9 shipit-source-id: c6aa6c9
9 years ago · b155168083
parent 8a9f221119
commit b155168083
142 changed files with 5 additions and 188 deletions
--- a/CONTRIBUTING.md
+++ b/CONTRIBUTING.md
@ -18,3 +18,7 @@ us a line at cla@fb.com. Thanks!
  `infer/tests/codetoanalyze/` and
  `infer/tests/{endtoend,frontend}/`. To run the all tests, execute
  `./scripts/test.sh`.
+
+## Hacking
+
+* Be aware that the build system implicitly opens the Utils module.
--- a/infer/src/Makefile.in
+++ b/infer/src/Makefile.in
@ -97,6 +97,7 @@ OCAMLBUILD_OPTIONS = \
                     -cflags -w,@38 \
                     -cflags -w,@39 \
                     -tag-line "<*clang/clang_ast_*>: warn(-35-39)" \
+                     -tag-line "not <**/{config,iList,utils}.*>: open(Utils)" \
                     -lflags $(OCAML_INCLUDES) \
                     -cflags $(OCAML_INCLUDES) \
                     $(addprefix -lib ,$(OCAML_LIBS)) \
--- a/infer/src/backend/DB.ml
+++ b/infer/src/backend/DB.ml
@ -10,7 +10,6 @@

 (** Database of analysis results *)

-open Utils
 module F = Format
 module L = Logging

--- a/infer/src/backend/abs.ml
+++ b/infer/src/backend/abs.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** {2 Abstraction} *)

--- a/infer/src/backend/absarray.ml
+++ b/infer/src/backend/absarray.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 type sigma = Sil.hpred list

--- a/infer/src/backend/attributesTable.ml
+++ b/infer/src/backend/attributesTable.ml
@ -7,7 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
 module F = Format
 module L = Logging

--- a/infer/src/backend/autounit.ml
+++ b/infer/src/backend/autounit.ml
@ -10,7 +10,6 @@

 (** Generate unit tests automatically from specs *)

-open Utils
 module L = Logging
 module F = Format

--- a/infer/src/backend/buckets.ml
+++ b/infer/src/backend/buckets.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let verbose = Config.trace_error

--- a/infer/src/backend/buckets.mli
+++ b/infer/src/backend/buckets.mli
@ -10,8 +10,6 @@

 (** Classify bugs into buckets *)

-open Utils
-
 (** Classify the bucket of an error desc using Location.access and nullable information *)
 val classify_access :
  Localise.error_desc -> Localise.access option -> Sil.dexp option -> bool -> Localise.error_desc
--- a/infer/src/backend/callbacks.ml
+++ b/infer/src/backend/callbacks.ml
@ -7,7 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
 module L = Logging

 (** Module to register and invoke callbacks *)
--- a/infer/src/backend/cfg.ml
+++ b/infer/src/backend/cfg.ml
@ -11,8 +11,6 @@
 module L = Logging
 module F = Format

-open Utils (* No abbreviation for Utils, as every module can depend on it *)
-
 (* ============== START of ADT node and proc_desc ============== *)

 (* =============== START of module Node =============== *)
--- a/infer/src/backend/cfg.mli
+++ b/infer/src/backend/cfg.mli
@ -10,8 +10,6 @@

 (**  Control Flow Graph for Interprocedural Analysis *)

-open Utils
-
 (** {2 ADT node and proc_desc} *)

 type node
--- a/infer/src/backend/cg.ml
+++ b/infer/src/backend/cg.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let pp_nodeset fmt set =
  let f node = F.fprintf fmt "%a@ " Procname.pp node in
--- a/infer/src/backend/cg.mli
+++ b/infer/src/backend/cg.mli
@ -10,8 +10,6 @@

 (** Module for call graphs *)

-open Utils
-
 type in_out_calls =
  { in_calls: int; (** total number of in calls transitively *)
    out_calls: int (** total number of out calls transitively *)
--- a/infer/src/backend/cluster.ml
+++ b/infer/src/backend/cluster.ml
@ -9,7 +9,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Module to process clusters of procedures. *)

--- a/infer/src/backend/clusterMakefile.ml
+++ b/infer/src/backend/clusterMakefile.ml
@ -9,7 +9,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Module to create a makefile with dependencies between clusters *)

--- a/infer/src/backend/csu.ml
+++ b/infer/src/backend/csu.ml
@ -7,8 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 (** Internal representation of data structure for Java, Objective-C and C++ classes,
    C-style structs struct and union,
    And Objective C protocol *)
--- a/infer/src/backend/dom.ml
+++ b/infer/src/backend/dom.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let (++) = Sil.Int.add
 let (--) = Sil.Int.sub
--- a/infer/src/backend/dom.mli
+++ b/infer/src/backend/dom.mli
@ -10,8 +10,6 @@

 (** Join and Meet Operators *)

-open Utils
-
 (** {2 Join Operators} *)

 (** Join two pathsets *)
--- a/infer/src/backend/dotty.ml
+++ b/infer/src/backend/dotty.ml
@ -10,7 +10,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** {1 Dotty} *)

--- a/infer/src/backend/errdesc.ml
+++ b/infer/src/backend/errdesc.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Check whether the hpred is a |-> representing a resource in the Racquire state *)
 let hpred_is_open_resource prop = function
--- a/infer/src/backend/errdesc.mli
+++ b/infer/src/backend/errdesc.mli
@ -10,8 +10,6 @@

 (** Create descriptions of analysis errors *)

-open Utils
-
 (** find the dexp, if any, where the given value is stored
    also return the type of the value if found *)
 val vpath_find : 'a Prop.t -> Sil.exp -> Sil.vpath * Sil.typ option
--- a/infer/src/backend/errlog.ml
+++ b/infer/src/backend/errlog.ml
@ -7,7 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
 module L = Logging
 module F = Format

--- a/infer/src/backend/errlog.mli
+++ b/infer/src/backend/errlog.mli
@ -9,8 +9,6 @@

 (** Module for error logs. *)

-open Utils
-
 (** Element of a loc trace *)
 type loc_trace_elem = {
  lt_level : int; (** nesting level of procedure calls *)
--- a/infer/src/backend/exceptions.ml
+++ b/infer/src/backend/exceptions.ml
@ -10,7 +10,6 @@

 module L = Logging
 module F = Format
-open Utils

 type exception_visibility = (** visibility of the exception *)
  | Exn_user (** always add to error log *)
--- a/infer/src/backend/exceptions.mli
+++ b/infer/src/backend/exceptions.mli
@ -8,8 +8,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 (** Functions for logging and printing exceptions *)

 type exception_visibility = (** visibility of the exception *)
--- a/infer/src/backend/exe_env.ml
+++ b/infer/src/backend/exe_env.ml
@ -10,7 +10,6 @@

 (** Support for Execution environments *)

-open Utils
 module L = Logging

 (** per-file data: type environment and cfg *)
--- a/infer/src/backend/exe_env.mli
+++ b/infer/src/backend/exe_env.mli
@ -8,8 +8,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 (** Support for Execution environments *)

 (** initial state, used to add cg's *)
--- a/infer/src/backend/fork.ml
+++ b/infer/src/backend/fork.ml
@ -10,7 +10,6 @@

 module L = Logging
 module F = Format
-open Utils

 module WeightedPnameSet =
  Set.Make(struct
--- a/infer/src/backend/ident.ml
+++ b/infer/src/backend/ident.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 type name = string

--- a/infer/src/backend/ident.mli
+++ b/infer/src/backend/ident.mli
@ -10,8 +10,6 @@

 (** Identifiers: program variables and logical variables *)

-open Utils
-
 (** Program and logical variables. *)
 type t

--- a/infer/src/backend/inferanalyze.ml
+++ b/infer/src/backend/inferanalyze.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils
 open Yojson.Basic.Util

 (* This module, unused by default, generates random c files with procedure calls *)
--- a/infer/src/backend/inferconfig.ml
+++ b/infer/src/backend/inferconfig.ml
@ -7,8 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 (** Name of the infer configuration file *)
 let inferconfig_file = ".inferconfig"

--- a/infer/src/backend/inferprint.ml
+++ b/infer/src/backend/inferprint.ml
@ -10,7 +10,6 @@

 module L = Logging
 module F = Format
-open Utils
 open Jsonbug_j

 (** Outfile to save the latex report *)
--- a/infer/src/backend/interproc.ml
+++ b/infer/src/backend/interproc.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** A node with a number of visits *)
 type visitednode =
--- a/infer/src/backend/io_infer.ml
+++ b/infer/src/backend/io_infer.ml
@ -11,7 +11,6 @@
 (** Module to handle IO. Includes html and xml modules. *)

 module F = Format
-open Utils

 (* =============== START of module Html =============== *)
 module Html : sig
--- a/infer/src/backend/latex.ml
+++ b/infer/src/backend/latex.ml
@ -9,7 +9,6 @@
 *)

 module F = Format
-open Utils

 (** Produce output in latex *)

--- a/infer/src/backend/localise.ml
+++ b/infer/src/backend/localise.ml
@ -11,7 +11,6 @@
 (** Support for localisation *)

 module F = Format
-open Utils

 (** type of string used for localisation *)
 type t = string
--- a/infer/src/backend/location.ml
+++ b/infer/src/backend/location.ml
@ -7,7 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
 module F = Format
 module L = Logging

--- a/infer/src/backend/logging.ml
+++ b/infer/src/backend/logging.ml
@ -11,8 +11,6 @@
 (** log messages at different levels of verbosity *)

 module F = Format
-open Utils
-

 (* =============== START of module MyErr =============== *)
 (** type of printable elements *)
--- a/infer/src/backend/logging.mli
+++ b/infer/src/backend/logging.mli
@ -8,8 +8,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 (** log messages at different levels of verbosity *)

 (** type of printable elements *)
--- a/infer/src/backend/mangled.ml
+++ b/infer/src/backend/mangled.ml
@ -11,7 +11,6 @@
 (** Module for Mangled Names *)

 module F = Format
-open Utils

 type t =
  { plain: string;
--- a/infer/src/backend/mangled.mli
+++ b/infer/src/backend/mangled.mli
@ -10,8 +10,6 @@

 (** Module for Mangled Names *)

-open Utils
-
 (** Type of mangled names *)
 type t

--- a/infer/src/backend/match.ml
+++ b/infer/src/backend/match.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let mem_idlist i l =
  IList.exists (Ident.equal i) l
--- a/infer/src/backend/match.mli
+++ b/infer/src/backend/match.mli
@ -14,8 +14,6 @@
    See {{: http://dx.doi.org/10.1007/978-3-540-73368-3_22 }  CAV 2007 } for the therory involved.
 *)

-open Utils
-
 (* TODO: missing documentation *)
 val hpara_match_with_impl : bool -> Sil.hpara -> Sil.hpara -> bool
 val hpara_dll_match_with_impl : bool -> Sil.hpara_dll -> Sil.hpara_dll -> bool
--- a/infer/src/backend/mleak_buckets.ml
+++ b/infer/src/backend/mleak_buckets.ml
@ -10,8 +10,6 @@

 (** This module handles buckets of memory leaks in Objective-C/C++ *)

-open Utils
-
 let objc_arc_flag = "objc_arc"

 let bucket_delimiter = ","
--- a/infer/src/backend/objc_models.ml
+++ b/infer/src/backend/objc_models.ml
@ -9,8 +9,6 @@

 (** This module handles C or Objective-C types for which there are special rules for memory management *)

-open Utils
-
 (** This module models special c struct types from the Apple's Core Foundation libraries
    for which there are particular rules for memory management. *)

--- a/infer/src/backend/objc_models.mli
+++ b/infer/src/backend/objc_models.mli
@ -10,8 +10,6 @@
 (** This module models special c struct types from the Apple's Core Foundation libraries
    for which there are particular rules for memory management. *)

-open Utils
-
 (** This module models special c struct types from the Apple's Core Foundation libraries
    for which there are particular rules for memory management. *)

--- a/infer/src/backend/ondemand.ml
+++ b/infer/src/backend/ondemand.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 let trace () = Config.from_env_variable "INFER_TRACE_ONDEMAND"
 let one_cluster_per_procedure () = false
--- a/infer/src/backend/ondemand.mli
+++ b/infer/src/backend/ondemand.mli
@ -9,8 +9,6 @@

 (** Module for on-demand analysis. *)

-open Utils
-
 (** Optional set of source dirs to analyze in on-demand mode. *)
 val read_dirs_to_analyze : unit -> StringSet.t option

--- a/infer/src/backend/paths.ml
+++ b/infer/src/backend/paths.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (* =============== START of the Path module ===============*)

--- a/infer/src/backend/paths.mli
+++ b/infer/src/backend/paths.mli
@ -10,8 +10,6 @@

 (** Execution Paths *)

-open Utils
-
 module Path : sig
  (** type for paths *)
  type t
--- a/infer/src/backend/preanal.ml
+++ b/infer/src/backend/preanal.ml
@ -9,7 +9,6 @@
 *)

 module L = Logging
-open Utils

 (** find all the predecessors of nodes, using exception links *)
 module AllPreds = struct
--- a/infer/src/backend/printer.ml
+++ b/infer/src/backend/printer.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils (* No abbreviation for Util, as every module can depend on it *)

 (** return true if the node was visited during footprint and during re-execution*)
 let is_visited_phase node =
--- a/infer/src/backend/procAttributes.ml
+++ b/infer/src/backend/procAttributes.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Type for ObjC accessors *)
 type objc_accessor_type =
--- a/infer/src/backend/procAttributes.mli
+++ b/infer/src/backend/procAttributes.mli
@ -9,8 +9,6 @@

 (** Attributes of a procedure. *)

-open Utils
-
 type objc_accessor_type =
  | Objc_getter of Ident.fieldname
  | Objc_setter of Ident.fieldname
--- a/infer/src/backend/procname.ml
+++ b/infer/src/backend/procname.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils
 open Str

 type java_type = string option * string (* e.g. ("", "int") for primitive types or ("java.io", "PrintWriter") for objects *)
--- a/infer/src/backend/procname.mli
+++ b/infer/src/backend/procname.mli
@ -10,8 +10,6 @@

 (** Module for Procedure Names *)

-open Utils
-
 (** Type of procedure names *)
 type t

--- a/infer/src/backend/prop.ml
+++ b/infer/src/backend/prop.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** type to describe different strategies for initializing fields of a structure. [No_init] does not
    initialize any fields of the struct. [Fld_init] initializes the fields of the struct with fresh
--- a/infer/src/backend/prop.mli
+++ b/infer/src/backend/prop.mli
@ -10,7 +10,6 @@

 (** Functions for Propositions (i.e., Symbolic Heaps) *)

-open Utils
 open Sil

 type normal (** kind for normal props, i.e. normalized *)
--- a/infer/src/backend/propgraph.ml
+++ b/infer/src/backend/propgraph.ml
@ -12,7 +12,6 @@

 module F = Format
 module L = Logging
-open Utils

 type t = Prop.normal Prop.t

--- a/infer/src/backend/propgraph.mli
+++ b/infer/src/backend/propgraph.mli
@ -10,8 +10,6 @@

 (** Propositions seen as graphs *)

-open Utils
-
 type t (** prop considered as a graph *)

 type node (** node of the graph *)
--- a/infer/src/backend/propset.ml
+++ b/infer/src/backend/propset.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** {2 Sets of Propositions} *)

--- a/infer/src/backend/propset.mli
+++ b/infer/src/backend/propset.mli
@ -10,8 +10,6 @@

 (** Functions for Sets of Propositions with and without sharing *)

-open Utils
-
 (** {2 Sets of Propositions} *)

 (** Sets of propositions.
--- a/infer/src/backend/prover.ml
+++ b/infer/src/backend/prover.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let decrease_indent_when_exception thunk =
  try (thunk ())
--- a/infer/src/backend/rearrange.ml
+++ b/infer/src/backend/rearrange.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let (++) = Sil.Int.add

--- a/infer/src/backend/reporting.ml
+++ b/infer/src/backend/reporting.ml
@ -7,7 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
 module L = Logging

 type log_t =
--- a/infer/src/backend/serialization.ml
+++ b/infer/src/backend/serialization.ml
@ -10,7 +10,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Generic serializer *)
 type 'a serializer = (string -> 'a option) * (DB.filename -> 'a option) * (DB.filename -> 'a -> unit)
--- a/infer/src/backend/serialization.mli
+++ b/infer/src/backend/serialization.mli
@ -10,8 +10,6 @@

 (** Serialization of data stuctures *)

-open Utils
-
 (** Generic serializer *)
 type 'a serializer

--- a/infer/src/backend/sil.ml
+++ b/infer/src/backend/sil.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** {2 Programs and Types} *)

--- a/infer/src/backend/sil.mli
+++ b/infer/src/backend/sil.mli
@ -10,8 +10,6 @@

 (** The Smallfoot Intermediate Language *)

-open Utils
-
 (** {2 Programs and Types} *)

 (** Type to represent one @Annotation. *)
--- a/infer/src/backend/specs.ml
+++ b/infer/src/backend/specs.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 (* =============== START of support for spec tables =============== *)

--- a/infer/src/backend/specs.mli
+++ b/infer/src/backend/specs.mli
@ -10,8 +10,6 @@

 (** Specifications and spec table *)

-open Utils
-
 (** {2 Spec Tables} *)

 (** Module for joined props: the result of joining together propositions repeatedly *)
--- a/infer/src/backend/state.ml
+++ b/infer/src/backend/state.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 type const_map = Cfg.Node.t -> Sil.exp -> Sil.const option

--- a/infer/src/backend/state.mli
+++ b/infer/src/backend/state.mli
@ -10,8 +10,6 @@

 (** State of symbolic execution *)

-open Utils
-
 (**  Internal state *)
 type t

--- a/infer/src/backend/symExec.ml
+++ b/infer/src/backend/symExec.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 let rec idlist_assoc id = function
  | [] -> raise Not_found
--- a/infer/src/backend/tabulation.ml
+++ b/infer/src/backend/tabulation.ml
@ -12,7 +12,6 @@

 module L = Logging
 module F = Format
-open Utils

 type splitting = {
  sub: Sil.subst;
--- a/infer/src/backend/typename.ml
+++ b/infer/src/backend/typename.ml
@ -7,7 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
 module F = Format

 (** Named types. *)
--- a/infer/src/checkers/annotations.ml
+++ b/infer/src/checkers/annotations.ml
@ -9,7 +9,6 @@

 module F = Format
 module L = Logging
-open Utils

 (** Annotations. *)

--- a/infer/src/checkers/callbackChecker.ml
+++ b/infer/src/checkers/callbackChecker.ml
@ -14,7 +14,6 @@ module F = Format
 module P = Printf
 module IdSet = Ident.IdentSet
 module FldSet = Ident.FieldSet
-open Utils

 (** set of instance fields belonging to the current file that are assigned to null literals *)
 let fields_nullified = ref FldSet.empty
--- a/infer/src/checkers/checkDeadCode.ml
+++ b/infer/src/checkers/checkDeadCode.ml
@ -9,7 +9,6 @@

 module L = Logging
 module F = Format
-open Utils
 open Dataflow

 (** Simple check for dead code. *)
--- a/infer/src/checkers/checkers.ml
+++ b/infer/src/checkers/checkers.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 let verbose = ref true

--- a/infer/src/checkers/codeQuery.ml
+++ b/infer/src/checkers/codeQuery.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 let verbose = false
 let query = ref None
--- a/infer/src/checkers/codeQueryAst.ml
+++ b/infer/src/checkers/codeQueryAst.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 type expr =
  | Null
--- a/infer/src/checkers/constantPropagation.ml
+++ b/infer/src/checkers/constantPropagation.ml
@ -7,8 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 module L = Logging


--- a/infer/src/checkers/dataflow.ml
+++ b/infer/src/checkers/dataflow.ml
@ -7,8 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 module L = Logging

 type throws =
--- a/infer/src/checkers/fragmentRetainsViewChecker.ml
+++ b/infer/src/checkers/fragmentRetainsViewChecker.ml
@ -10,7 +10,6 @@
 (** Make sure callbacks are always unregistered. drive the point home by reporting possible NPE's *)

 module P = Printf
-open Utils

 let report_error fragment_typ fld fld_typ pname pdesc =
  let retained_view = "CHECKERS_FRAGMENT_RETAINS_VIEW" in
--- a/infer/src/checkers/immutableChecker.ml
+++ b/infer/src/checkers/immutableChecker.ml
@ -9,7 +9,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Check an implicit cast when returning an immutable collection from a method whose type is mutable. *)
 let check_immutable_cast curr_pname curr_pdesc typ_expected typ_found_opt loc : unit =
--- a/infer/src/checkers/patternMatch.ml
+++ b/infer/src/checkers/patternMatch.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 let object_name = Mangled.from_string "java.lang.Object"

--- a/infer/src/checkers/printfArgs.ml
+++ b/infer/src/checkers/printfArgs.ml
@ -9,7 +9,6 @@

 module L = Logging
 module F = Format
-open Utils

 type printf_signature = {
  unique_id: string;
--- a/infer/src/checkers/registerCheckers.ml
+++ b/infer/src/checkers/registerCheckers.ml
@ -11,7 +11,6 @@

 module L = Logging
 module F = Format
-open Utils

 (** Flags to activate checkers. *)
 let active_procedure_checkers () =
--- a/infer/src/checkers/repeatedCallsChecker.ml
+++ b/infer/src/checkers/repeatedCallsChecker.ml
@ -9,7 +9,6 @@

 module L = Logging
 module F = Format
-open Utils

 let checkers_repeated_calls_name = "CHECKERS_REPEATED_CALLS"

--- a/infer/src/checkers/sqlChecker.ml
+++ b/infer/src/checkers/sqlChecker.ml
@ -7,8 +7,6 @@
 * of patent rights can be found in the PATENTS file in the same directory.
 *)

-open Utils
-
 module L = Logging


--- a/infer/src/clang/cContext.ml
+++ b/infer/src/clang/cContext.ml
@ -10,9 +10,7 @@
 (** Contains current class and current method to be translated as well as local variables, *)
 (** and the cg, cfg, and tenv corresponding to the current file. *)

-open Utils
 open CFrontend_utils
-
 module L = Logging

 type curr_class =
--- a/infer/src/clang/cEnum_decl.ml
+++ b/infer/src/clang/cEnum_decl.ml
@ -10,7 +10,6 @@
 (** Translate an enumeration declaration by adding it to the tenv and *)
 (** translating the code and adding it to a fake procdesc *)

-open Utils
 open CFrontend_utils

 (*Check if the constant is in the map, in which case that means that all the *)
--- a/infer/src/clang/cField_decl.ml
+++ b/infer/src/clang/cField_decl.ml
@ -9,7 +9,6 @@

 (** Utility module to retrieve fields of structs of classes *)

-open Utils
 open CFrontend_utils

 module L = Logging
--- a/infer/src/clang/cFrontend.ml
+++ b/infer/src/clang/cFrontend.ml
@ -15,7 +15,6 @@

 module L = Logging

-open Utils
 open CFrontend_utils
 open CGen_trans

--- a/infer/src/clang/cFrontend_errors.ml
+++ b/infer/src/clang/cFrontend_errors.ml
@ -14,7 +14,6 @@
 * - loc: the location where is occurs
 *)

-open Utils
 open CFrontend_utils
 open General_utils

--- a/infer/src/clang/cFrontend_utils.ml
+++ b/infer/src/clang/cFrontend_utils.ml
@ -10,8 +10,6 @@
 (** Module for utility functions for the whole frontend. Includes functions for printing,  *)
 (** for transformations of ast nodes and general utility functions such as  functions on lists *)

-open Utils
-
 module L = Logging
 module F = Format

--- a/infer/src/clang/cLocation.ml
+++ b/infer/src/clang/cLocation.ml
@ -10,7 +10,6 @@
 (** Module for function to retrieve the location (file, line, etc) of instructions *)

 open CFrontend_utils
-open Utils

 (* Inside the json there may be code or type definitions from other files *)
 (* than the one passed as an argument. That current file in the translation is saved*)
--- a/Show More
+++ b/Show More