mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* coop-threads.c: #include "libguile/_scm.h" early. Replace

Browse source 
usage of struct timespect with scm_t_timespec.  Replace usage of
STACK_GROWS_UP with SCM_STACK_GROWS_UP.
This commit is contained in:
Rob Browning 2003-03-25 23:53:56 +00:00
parent 2295d4daa2
commit 2445400666
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/coop-threads.c
View file

@ -42,6 +42,7 @@
#include "libguile/_scm.h"
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libguile/coop-threads.h" #include "libguile/coop-threads.h"
#include "libguile/root.h" #include "libguile/root.h"
@ -104,7 +105,7 @@ scm_threads_mark_stacks (void)
/* Active thread */ /* Active thread */
/* stack_len is long rather than sizet in order to guarantee /* stack_len is long rather than sizet in order to guarantee
that &stack_len is long aligned */ that &stack_len is long aligned */
#ifdef STACK_GROWS_UP #ifdef SCM_STACK_GROWS_UP
long stack_len = ((SCM_STACKITEM *) (&thread) - long stack_len = ((SCM_STACKITEM *) (&thread) -
(SCM_STACKITEM *) thread->base); (SCM_STACKITEM *) thread->base);
@ -151,7 +152,7 @@ scm_threads_mark_stacks (void)
else else
{ {
/* Suspended thread */ /* Suspended thread */
#ifdef STACK_GROWS_UP #ifdef SCM_STACK_GROWS_UP
long stack_len = ((SCM_STACKITEM *) (thread->sp) - long stack_len = ((SCM_STACKITEM *) (thread->sp) -
(SCM_STACKITEM *) thread->base); (SCM_STACKITEM *) thread->base);
@ -505,7 +506,7 @@ scm_timed_wait_condition_variable (SCM c, SCM m, SCM t)
{ {
coop_c *cv; coop_c *cv;
coop_m *mx; coop_m *mx;
struct timespec waittime; scm_t_timespec waittime;
SCM_ASSERT (SCM_CONDVARP (c), SCM_ASSERT (SCM_CONDVARP (c),
c, c,