fix fill of ≍˘˜fillarrList

testing will come later with •internal.Indistinguishable _eqvar
This commit is contained in:
dzaima 2025-05-27 23:32:34 +03:00
parent 8a69998839
commit c050df28d3

View File

@ -125,13 +125,15 @@ Arr* join_cells(B w, B x, ur k) { // consumes w,x; join k-cells, 𝕨 ∾○⥊
#if SINGELI
} else if (csz==1 && re==el_B) {
if (we!=xe) goto to_equal_types;
B* wp = TO_BPTR(w); B* xp = TO_BPTR(x);
B w2 = incG(w); B* wp = TO_BPTR(w2); // must least fill of w & x as-is
B x2 = incG(x); B* xp = TO_BPTR(x2);
HArr_p p = m_harrUv(ia); // Debug build complains with harrUp
interleave_fns[3](p.a, wp, xp, n);
for (usz i=0; i<ia; i++) inc(p.a[i]);
NOGC_E;
r = (Arr*) p.c;
decG(w2); decG(x2);
goto add_fill;
} else if (csz<=64>>xlw && csz<<xlw>=8) { // Require CPU-sized cells
if (we!=xe) goto to_equal_types;