let load m te loc =
DF.loaded te;
match Tint.varinfo_of_xaddr loc, logic_of_mem m with
| Some vi, Some tbl when vi.vformal ->
let v =
try Varinfo.Hashtbl.find tbl vi
with Not_found ->
let v = D.fresh vi.vname (Mdata.Vacsl (Ctype vi.vtype)) in
(Varinfo.Hashtbl.add tbl vi v; v)
in Data.value_of_logic te (F.var v)
| _, _ ->
let mb = mbits_of_mem m in
Data.load_mem mb te loc