Spec (goblint.Goblint_lib.MustlockHistory.Spec)

include module type of struct include Analyses.IdentityUnitContextsSpec end

include module type of struct include Analyses.IdentitySpec end

include module type of struct include Analyses.DefaultSpec end

module G = Lattice.Unit

module V = Analyses.EmptyV

module P = Analyses.EmptyP

type marshal = unit

val init : 'a -> unit

val finalize : unit -> unit

val vdecl : ('a, 'b, 'c, 'd) Analyses.man -> 'e -> 'a

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 assign : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  GoblintCil.lval ->
  GoblintCil.exp ->
  'a

val branch : ('a, 'b, 'c, 'd) Analyses.man -> GoblintCil.exp -> bool -> 'a

val body : ('a, 'b, 'c, 'd) Analyses.man -> GoblintCil.fundec -> 'a

val return : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  GoblintCil.exp option ->
  GoblintCil.fundec ->
  'a

val enter : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  GoblintCil.lval option ->
  GoblintCil.fundec ->
  GoblintCil.exp list ->
  ('a * 'a) list

val combine_env : 
  'a ->
  GoblintCil.lval option ->
  'b ->
  GoblintCil.fundec ->
  GoblintCil.exp list ->
  'c ->
  'd ->
  Queries.ask ->
  'd

val combine_assign : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  GoblintCil.lval option ->
  'e ->
  GoblintCil.fundec ->
  GoblintCil.exp list ->
  'f ->
  'g ->
  Queries.ask ->
  'a

val special : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  GoblintCil.lval option ->
  GoblintCil.varinfo ->
  GoblintCil.exp list ->
  'a

val threadenter : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  multiple:'e ->
  'f ->
  'g ->
  'h ->
  'a list

val threadspawn : 
  ('a, 'b, 'c, 'd) Analyses.man ->
  multiple:'e ->
  'f ->
  'g ->
  'h ->
  'i ->
  'a

module C = Printable.Unit

val context : 'a -> 'b -> 'c -> unit

val startcontext : unit -> unit

module D = Queries.LH

{ l |-> T }

val name : unit -> string

val startstate : 'a -> D.t

val exitstate : 'a -> D.t

val lock : (D.t, 'a, 'b, 'c) Analyses.man -> TIDs.elt -> D.key -> D.t

val event : (D.t, 'a, 'b, 'c) Analyses.man -> Events.t -> 'd -> D.t

val query : (D.t, 'b, 'c, 'd) Analyses.man -> 'a Queries.t -> 'a Queries.result