From: Jérémie Astor <fennecdjay@gmail.com>
Date: Tue, 17 Aug 2021 12:25:39 +0000 (+0200)
Subject: :bug: member functionnal array func fix
X-Git-Tag: nightly~470^2~70
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=ea3ec1672a9b4829dc3365b306f519c951138c5a;p=gwion.git

:bug: member functionnal array func fix
---

diff --git a/src/lib/array.c b/src/lib/array.c
index 270b18be..a29a1761 100644
--- a/src/lib/array.c
+++ b/src/lib/array.c
@@ -438,7 +438,7 @@ static INSTR(map_run_ini) {
   FunctionalFrame *frame = &*(FunctionalFrame *)MEM(SZ_INT * 3);
   shred->pc++;
   shred->mem += MAP_CODE_OFFSET + SZ_INT; // work in a safe memory space
-  m_vector_get(array, frame->index, &*(m_bit **)(shred->mem + SZ_INT * 3));
+  m_vector_get(array, frame->index, &*(m_bit **)(shred->mem + SZ_INT * 3 + frame->code->stack_depth));
 }
 
 static INSTR(map_run_end) {
@@ -562,7 +562,7 @@ static INSTR(foldl_run_ini) {
   const FunctionalFrame *frame = &*(FunctionalFrame *)MEM(SZ_INT * 3);
   shred->mem += MAP_CODE_OFFSET + SZ_INT; // work in a safe memory space
   m_vector_get(ARRAY(self), frame->index,
-               &*(m_bit **)(shred->mem + SZ_INT * 2));
+               &*(m_bit **)(shred->mem + SZ_INT * 2 + frame->code->stack_depth));
 }
 
 static INSTR(foldr_run_ini) {
@@ -576,7 +576,7 @@ static INSTR(foldr_run_ini) {
   shred->mem += MAP_CODE_OFFSET + SZ_INT; // work in a safe memory space
   const M_Vector array = ARRAY(self);
   m_vector_get(array, ARRAY_LEN(array) - frame->index - 1,
-               &*(m_bit **)(shred->mem + SZ_INT * 2));
+               &*(m_bit **)(shred->mem + SZ_INT * 2 + frame->code->stack_depth));
 }
 
 static INSTR(fold_run_end) {