File: inserted_casts.ml

package info (click to toggle)
frama-c 20220511-manganese-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 66,472 kB
  • sloc: ml: 278,832; ansic: 47,093; sh: 4,823; makefile: 3,618; javascript: 2,436; python: 1,919; perl: 897; lisp: 293; xml: 62
file content (14 lines) | stat: -rw-r--r-- 353 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
include Plugin.Register
  (struct
    let name = "test"
    let shortname = "test"
    let help = "unitary test of inserted cast hook"
   end)

let print_warning e ot nt =
  result "Inserting cast for expression %a of type %a to type %a@."
    Printer.pp_exp e Printer.pp_typ ot Printer.pp_typ nt;
  nt
;;

Cabs2cil.typeForInsertedCast := print_warning