Module AccessAnalysis.Spec

Access analyzer without base --- this is the new standard

include module type of struct include Analyses.DefaultSpec end
module P = Analyses.EmptyP
type marshal = unit
val finalize : unit -> unit
val asm : ('a, 'b, 'c, 'd) Analyses.man -> 'a
val skip : ('a, 'b, 'c, 'd) Analyses.man -> 'a
val morphstate : 'a -> 'b -> 'b
val sync : ('a, 'b, 'c, 'd) Analyses.man -> 'e -> 'a
val paths_as_set : ('a, 'b, 'c, 'd) Analyses.man -> 'a list
module A = Analyses.UnitA
val access : 'a -> 'b -> unit
val name : unit -> string
module D = Lattice.Unit
include sig ... end
module C : sig ... end
val startcontext : unit -> D.t
module V : sig ... end
val collect_local : bool Stdlib.ref
val emit_single_threaded : bool Stdlib.ref
val init : 'a -> unit
val do_access : (D.t, G.t, C.t, V.t) Analyses.man -> AccessKind.t -> bool -> GoblintCil.exp -> unit
val access_one_top : ?force:bool -> ?deref:bool -> (D.t, G.t, C.t, V.t) Analyses.man -> AccessKind.t -> bool -> CilType.Exp.t -> unit

Three access levels:

  1. deref=false, reach=false - Access exp without dereferencing, used for all normal reads and all function call arguments.
  2. deref=true, reach=false - Access exp by dereferencing once (may-point-to), used for lval writes and shallow special accesses.
  3. deref=true, reach=true - Access exp by dereferencing transitively (reachable), used for deep special accesses.
val startstate : 'a -> unit

We just lift start state, global and dependency functions:

val threadenter : 'a -> multiple:'b -> 'c -> 'd -> 'e -> unit list
val exitstate : 'a -> unit
val context : 'a -> 'b -> 'c -> unit

Transfer functions:

val vdecl : (D.t, G.t, C.t, V.t) Analyses.man -> GoblintCil.varinfo -> D.t
val assign : (D.t, G.t, C.t, V.t) Analyses.man -> GoblintCil.lval -> CilType.Exp.t -> D.t
val branch : (D.t, G.t, C.t, V.t) Analyses.man -> CilType.Exp.t -> 'a -> D.t
val return : (D.t, G.t, C.t, V.t) Analyses.man -> CilType.Exp.t option -> 'a -> D.t
val body : (D.t, 'a, 'b, 'c) Analyses.man -> 'd -> D.t
val special : (D.t, G.t, C.t, V.t) Analyses.man -> GoblintCil.lval option -> GoblintCil.Cil.varinfo -> CilType.Exp.t list -> D.t
val enter : (D.t, 'a, 'b, 'c) Analyses.man -> 'd -> 'e -> 'f -> (D.t * D.t) list
val combine_env : (D.t, G.t, C.t, V.t) Analyses.man -> 'a -> CilType.Exp.t -> 'b -> CilType.Exp.t list -> 'c -> 'd -> 'e -> 'd
val combine_assign : (D.t, G.t, C.t, V.t) Analyses.man -> GoblintCil.lval option -> 'a -> 'b -> 'c -> 'd -> 'e -> 'f -> D.t
val threadspawn : (D.t, G.t, C.t, V.t) Analyses.man -> multiple:'a -> GoblintCil.lval option -> 'b -> 'c -> 'd -> D.t
val query : ('b, G.t, 'c, MyCFG.node) Analyses.man -> 'a Queries.t -> 'a Queries.result
val event : (unit, G.t, 'a, MyCFG.node) Analyses.man -> Events.t -> 'b -> unit