let
upd_off l d = {base = l.base ; off = d ; obj = l.obj}