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.
111 lines
3.5 KiB
111 lines
3.5 KiB
(*
|
|
* Copyright (c) 2009-2013, Monoidics ltd.
|
|
* Copyright (c) 2013-present, Facebook, Inc.
|
|
*
|
|
* This source code is licensed under the MIT license found in the
|
|
* LICENSE file in the root directory of this source tree.
|
|
*)
|
|
|
|
open! IStd
|
|
|
|
(** State of symbolic execution *)
|
|
|
|
(** Internal state *)
|
|
type t
|
|
|
|
val add_diverging_states : Paths.PathSet.t -> unit
|
|
(** Add diverging states *)
|
|
|
|
val get_diverging_states_node : unit -> Paths.PathSet.t
|
|
(** Get the diverging states for the node *)
|
|
|
|
val get_diverging_states_proc : unit -> Paths.PathSet.t
|
|
(** Get the diverging states for the procedure *)
|
|
|
|
val get_inst_update : PredSymb.path_pos -> Sil.inst
|
|
(** Get update instrumentation for the current loc *)
|
|
|
|
val get_instr : unit -> Sil.instr option
|
|
(** Get last instruction seen in symbolic execution *)
|
|
|
|
val get_loc_exn : unit -> Location.t
|
|
(** Get last location seen in symbolic execution *)
|
|
|
|
val get_loc_trace : unit -> Errlog.loc_trace
|
|
(** Get the location trace of the last path seen in symbolic execution *)
|
|
|
|
val get_node_exn : unit -> Procdesc.Node.t
|
|
(** Get last node seen in symbolic execution *)
|
|
|
|
val get_normalized_pre :
|
|
(Tenv.t -> Prop.normal Prop.t -> Prop.normal Prop.t) -> Prop.normal Prop.t option
|
|
(** return the normalized precondition extracted form the last prop seen, if any
|
|
the abstraction function is a parameter to get around module dependencies *)
|
|
|
|
val get_path : unit -> Paths.Path.t * PredSymb.path_pos option
|
|
(** Get last path seen in symbolic execution *)
|
|
|
|
val get_path_pos : unit -> PredSymb.path_pos
|
|
(** Get the last path position seen in symbolic execution *)
|
|
|
|
val get_prop_tenv_pdesc : unit -> (Prop.normal Prop.t * Tenv.t * Procdesc.t) option
|
|
(** Get last last prop,tenv,pdesc seen in symbolic execution *)
|
|
|
|
val get_session : unit -> int
|
|
(** Get last session seen in symbolic execution *)
|
|
|
|
val mark_execution_end : Procdesc.Node.t -> unit
|
|
(** Mark the end of symbolic execution of a node *)
|
|
|
|
val mark_execution_start : Procdesc.Node.t -> unit
|
|
(** Mark the start of symbolic execution of a node *)
|
|
|
|
val mark_instr_fail : exn -> unit
|
|
(** Mark that the execution of the current instruction failed *)
|
|
|
|
val mark_instr_ok : unit -> unit
|
|
(** Mark that the execution of the current instruction was OK *)
|
|
|
|
val mk_find_duplicate_nodes : Procdesc.t -> Procdesc.Node.t -> Procdesc.NodeSet.t
|
|
(** Create a function to find duplicate nodes.
|
|
A node is a duplicate of another one if they have the same kind and location
|
|
and normalized (w.r.t. renaming of let - bound ids) list of instructions. *)
|
|
|
|
type log_issue =
|
|
Typ.Procname.t
|
|
-> ?node:Procdesc.Node.t
|
|
-> ?loc:Location.t
|
|
-> ?ltr:Errlog.loc_trace
|
|
-> exn
|
|
-> unit
|
|
|
|
val process_execution_failures : log_issue -> Typ.Procname.t -> unit
|
|
(** Process the failures during symbolic execution of a procedure *)
|
|
|
|
val reset : unit -> unit
|
|
(** Reset all the global data. *)
|
|
|
|
val reset_diverging_states_node : unit -> unit
|
|
(** Reset the diverging states information for the node *)
|
|
|
|
val restore_state : t -> unit
|
|
(** Restore the old state. *)
|
|
|
|
val save_state : unit -> t
|
|
(** Return the old state, and revert the current state to the initial one. *)
|
|
|
|
val set_instr : Sil.instr -> unit
|
|
(** Set last instruction seen in symbolic execution *)
|
|
|
|
val set_node : Procdesc.Node.t -> unit
|
|
(** Set last node seen in symbolic execution *)
|
|
|
|
val set_path : Paths.Path.t -> PredSymb.path_pos option -> unit
|
|
(** Get last path seen in symbolic execution *)
|
|
|
|
val set_prop_tenv_pdesc : Prop.normal Prop.t -> Tenv.t -> Procdesc.t -> unit
|
|
(** Set last prop,tenv,pdesc seen in symbolic execution *)
|
|
|
|
val set_session : int -> unit
|
|
(** Set last session seen in symbolic execution *)
|