29 lines
588 B
OCaml
29 lines
588 B
OCaml
|
(*
|
||
|
|
Cours "Sémantique et Application à la Vérification de programmes"
|
||
|
|
|
||
|
|
Antoine Miné 2015
|
||
|
|
Marc Chevalier 2018
|
||
|
|
Josselin Giet 2021
|
||
|
|
Ecole normale supérieure, Paris, France / CNRS / INRIA
|
||
|
|
*)
|
||
|
|
|
||
|
|
(*
|
||
|
|
Error handling utility
|
||
|
|
*)
|
||
|
|
|
||
|
|
open Abstract_syntax_tree
|
||
|
|
|
||
|
|
type error_kind =
|
||
|
|
| AssertFalse
|
||
|
|
|
||
|
|
let pp_error_kind fmt = function
|
||
|
|
| AssertFalse -> Format.fprintf fmt "Assertion failure"
|
||
|
|
|
||
|
|
type err = error_kind * extent * bool_expr
|
||
|
|
|
||
|
|
let pp_err fmt (ek, ext, be) =
|
||
|
|
Format.fprintf fmt "%a: %a \"%a\""
|
||
|
|
Cfg_printer.pp_pos (fst ext)
|
||
|
|
pp_error_kind ek
|
||
|
|
Cfg_printer.print_bool_expr be
|