File: formals_decl_leak.ml

package info (click to toggle)
frama-c 20140301%2Bneon%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 19,548 kB
  • ctags: 28,183
  • sloc: ml: 181,252; ansic: 13,776; makefile: 2,452; sh: 1,085; lisp: 178
file content (14 lines) | stat: -rw-r--r-- 320 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
open Cil_types

let check_vi_exists vi _ =
  try
    ignore (Globals.Functions.get vi)
  with Not_found ->
    Kernel.fatal 
      "%s(%d) has an entry in FormalsDecl, but does not exist in AST"
      vi.vname vi.vid

let run () =
  let _ = Ast.get () in Cil.iterFormalsDecl check_vi_exists

let () = Db.Main.extend run