sig
val voidType : Cil_types.typ
module CurrentLoc :
sig
val self : State.t
val name : string
val mark_as_computed : ?project:Project.t -> unit -> unit
val is_computed : ?project:Project.t -> unit -> bool
module Datatype : Datatype.S
val add_hook_on_update : (Datatype.t -> unit) -> unit
val howto_marshal : (Datatype.t -> 'a) -> ('a -> Datatype.t) -> unit
type data = Cil_types.location
val set : data -> unit
val get : unit -> data
val clear : unit -> unit
end
module Vid : sig val next : unit -> int end
module Sid : sig val next : unit -> int end
module Eid : sig val next : unit -> int end
val set_vid : Cil_types.varinfo -> unit
val copy_with_new_vid : Cil_types.varinfo -> Cil_types.varinfo
val change_varinfo_name : Cil_types.varinfo -> string -> unit
val new_raw_id : unit -> int
val mkCompInfo :
bool ->
string ->
?norig:string ->
(Cil_types.compinfo ->
(string * Cil_types.typ * int option * Cil_types.attributes *
Cil_types.location)
list) ->
Cil_types.attributes -> Cil_types.compinfo
val copyCompInfo :
?fresh:bool -> Cil_types.compinfo -> string -> Cil_types.compinfo
val make_logic_var_kind :
string ->
Cil_types.logic_var_kind -> Cil_types.logic_type -> Cil_types.logic_var
val make_logic_var : string -> Cil_types.logic_type -> Cil_types.logic_var
val make_logic_var_global :
string -> Cil_types.logic_type -> Cil_types.logic_var
val make_logic_var_formal :
string -> Cil_types.logic_type -> Cil_types.logic_var
val make_logic_var_quant :
string -> Cil_types.logic_type -> Cil_types.logic_var
val make_logic_var_local :
string -> Cil_types.logic_type -> Cil_types.logic_var
val make_logic_info : string -> Cil_types.logic_info
val make_logic_info_local : string -> Cil_types.logic_info
end