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.
39 lines
977 B
39 lines
977 B
(*
|
|
* 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.
|
|
*)
|
|
|
|
(** "Unit" abstract domain *)
|
|
|
|
type t = unit [@@deriving compare, equal, sexp]
|
|
|
|
let pp fs () = Format.pp_print_string fs "()"
|
|
let report_fmt_thunk () fs = pp fs ()
|
|
let init _ = ()
|
|
let join () () = Some ()
|
|
let is_false _ = false
|
|
let exec_assume () _ = Some ()
|
|
let exec_kill _ () = ()
|
|
let exec_move _ () = ()
|
|
let exec_inst _ () = Some ()
|
|
|
|
type from_call = unit [@@deriving compare, equal, sexp]
|
|
|
|
let call ~summaries:_ ~globals:_ ~actuals:_ ~areturn:_ ~formals:_ ~freturn:_
|
|
~locals:_ _ =
|
|
((), ())
|
|
|
|
let recursion_beyond_bound = `skip
|
|
let post _ _ () = ()
|
|
let retn _ _ _ _ = ()
|
|
let dnf () = [()]
|
|
let resolve_callee _ _ _ = []
|
|
|
|
type summary = unit
|
|
|
|
let pp_summary fs () = Format.pp_print_string fs "()"
|
|
let create_summary ~locals:_ ~formals:_ _ = ((), ())
|
|
let apply_summary _ _ = Some ()
|