summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/inline.h')
-rw-r--r--libguile/inline.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/inline.h b/libguile/inline.h
index 49431697f..09a1b5a35 100644
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -78,7 +78,7 @@
"inline.c", when `inline' is not supported at all or when "extern inline"
is used. */
-#include "libguile/boehm-gc.h"
+#include "libguile/bdw-gc.h"
SCM_API SCM scm_cell (scm_t_bits car, scm_t_bits cdr);
@@ -243,7 +243,7 @@ SCM_C_EXTERN_INLINE
SCM
scm_array_handle_ref (scm_t_array_handle *h, ssize_t p)
{
- if (SCM_UNLIKELY (p < 0 && -p > 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 */
@@ -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 > 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 */