mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(make_uvec): Use ((size_t)-1) instead of SIZE_MAX, for better

Browse source 
portability.
This commit is contained in:
Marius Vollmer 2004-11-04 15:22:02 +00:00
parent 1dbd057054
commit f64f0bfff4
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
srfi/srfi-4.c
View file

@ -331,13 +331,12 @@ uvec_free (SCM uvec)
/* Utility procedures. */ /* Utility procedures. */
/* ================================================================ */ /* ================================================================ */
/* Create a new, uninitialized homogeneous numeric vector of type TYPE /* Create a new, uninitialized homogeneous numeric vector of type TYPE
with space for LEN elements. */ with space for LEN elements. */
inline static SCM inline static SCM
make_uvec (const int pos, const char * func_name, int type, size_t len) make_uvec (const int pos, const char * func_name, int type, size_t len)
{ {
if (len > ((size_t) SIZE_MAX >> uvec_shifts[type])) if (len > (((size_t)-1) >> uvec_shifts[type]))
{ {
if(pos < 0) if(pos < 0)
scm_out_of_range (func_name, scm_size2num (len)); scm_out_of_range (func_name, scm_size2num (len));