mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* validate.h: Do not cast to (unsigned) in SCM_VALIDATE_INUM_RANGE

Browse source 
when testing high-end of the range.  Mikael Djurfeldt noticed this
anomaly -- thanks Mikael!
This commit is contained in:
Greg J. Badros 2000-04-18 15:23:11 +00:00
parent fee7ef83a3
commit 120d4924ed
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.8 2000-04-17 03:17:02 mdj Exp $ */ /* $Id: validate.h,v 1.9 2000-04-18 15:23:11 gjb Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc. /* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -238,13 +238,12 @@
} while (0) } while (0)
/* [low,high) */ /* [low,high) */
#define SCM_VALIDATE_INUM_RANGE(pos, k, low, high) \ #define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \
do { \ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \
SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \ SCM_ASSERT_RANGE(pos,k, \
SCM_ASSERT_RANGE (pos, k, \ (SCM_INUM (k) >= low && \
(SCM_INUM (k) >= low \ SCM_INUM (k) < high)); \
&& ((unsigned) SCM_INUM (k)) < high)); \ } while (0)
} while (0)
#define SCM_VALIDATE_INUM_RANGE_COPY(pos, k, low, high, cvar) \ #define SCM_VALIDATE_INUM_RANGE_COPY(pos, k, low, high, cvar) \
do { \ do { \