From 7c4673f972f8adb2c6905001f42363bf1ca72a44 Mon Sep 17 00:00:00 2001 From: dzaima Date: Tue, 20 Sep 2022 19:27:23 +0300 Subject: [PATCH] more num_squeezeChk --- src/builtins/slash.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/builtins/slash.c b/src/builtins/slash.c index 987a2e7e..44a5cd8b 100644 --- a/src/builtins/slash.c +++ b/src/builtins/slash.c @@ -446,7 +446,7 @@ B slash_c1(B t, B x) { usz xia = IA(x); B r; u8 xe = TI(x,elType); - if (xe!=el_bit && s<=xia) { x = num_squeeze(x); xe = TI(x,elType); } + if (xe!=el_bit && s<=xia) { x = num_squeezeChk(x); xe = TI(x,elType); } if (xe==el_bit) { r = where(x, xia, s); } else if (RARE(xia > (usz)I32_MAX+1)) { @@ -684,7 +684,7 @@ B slash_im(B t, B x) { usz ria = 1 + (sum>0); f64* rp; B r = m_f64arrv(&rp, ria); rp[sum>0] = sum; rp[0] = xia - sum; - decG(x); return num_squeeze(r); + decG(x); return num_squeezeChk(r); } #define CASE_SMALL(N) \ case el_i##N: { \ @@ -719,7 +719,7 @@ B slash_im(B t, B x) { i32* rp; r = m_i32arrv(&rp, ria); for (usz i=0; i