File: mutable_test.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 (18 lines) | stat: -rw-r--r-- 497 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
open Cil_types

let main () =
  Ast.compute ();
  let def =
    Kernel_function.get_definition
      (Globals.Functions.find_def_by_name "f")
  in
  let s = List.hd (def.sbody.bstmts) in
  match s.skind with
  | Instr (Set ((Var x,offset),_,_)) ->
    Format.printf "Type of variable: %a@\nOffset: %a@."
      Printer.pp_typ x.vtype Printer.pp_offset offset;
    assert
      (not (Cil.typeHasAttribute "const" (Cil.typeOffset x.vtype offset)))
  | _ -> assert false

let () = Db.Main.extend main