diff --git a/src/builtins/fns.c b/src/builtins/fns.c index d960d6eb..839b9a2a 100644 --- a/src/builtins/fns.c +++ b/src/builtins/fns.c @@ -139,7 +139,7 @@ B ud_c2(B t, B w, B x) { empty|= m==0 | m==l; rsh[i] = l - m; } - for (usz i=wr; i1) { usz* xsh = SH(x); - for (usz i = 0; i < xr; i++) sh[i] = xsh[i]*fsh[i]; + PLAINLOOP for (usz i = 0; i < xr; i++) sh[i] = xsh[i]*fsh[i]; } shcpy(sh+xr, fsh+xr, ir-xr); } @@ -773,12 +773,12 @@ B join_c1(B t, B x) { usz xia = IA(x); usz* xsh = SH(x); - usz tlen = 4*xr+2*r0; for (usz a=0; a1; ) st[a-1] = st[a]*xsh[a]; // Stride - usz* tsh0 = st+xr; usz* tsh = tsh0+xr+r0; // Test shapes + usz tlen = 4*xr+2*r0; PLAINLOOP for (usz a=0; a1; ) st[a-1] = st[a]*xsh[a]; // Stride + usz* tsh0 = st+xr; usz* tsh = tsh0+xr+r0; // Test shapes // Length buffer i is lp+lp[i] - usz* lp = tsh+xr+r0; lp[0]=xr; for (usz a=1; a3) thrF("β€’bit._%U: 𝕗 must contain between 1 and 3 numbers (%s≑≠𝕗)", name, ia); SGetU(f) usz t[3]; - for (usz i=0 ; i