From ffffdb5895e7ba31ffc40a22744b9f5ca51b0291 Mon Sep 17 00:00:00 2001 From: dzaima Date: Fri, 19 Jan 2024 18:03:54 +0200 Subject: [PATCH] relax take/drop overflow checking --- src/builtins/sfns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 395ba325..d2066d30 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -639,12 +639,12 @@ B take_c2(B t, B w, B x) { TAKEDROP_INIT(1); if (n>=0) { - CHECK_IA(n, 8); + if (n != (usz)n) thrOOM(); a = take_impl(n, x); if (xr==1) return taga(arr_shVec(a)); } else { n = -n; - CHECK_IA(n, 8); + if (n != (usz)n) thrOOM(); usz xia = IA(x); if (n>xia) { B xf = getFillE(x);