[Guile-commits] 03/03: Fix arena expansion logic

[Andy Wingo]

wingo pushed a commit to branch lightening
in repository guile.

commit 5df432b76398d1409d875d1bf33a4e415043e42e
Author: Andy Wingo <address@hidden>
Date:   Thu Apr 4 14:59:38 2019 +0200

    Fix arena expansion logic
    
    * libguile/jit.c (compile): Fix logic to clear old labels.
---
 libguile/jit.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index a01e10e..b354583 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -4687,12 +4687,13 @@ analyze (scm_jit_state *j)
 static void
 compile (scm_jit_state *j)
 {
+  j->ip = (uint32_t *) j->start;
+  set_register_state (j, SP_IN_REGISTER | FP_IN_REGISTER);
+
   for (ptrdiff_t offset = 0; j->ip + offset < j->end; offset++)
     j->labels[offset] = NULL;
-  j->reloc_idx = 0;
 
-  j->ip = (uint32_t *) j->start;
-  set_register_state (j, SP_IN_REGISTER | FP_IN_REGISTER);
+  j->reloc_idx = 0;
 
   while (j->ip < j->end)
     {