let wrap_ptr p = Some (offsetmap_of_value ~typ:intPtrType p)