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 bad arguments to range_error() in numbers.c

Browse source 
Fixes https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58154. Ouch.
This commit is contained in:
Daniel Llorens 2022-09-30 12:02:12 +02:00
parent 426ed4068a
commit c0004442b7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.c
View file

@ -6782,7 +6782,7 @@ scm_to_uint32 (SCM arg)
}
else
scm_wrong_type_arg_msg (NULL, 0, arg, "exact integer");
range_error (arg, 0, scm_integer_from_uint32 (UINT32_MAX));
range_error (arg, scm_integer_from_uint32 (0), scm_integer_from_uint32 (UINT32_MAX));
#elif SCM_SIZEOF_LONG == 8
return inum_in_range (arg, 0, UINT32_MAX);
#else
@ -6838,7 +6838,7 @@ scm_to_uint64 (SCM arg)
}
else
scm_wrong_type_arg_msg (NULL, 0, arg, "exact integer");
range_error (arg, 0, scm_integer_from_uint64 (UINT64_MAX));
range_error (arg, scm_integer_from_uint64(0), scm_integer_from_uint64 (UINT64_MAX));
}
SCM