infer_clone/sledge/src/report.ml

(*
 * Copyright (c) 2018-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.
 *)

(** Issue reporting *)

let unknown_call call =
  [%Trace.kprintf
    (fun _ -> assert false)
      "@\n\
       @[<v 2>%a Called unknown function %a executing instruction@;<1 \
       2>@[%a@]@]@."
      (fun fs call -> Loc.pp fs (Llair.Term.loc call))
      call
      (fun fs (call : Llair.Term.t) ->
        match call with
        | Call {call= {dst}} -> (
          match Var.of_exp dst with
          | Some var -> Var.pp_demangled fs var
          | None -> Exp.pp fs dst )
        | _ -> () )
      call Llair.Term.pp call]

let invalid_access state pp access loc =
  Format.printf
    "@\n@[<v 2>%a Invalid memory access executing@;<1 2>@[%a@]@]@." Loc.pp
    (loc access) pp access ;
  [%Trace.kprintf
    (fun _ -> assert false)
      "@\n\
       @[<v 2>%a Invalid memory access executing@;<1 2>@[%a@]@ from \
       symbolic state@;<1 2>@[{ %a@ }@]@]@."
      Loc.pp (loc access) pp access Domain.pp state]

let invalid_access_inst state inst =
  invalid_access state Llair.Inst.pp inst Llair.Inst.loc

let invalid_access_term state term =
  invalid_access state Llair.Term.pp term Llair.Term.loc