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

(make_uvec): Use SCM_I_SIZE_MAX instead of SIZE_MAX for added

Browse source 
portability.
This commit is contained in:
Marius Vollmer 2004-11-04 17:07:42 +00:00
parent c24d026b3b
commit b0780bc595
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/srfi-4.c
View file

@ -326,7 +326,8 @@ uvec_fast_set_x (int type, void *base, size_t c_idx, SCM val)
static SCM_C_INLINE SCM static SCM_C_INLINE SCM
make_uvec (int type, SCM len, SCM fill) make_uvec (int type, SCM len, SCM fill)
{ {
size_t c_len = scm_to_unsigned_integer (len, 0, SIZE_MAX / uvec_sizes[type]); size_t c_len = scm_to_unsigned_integer (len, 0,
SCM_I_SIZE_MAX / uvec_sizes[type]);
SCM uvec = alloc_uvec (type, c_len); SCM uvec = alloc_uvec (type, c_len);
if (!SCM_UNBNDP (fill)) if (!SCM_UNBNDP (fill))
{ {