From: Jérémie Astor <astor.jeremie@wanadoo.fr>
Date: Mon, 14 Sep 2020 20:13:07 +0000 (+0200)
Subject: :bomb: Fix concat leak
X-Git-Tag: nightly~1298
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=b4505fccf3a270560c374e61737540c2de9c57af;p=gwion.git

:bomb: Fix concat leak
---

diff --git a/src/lib/array.c b/src/lib/array.c
index d7fac265..f3ad109a 100644
--- a/src/lib/array.c
+++ b/src/lib/array.c
@@ -224,6 +224,8 @@ static INSTR(ArrayConcatLeft) {
   }
   m_bit *data = more->ptr + ARRAY_OFFSET;
   memmove(ARRAY_PTR(base) + (len - 1) * sz, data, sz);
+  release(obase, shred);
+  release(omore, shred);
 }
 
 static INSTR(ArrayConcatRight) {
@@ -240,6 +242,8 @@ static INSTR(ArrayConcatRight) {
   }
   memmove(ARRAY_PTR(base) + (ARRAY_LEN(more) + len - 1) * sz, ARRAY_PTR(base), len * sz);
   memmove(ARRAY_PTR(base), ARRAY_PTR(more), ARRAY_LEN(more) * sz);
+  release(obase, shred);
+  release(omore, shred);
 }
 
 static OP_EMIT(opem_array_sr) {