From c050df28d3e70820135a65b93d244258c06710bc Mon Sep 17 00:00:00 2001 From: dzaima Date: Tue, 27 May 2025 23:32:34 +0300 Subject: [PATCH] =?UTF-8?q?fix=20fill=20of=20=E2=89=8D=CB=98=CB=9CfillarrL?= =?UTF-8?q?ist?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit testing will come later with •internal.Indistinguishable _eqvar --- src/builtins/transpose.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/builtins/transpose.c b/src/builtins/transpose.c index f13fad17..8f26eaa6 100644 --- a/src/builtins/transpose.c +++ b/src/builtins/transpose.c @@ -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>xlw && csz<=8) { // Require CPU-sized cells if (we!=xe) goto to_equal_types;