From b093ebbc665119b35f7c572de82aadab8f9ab583 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 22 May 2023 00:18:59 +0300 Subject: [PATCH] finish PICK_IDX message --- src/builtins/sfns.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index 99f0a6bf..9ebf3258 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -340,11 +340,11 @@ static NOINLINE void checkIndexList(B w, ur xr) { } } -// calculate index -#define PICK_IDX(RES, GET, IA, OOB) \ - usz RES = 0; \ - for (usz i=0, ia_=(IA); i < ia_; i++) { \ - c = c*xsh[i] + WRAP(GET, xsh[i], OOB); \ +// calculate index into variable RES; reads xsh, defines i for GET +#define PICK_IDX(RES, GET, RNK, OOB) \ + usz RES = 0; \ + for (usz i=0, rnk_=(RNK); i < rnk_; i++) { \ + c = c*xsh[i] + WRAP(GET, xsh[i], OOB); \ } static i64 pick_convFloat(f64 f) {