From 8b93156a9e4e76ca5bab477f82c52bac4bb1d245 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sat, 11 Sep 2021 17:12:13 +0300 Subject: [PATCH] =?UTF-8?q?=E2=8A=94=20i8arr?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index cd037b38..1fd0738d 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -770,7 +770,14 @@ B group_c2(B t, B w, B x) { Arr* rf = m_fillarrp(0); fillarr_setFill(rf, m_f64(0)); arr_shVec(rf); fillarr_setFill(r, taga(rf)); - if (TI(x,elType)==el_i32) { + if (TI(x,elType)==el_i8) { + for (usz i = 0; i < ria; i++) { i8* t; rp[i] = m_i8arrv(&t, len[i]); } + i8* xp = i8any_ptr(x); + for (usz i = 0; i < xia; i++) { + i32 n = wp[i]; + if (n>=0) i8arr_ptr(rp[n])[pos[n]++] = xp[i]; + } + } else if (TI(x,elType)==el_i32) { for (usz i = 0; i < ria; i++) { i32* t; rp[i] = m_i32arrv(&t, len[i]); } i32* xp = i32any_ptr(x); for (usz i = 0; i < xia; i++) {