let unsafe_fill ra ofs len x = let last = ofs + len - 1 in guarantee_ix ra (max last ra.vlix); for i = ofs to last do unsafe_set ra i x done