From f0a9714e8bee7cf2abf5e33092a5e65e35094f76 Mon Sep 17 00:00:00 2001 From: dzaima Date: Sat, 13 May 2023 00:32:19 +0300 Subject: [PATCH] copy result in tbl_c2 if needed --- src/builtins/md1.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index e32ae1e0..cd3c4fa0 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -76,6 +76,7 @@ B tbl_c2(Md1D* d, B w, B x) { B f = d->f; if (TI(x,arrD1) && wia>=4 && xia<2560>>arrTypeBitsLog(TY(x))) { Arr* wd = arr_shVec(TI(w,slice)(incG(w), 0, wia)); r = fc2(f, C2(slash, m_i32(xia), taga(wd)), C2(shape, m_f64(ria), incG(x))); + if(RARE(!reusable(r))) r = taga(cpyWithShape(r)); arr_shErase(a(r), 1); } else if (xia>7 && wia>0) { SGet(w)