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.
|
|
|
|
(*
|
|
|
|
|
* 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
|
|
|
|
|
|
|
|
|
|
(** Global variables *)
|
|
|
|
|
|
|
|
|
|
let set_reference_and_call_function reference value f x =
|
|
|
|
|
let saved = !reference in
|
|
|
|
|
let restore () = reference := saved in
|
|
|
|
|
Utils.try_finally_swallow_timeout
|
|
|
|
|
~f:(fun () ->
|
|
|
|
|
reference := value ;
|
|
|
|
|
f x )
|
|
|
|
|
~finally:restore
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(** Flag for footprint discovery mode *)
|
|
|
|
|
let footprint = ref true
|
|
|
|
|
|
|
|
|
|
let run_in_footprint_mode f x = set_reference_and_call_function footprint true f x
|
|
|
|
|
|
|
|
|
|
let run_in_re_execution_mode f x = set_reference_and_call_function footprint false f x
|
|
|
|
|
|
|
|
|
|
let abs_val = ref Config.abs_val
|
|
|
|
|
|
|
|
|
|
let reset_abs_val () = abs_val := Config.abs_val
|
|
|
|
|
|
|
|
|
|
let run_with_abs_val_equal_zero f x = set_reference_and_call_function abs_val 0 f x
|
|
|
|
|
|
|
|
|
|
let allow_leak = ref Config.allow_leak
|
