Module Hoare_mem.Create.Model


module Model: sig .. end

module D: D
module A: A
module R: R

type epath =
| Pfield of Cil_types.fieldinfo
| Pidx of D.integer

type loc =
| L0addr of Cil_types.varinfo
| L0depl of loc * epath
| L0ptr of D.pointer
| L0shift of loc * D.integer
val pointer_of_loc : loc -> D.pointer
val loc_of_pointer : 'a -> D.pointer -> loc
val pp_loc : Format.formatter -> loc -> unit
val pp_epath : Format.formatter -> epath -> unit
val cast_loc_to_int : 'a -> 'b -> 'c -> 'd
val cast_int_to_loc : 'a -> 'b -> 'c -> 'd