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