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.
43 lines
1.3 KiB
43 lines
1.3 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.
|
|
*)
|
|
|
|
(** Issue reporting *)
|
|
|
|
let unknown_call call =
|
|
[%Trace.kprintf
|
|
Stop.on_unknown_call
|
|
"@\n@[<v 2>%a Unknown function call %a@;<1 2>@[%a@]@]@."
|
|
(fun fs call -> Llair.Loc.pp fs (Llair.Term.loc call))
|
|
call
|
|
(fun fs (call : Llair.Term.t) ->
|
|
match call with
|
|
| Call {callee} -> (
|
|
match Llair.Reg.of_exp callee with
|
|
| Some reg -> Llair.Reg.pp_demangled fs reg
|
|
| None -> Llair.Exp.pp fs callee )
|
|
| _ -> () )
|
|
call Llair.Term.pp call]
|
|
|
|
let count = ref 0
|
|
let invalid_access_count () = !count
|
|
|
|
let invalid_access fmt_thunk pp access loc =
|
|
Int.incr count ;
|
|
let rep fs =
|
|
Format.fprintf fs "%a Invalid memory access@;<1 2>@[%a@]" Llair.Loc.pp
|
|
(loc access) pp access
|
|
in
|
|
Format.printf "@\n@[<v 2>%t@]@." rep ;
|
|
[%Trace.printf "@\n@[<v 2>%t@;<1 2>@[{ %t@ }@]@]@." rep fmt_thunk] ;
|
|
Stop.on_invalid_access ()
|
|
|
|
let invalid_access_inst fmt_thunk inst =
|
|
invalid_access fmt_thunk Llair.Inst.pp inst Llair.Inst.loc
|
|
|
|
let invalid_access_term fmt_thunk term =
|
|
invalid_access fmt_thunk Llair.Term.pp term Llair.Term.loc
|