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

* num2integral.i.c (NUM2INTEGRAL): Eliminated some warnings about

Browse source 
testing an unsigned value for being >= 0.
This commit is contained in:
Dirk Herrmann 2001-10-05 18:26:46 +00:00
parent a599743cdc
commit 3dbacabc55
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-10-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* num2integral.i.c (NUM2INTEGRAL): Eliminated some warnings about
testing an unsigned value for being >= 0.
2001-10-05 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-10-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.h: Removed old comment about using SCM_CAR to access * numbers.h: Removed old comment about using SCM_CAR to access

13
libguile/num2integral.i.c
View file

@ -35,6 +35,11 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
ITYPE res = 0; ITYPE res = 0;
size_t l; size_t l;
#ifdef UNSIGNED
if (SCM_BIGSIGN (num))
scm_out_of_range (s_caller, num);
#endif
for (l = SCM_NUMDIGS (num); l--;) for (l = SCM_NUMDIGS (num); l--;)
{ {
ITYPE new = SCM_I_BIGUP (ITYPE, res) + SCM_BDIGITS (num)[l]; ITYPE new = SCM_I_BIGUP (ITYPE, res) + SCM_BDIGITS (num)[l];
@ -47,10 +52,10 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
res = new; res = new;
} }
if (SCM_BIGSIGN (num))
#ifdef UNSIGNED #ifdef UNSIGNED
scm_out_of_range (s_caller, num); return res;
#else #else
if (SCM_BIGSIGN (num))
{ {
res = -res; res = -res;
if (res <= 0) if (res <= 0)
@ -58,7 +63,6 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
else else
scm_out_of_range (s_caller, num); scm_out_of_range (s_caller, num);
} }
#endif
else else
{ {
if (res >= 0) if (res >= 0)
@ -66,8 +70,7 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
else else
scm_out_of_range (s_caller, num); scm_out_of_range (s_caller, num);
} }
#endif
return res;
} }
else else
scm_wrong_type_arg (s_caller, pos, num); scm_wrong_type_arg (s_caller, pos, num);