From 6d372959e870ef981d3ee09236ce44fc95f95545 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 11 Sep 2022 21:48:31 -0400 Subject: [PATCH] =?UTF-8?q?Just=20return=20=F0=9D=95=A9=20for=20an=20all-o?= =?UTF-8?q?nes=20compress?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/slash.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/builtins/slash.c b/src/builtins/slash.c index 1dd24b4f..410740ec 100644 --- a/src/builtins/slash.c +++ b/src/builtins/slash.c @@ -270,8 +270,10 @@ static B compress(B w, B x, usz wia, B xf) { if (RARE(ie==0)) { return q_N(xf)? emptyHVec() : isF64(xf)? emptyIVec() : isC32(xf)? emptyCVec() : m_emptyFVec(xf); } we = wp[--ie]; } + usz wia0 = wia; wia = 64*(ie+1) - CLZ(we); usz wsum = bit_sum(wp, wia); + if (wsum == wia0) { dec(xf); return inc(x); } B r; u8 xe = TI(x,elType);