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.
48 lines
1.9 KiB
48 lines
1.9 KiB
(*
|
|
* 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
|
|
|
|
(** Basic Pulse modules that are safe to use in any module *)
|
|
|
|
module AbstractValue = PulseAbstractValue
|
|
module Attribute = PulseAttribute
|
|
module Attributes = PulseAttribute.Attributes
|
|
module CallEvent = PulseCallEvent
|
|
module CItv = PulseCItv
|
|
module Diagnostic = PulseDiagnostic
|
|
module Invalidation = PulseInvalidation
|
|
|
|
module PathCondition = ( val if Config.pulse_path_conditions then (module PulsePathCondition)
|
|
else (module PulseDummyPathCondition) : PulsePathConditionModuleType.S
|
|
)
|
|
|
|
module SkippedCalls = PulseSkippedCalls
|
|
module Trace = PulseTrace
|
|
module ValueHistory = PulseValueHistory
|
|
|
|
(** {2 Enforce short form usage} *)
|
|
|
|
include struct
|
|
[@@@warning "-60"]
|
|
|
|
module PulseAbstractValue = PulseAbstractValue
|
|
[@@deprecated "use the short form AbstractValue instead"]
|
|
module PulseAttribute = PulseAttribute [@@deprecated "use the short form Attribute instead"]
|
|
module PulseCallEvent = PulseCallEvent [@@deprecated "use the short form CallEvent instead"]
|
|
module PulseCItv = PulseCItv [@@deprecated "use the short form CItv instead"]
|
|
module PulseDiagnostic = PulseDiagnostic [@@deprecated "use the short form Diagnostic instead"]
|
|
module PulseInvalidation = PulseInvalidation
|
|
[@@deprecated "use the short form Invalidation instead"]
|
|
module PulsePathCondition = PulsePathCondition
|
|
[@@deprecated "use the short form PathCondition instead"]
|
|
module PulseSkippedCalls = PulseSkippedCalls
|
|
[@@deprecated "use the short form SkippedCalls instead"]
|
|
module PulseTrace = PulseTrace [@@deprecated "use the short form Trace instead"]
|
|
module PulseValueHistory = PulseValueHistory
|
|
[@@deprecated "use the short form ValueHistory instead"]
|
|
end
|