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

* coop-pthreads.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:07 +00:00
parent 277ee0fa4c
commit 84df1d72db
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/coop-pthreads.c
View file

@ -895,7 +895,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 *) (&t) -
(SCM_STACKITEM *) thread->base);
@ -942,7 +942,7 @@ scm_threads_mark_stacks (void)
else
{
/* Suspended thread */
#ifdef SCM_STACK_GROWS_UP
#if SCM_STACK_GROWS_UP
long stack_len = t->top - t->base;
scm_mark_locations (t->base, stack_len);
#else