From 4aea668a6c62281cf38288ae901adb7660b4d1cf Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Thu, 14 Nov 2024 15:07:20 -0500 Subject: [PATCH] =?UTF-8?q?Allow=20i16=20/=E2=81=BC=20to=20jump=20to=20Sin?= =?UTF-8?q?geli=20code=20after=20range=20checking?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/slash.c | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/src/builtins/slash.c b/src/builtins/slash.c index 0bb765a9..1ecb4937 100644 --- a/src/builtins/slash.c +++ b/src/builtins/slash.c @@ -826,7 +826,7 @@ B slash_im(B t, B x) { rp[sum>0] = sum; rp[0] = xia - sum; r = num_squeeze(r); break; } -#define IIND_INT(N) \ +#define IIND_INT(N, CHECK_RIA) \ if (xp[0]<0) thrM("/⁼: Argument cannot contain negative numbers"); \ usz a=1; while (axp[a-1]) a++; \ u##N max=xp[a-1]; \ @@ -856,32 +856,35 @@ B slash_im(B t, B x) { break; \ } \ usz ria = (usz)max + 1; \ + CHECK_RIA \ i##N* rp; r = m_i##N##arrv(&rp, ria); for (usz i=0; i