From: Jérémie Astor <fennecdjay@gmail.com>
Date: Sun, 5 Sep 2021 20:58:35 +0000 (+0200)
Subject: :art: Improve ANY >> Array:[T]
X-Git-Tag: nightly~470^2~10
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=8c7e1ad4c5815606e33067e4d43e3c0a4893be57;p=gwion.git

:art: Improve ANY >> Array:[T]
---

diff --git a/src/lib/array.c b/src/lib/array.c
index f785b309..d628ae6a 100644
--- a/src/lib/array.c
+++ b/src/lib/array.c
@@ -209,7 +209,7 @@ static OP_EMIT(opem_array_sr) {
   const Instr pop = emit_add_instr(emit, RegMove);
   pop->m_val      = -SZ_INT;
   if (isa(bin->lhs->type, emit->gwion->type[et_compound]) > 0)
-    emit_compound_addref(emit, bin->lhs->type, -SZ_INT, false);
+    emit_compound_addref(emit, bin->lhs->type, -SZ_INT*2, false);
   (void)emit_add_instr(emit, ArrayAppendFront);
   return GW_OK;
 }