diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-11-04 17:07:42 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-11-04 17:07:42 +0000 |
commit | b0780bc595cde0ba9e98e56d929811b0dfb7cc76 (patch) | |
tree | 3dc3db6ece52a327accd637a0fb7d94552f81f08 /libguile/srfi-4.c | |
parent | c24d026b3baf9817d11de7401e404adc4f4912dc (diff) | |
download | guile-b0780bc595cde0ba9e98e56d929811b0dfb7cc76.tar.gz |
(make_uvec): Use SCM_I_SIZE_MAX instead of SIZE_MAX for added
portability.
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r-- | libguile/srfi-4.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index 28e5e7120..be3982aa0 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -326,7 +326,8 @@ uvec_fast_set_x (int type, void *base, size_t c_idx, SCM val) static SCM_C_INLINE SCM 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); if (!SCM_UNBNDP (fill)) { |