You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
971 B
29 lines
971 B
(*
|
|
* Copyright (c) 2009-2013, Monoidics ltd.
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
|
*
|
|
* This source code is licensed under the MIT license found in the
|
|
* LICENSE file in the root directory of this source tree.
|
|
*)
|
|
|
|
open! IStd
|
|
open PolyVariantEqual
|
|
|
|
(** This module handles buckets of memory leaks in Objective-C/C++ *)
|
|
|
|
let bucket_to_message bucket =
|
|
match bucket with `MLeak_cpp -> "[CPP]" | `MLeak_unknown -> "[UNKNOWN ORIGIN]"
|
|
|
|
|
|
let contains_cpp = List.mem ~equal:( = ) Config.ml_buckets `MLeak_cpp
|
|
|
|
let contains_unknown_origin = List.mem ~equal:( = ) Config.ml_buckets `MLeak_unknown
|
|
|
|
let should_raise_leak_unknown_origin = contains_unknown_origin
|
|
|
|
let ml_bucket_unknown_origin = bucket_to_message `MLeak_unknown
|
|
|
|
(* Returns whether a memory leak should be raised for a C++ object.*)
|
|
(* If ml_buckets contains cpp, then check leaks from C++ objects. *)
|
|
let should_raise_cpp_leak = if contains_cpp then Some (bucket_to_message `MLeak_cpp) else None
|