Fix write off end for reverse ⊒

This commit is contained in:
Marshall Lochbaum 2023-11-07 07:15:17 -05:00
parent c042fe6ca3
commit 30331eb800

View File

@ -471,6 +471,7 @@ fn hashtab{T, name}(rp:*rty{name}, ip:*T, m:usz, fp:*T, n:usz, links:ity{name})
ti := load{inds, j}
if (ti>0) {
store{inds, j, ti - load{link,ti}}
store{rp, m-ti, i}
} else {
do {
jp:=j; ++j
@ -480,7 +481,6 @@ fn hashtab{T, name}(rp:*rty{name}, ip:*T, m:usz, fp:*T, n:usz, links:ity{name})
store{inds, jp, load{inds,j}}
} while (h!=maxh)
}
store{rp, m-ti, i}
}
}
}