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

* stackchk.h (SCM_STACK_OVERFLOW_P): Change definition to avoid

Browse source 
signed/unsigned comparisons.
This commit is contained in:
Jim Blandy 1998-09-05 16:50:40 +00:00
parent 4e6e211987
commit 574f95b63d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/stackchk.h
View file

@ -65,10 +65,10 @@
#ifdef STACK_CHECKING
# ifdef SCM_STACK_GROWS_UP
# define SCM_STACK_OVERFLOW_P(s)\
(s - SCM_BASE (scm_rootcont) > SCM_STACK_LIMIT * sizeof (SCM_STACKITEM))
(s > ((SCM_STACKITEM *) SCM_BASE (scm_rootcont) + SCM_STACK_LIMIT))
# else
# define SCM_STACK_OVERFLOW_P(s)\
(SCM_BASE (scm_rootcont) - s > SCM_STACK_LIMIT * sizeof (SCM_STACKITEM))
(s < ((SCM_STACKITEM *) SCM_BASE (scm_rootcont) - SCM_STACK_LIMIT))
# endif
# define SCM_CHECK_STACK\
{\