mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* coop-threads.c: fix various preprocessor usages of new public

Browse source 
symbols to expect 0 or 1 values rather than 1 or undefined.
i.e. change #ifdef to #if, etc.
This commit is contained in:
Rob Browning 2003-03-27 20:06:12 +00:00
parent 84df1d72db
commit 16a16ad8f7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/coop-threads.c
View file

@ -105,7 +105,7 @@ scm_threads_mark_stacks (void)
/* Active thread */
/* stack_len is long rather than sizet in order to guarantee
that &stack_len is long aligned */
#ifdef SCM_STACK_GROWS_UP
#if SCM_STACK_GROWS_UP
long stack_len = ((SCM_STACKITEM *) (&thread) -
(SCM_STACKITEM *) thread->base);
@ -152,7 +152,7 @@ scm_threads_mark_stacks (void)
else
{
/* Suspended thread */
#ifdef SCM_STACK_GROWS_UP
#if SCM_STACK_GROWS_UP
long stack_len = ((SCM_STACKITEM *) (thread->sp) -
(SCM_STACKITEM *) thread->base);