From 68c3ba3aa0ae348eac5f4b5b289a8ba5a4177328 Mon Sep 17 00:00:00 2001 From: dzaima Date: Fri, 14 Apr 2023 00:05:39 +0300 Subject: [PATCH] fix leak in dyadic Insert with an empty argument --- src/builtins/md1.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 76b23a71..13f733ee 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -509,7 +509,7 @@ B insert_c2(Md1D* d, B w, B x) { B f = d->f; if (isAtm(x) || RNK(x)==0) thrM("˝: 𝕩 must have rank at least 1"); usz xia = IA(x); B r = w; - if (xia==0) return r; + if (xia==0) { decG(x); return r; } if (isFun(f)) { if (RNK(x)==1 && isPervasiveDyExt(f)) {