File: inserted_casts.ml

package info (click to toggle)
frama-c 20161101%2Bsilicon%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 42,324 kB
  • ctags: 35,695
  • sloc: ml: 200,142; ansic: 31,465; makefile: 2,334; sh: 1,643; lisp: 259; python: 85; asm: 26
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