let upd_base l b = {base = b; off=l.off; obj = l.obj}