let region_of_loc te = function | Model.Loc(x,ofs) -> let p = D.Xindex.get_ind x in Z.range (Z.cvar p x) ofs one | Model.Addr p -> Z.range (Z.base (model_base p)) (model_offset p) (sizeof te)