[Guile-commits] 24/25: Sync IP before allocating closures

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit b294a1e7d7007755bfb1017495d4eb81fe62b53c
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 8 15:07:42 2018 +0100

    Sync IP before allocating closures
    
    * libguile/vm-engine.c (vm_engine): Sync IP before allocating closures.
---
 libguile/vm-engine.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c
index 997fdcc..a47e1b1 100644
--- a/libguile/vm-engine.c
+++ b/libguile/vm-engine.c
@@ -1552,6 +1552,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
       UNPACK_24 (ip[2], nfree);
 
       // FIXME: Assert range of nfree?
+      SYNC_IP ();
       closure = scm_inline_words (thread, scm_tc7_program | (nfree << 16),
                                   nfree + 2);
       SCM_SET_CELL_WORD_1 (closure, ip + offset);