mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

expand_stack intrinsic takes thread

Browse source 
* libguile/intrinsics.h (scm_t_thread_sp_intrinsic): Change to take
  thread instead of vp.
  (SCM_FOR_ALL_VM_INTRINSICS): Change expand_stack to expect thread, not
  vp.
* libguile/vm-engine.c (ALLOC_FRAME): Call expand_stack with thread.
* libguile/vm.c (thread_expand_stack, scm_bootstrap_vm): Adapt.
This commit is contained in:
Andy Wingo 2018-06-24 10:07:52 +02:00
parent 150f3474df
commit 6ceb33e767
3 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.c
View file

@ -182,7 +182,7 @@
{ \
struct scm_vm_intrinsics *i = (void*)intrinsics; \
SYNC_IP (); \
i->expand_stack (VP, sp); \
i->expand_stack (thread, sp); \
CACHE_SP (); \
} \
else \