mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

Inline struct scm_vm into struct scm_i_thread

Browse source 
* libguile/threads.h (scm_i_thread): Inline struct scm_vm into struct
  scm_i_thread, as these exist in a one-to-one relationship.
* libguile/threads.c (guilify_self_1, thread_mark, on_thread_exit):
* libguile/control.c (scm_suspendable_continuation_p):
* libguile/vm.c (init_vm, thread_vm): Adapt users.
This commit is contained in:
Andy Wingo 2018-06-24 08:59:42 +02:00
parent aad5bfed60
commit 2480761bde
4 changed files with 13 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/threads.h
View file

@ -30,6 +30,7 @@
#include "libguile/iselect.h"
#include "libguile/smob.h"
#include "libguile/continuations.h"
#include "libguile/vm.h"
#if SCM_USE_PTHREAD_THREADS
#include "libguile/pthread-threads.h"
@ -102,7 +103,7 @@ typedef struct scm_i_thread {
SCM_STACKITEM *continuation_base;
/* For keeping track of the stack and registers. */
struct scm_vm *vp;
struct scm_vm vm;
SCM_STACKITEM *base;
jmp_buf regs;
} scm_i_thread;