From 592a8312accab1f51e4f077983ce0b7605098428 Mon Sep 17 00:00:00 2001 From: dzaima Date: Thu, 1 Feb 2024 21:11:37 +0200 Subject: [PATCH] a bunch of PLAINLOOP --- src/builtins/fns.c | 8 ++++---- src/builtins/transpose.c | 14 +++++++------- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/src/builtins/fns.c b/src/builtins/fns.c index f2159b84..d960d6eb 100644 --- a/src/builtins/fns.c +++ b/src/builtins/fns.c @@ -200,10 +200,10 @@ B fne_c1(B t, B x) { usz or = 0; for (i32 i = 0; i < xr; i++) or|= sh[i]; B r; - if (or<=I8_MAX ) { i8* rp; r = m_i8arrv (&rp, xr); for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } - else if (or<=I16_MAX) { i16* rp; r = m_i16arrv(&rp, xr); for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } - else if (or<=I32_MAX) { i32* rp; r = m_i32arrv(&rp, xr); for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } - else { f64* rp; r = m_f64arrv(&rp, xr); for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } + if (or<=I8_MAX ) { i8* rp; r = m_i8arrv (&rp, xr); PLAINLOOP for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } + else if (or<=I16_MAX) { i16* rp; r = m_i16arrv(&rp, xr); PLAINLOOP for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } + else if (or<=I32_MAX) { i32* rp; r = m_i32arrv(&rp, xr); PLAINLOOP for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } + else { f64* rp; r = m_f64arrv(&rp, xr); PLAINLOOP for (i32 i = 0; i < xr; i++) rp[i] = sh[i]; } decG(x); return r; } B feq_c1(B t, B x) { diff --git a/src/builtins/transpose.c b/src/builtins/transpose.c index fa2be66a..8baf81bc 100644 --- a/src/builtins/transpose.c +++ b/src/builtins/transpose.c @@ -293,15 +293,15 @@ B transp_c2(B t, B w, B x) { // Add up stride for each axis ur na = max + 1; // Number of result axes that moved usz* st = rsh + xr; // Length na - for (usz j=0; j=1 */ \ @@ -369,9 +369,9 @@ B transp_c2(B t, B w, B x) { usz i_skip = (w-1)*hs*csz; usz end = rf*csz - i_skip; ur a0 = na - 1; - if (xlw<3) for (usz i=0; i>= 3-xlw; - else if (xlw>3) for (usz i=0; i>= 3-xlw; + else if (xlw>3) PLAINLOOP for (usz i=0; i