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)