mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix scm_array_handle_ref signedness fix

Browse source 
* libguile/inline.h: Fix signedness fix.
This commit is contained in:
Andy Wingo 2009-10-15 15:44:45 +02:00
parent 10fab72449
commit 6d7c440288
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/inline.h
View file

@ -243,7 +243,7 @@ SCM_C_EXTERN_INLINE
SCM SCM
scm_array_handle_ref (scm_t_array_handle *h, ssize_t p) scm_array_handle_ref (scm_t_array_handle *h, ssize_t p)
{ {
if (SCM_UNLIKELY (p < 0 && -p > (ssize_t) h->base)) if (SCM_UNLIKELY (p < 0 && ((size_t)-p) > h->base))
/* catch overflow */ /* catch overflow */
scm_out_of_range (NULL, scm_from_ssize_t (p)); scm_out_of_range (NULL, scm_from_ssize_t (p));
/* perhaps should catch overflow here too */ /* perhaps should catch overflow here too */