diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-10-15 17:39:34 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-10-15 17:39:34 +0200 |
| commit | 3245c0fbefa2f119918e42cc1691fb9a41feb792 (patch) | |
| tree | b22960be37237ae59c806dc68c7c75c15e0b63a2 /libguile/inline.h | |
| parent | 1ab3976ef742f01c1e21c92d72277debcd88b2ee (diff) | |
| download | guile-3245c0fbefa2f119918e42cc1691fb9a41feb792.tar.gz | |
signedness fix fix fix
* libguile/inline.h: Fix signedness fix fix.
Diffstat (limited to 'libguile/inline.h')
| -rw-r--r-- | libguile/inline.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index eaa7494d6..09a1b5a35 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -256,7 +256,7 @@ SCM_C_EXTERN_INLINE void scm_array_handle_set (scm_t_array_handle *h, ssize_t p, SCM v) { - if (SCM_UNLIKELY (p < 0 && -p > (ssize_t) h->base)) + if (SCM_UNLIKELY (p < 0 && ((size_t)-p) > h->base)) /* catch overflow */ scm_out_of_range (NULL, scm_from_ssize_t (p)); /* perhaps should catch overflow here too */ |