mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Sync IP before allocating closures

Browse source 
* libguile/vm-engine.c (vm_engine): Sync IP before allocating closures.
This commit is contained in:
Andy Wingo 2018-01-08 15:07:42 +01:00
parent 55a8483435
commit b294a1e7d7
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm-engine.c
View file

@ -1552,6 +1552,7 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
UNPACK_24 (ip[2], nfree); UNPACK_24 (ip[2], nfree);
// FIXME: Assert range of nfree? // FIXME: Assert range of nfree?
SYNC_IP ();
closure = scm_inline_words (thread, scm_tc7_program | (nfree << 16), closure = scm_inline_words (thread, scm_tc7_program | (nfree << 16),
nfree + 2); nfree + 2);
SCM_SET_CELL_WORD_1 (closure, ip + offset); SCM_SET_CELL_WORD_1 (closure, ip + offset);