:art: Update vm

diff --git a/src/vm/vm.c b/src/vm/vm.c
index cab5a91c6383b02cc27af543878d5d3fe4fc9678..ddecb99eab5aa911cbbfe12e3b603d9b5cf73b4f 100644 (file)
--- a/src/vm/vm.c
+++ b/src/vm/vm.c
@@ -691,7 +691,9 @@ sporkexp:
   DISPATCH()
 sporkend:
   assert(!VAL); // spork are not mutable
+PRAGMA_PUSH()
   *(M_Object*)(reg-SZ_INT) = child->info->me;
+PRAGMA_POP()
   DISPATCH()
 brancheqint:
   reg -= SZ_INT;
@@ -724,9 +726,9 @@ arraytop:
   else
     goto _goto;
 arrayaccess:
+  a.obj = *(M_Object*)(reg-VAL2);
 {
   register const m_int idx = *(m_int*)(reg + VAL);
-  a.obj = *(M_Object*)(reg-VAL2);
   if(idx < 0 || (m_uint)idx >= m_vector_size(ARRAY(a.obj))) {
     gw_err(_("  ... at index [%" INT_F "]\n"), idx);
     gw_err(_("  ... at dimension [%" INT_F "]\n"), VAL);