File: vis_queueInstr.ml

package info (click to toggle)
frama-c 20220511-manganese-5
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 66,492 kB
  • sloc: ml: 278,834; ansic: 47,093; sh: 4,823; makefile: 3,613; javascript: 2,436; python: 1,919; perl: 897; lisp: 293; xml: 62
file content (8 lines) | stat: -rw-r--r-- 245 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
 
class vis prj = object(this)
  inherit Visitor.frama_c_copy prj
  method! vstmt_aux _ = this#queueInstr [ Cil.dummyInstr ] ; Cil.DoChildren
end

let () =
  Db.Main.extend (fun () ->
      ignore (File.create_project_from_visitor "A" (new vis)))