From a9b3b3de97660d067a97f0fbcf82ac6d743d2734 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sun, 7 Aug 2022 01:19:09 +0300 Subject: [PATCH] use TALLOC instead of m_shArr --- 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 c59a419e..74d19ab4 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -958,7 +958,7 @@ B join_c1(B t, B x) { usz xia = a(x)->ia; usz* xsh = a(x)->sh; usz tlen = 4*xr+2*r0; for (usz a=0; aa; // Temp buffer + TALLOC(usz, st, tlen); // Temp buffer st[xr-1]=1; for (ur a=xr; a-->1; ) 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] @@ -1079,7 +1079,7 @@ B join_c1(B t, B x) { usz* sh = arr_shAlloc(ra, xr+tr); shcpy(sh , st , xr); shcpy(sh+xr, csh, tr); - decShObj(sto); + TFREE(st); decG(x); return SFNS_FILLS? qWithFill(taga(ra), rf) : taga(ra); }