diff options
| author | Jim Blandy <jimb@red-bean.com> | 1998-09-05 16:50:40 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@red-bean.com> | 1998-09-05 16:50:40 +0000 |
| commit | 574f95b63d561a7ff9be80ffa24d1047e7b2b925 (patch) | |
| tree | 510115d13c95d55a2558940a612c7daee18ff04c /libguile/stackchk.h | |
| parent | 4e6e21198734a80493fa40bfe89d1b431f538cc8 (diff) | |
| download | guile-574f95b63d561a7ff9be80ffa24d1047e7b2b925.tar.gz | |
* stackchk.h (SCM_STACK_OVERFLOW_P): Change definition to avoid
signed/unsigned comparisons.
Diffstat (limited to 'libguile/stackchk.h')
| -rw-r--r-- | libguile/stackchk.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/stackchk.h b/libguile/stackchk.h index 984a8c018..b8401ead9 100644 --- a/libguile/stackchk.h +++ b/libguile/stackchk.h @@ -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\ {\ |