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

Verify that FLT_RADIX is 2.

Browse source 
* libguile/numbers.c: Trigger a compilation error if FLT_RADIX is not 2.
  This has long been assumed by code in numbers.c.
This commit is contained in:
Mark H Weaver 2013-03-04 18:37:23 -05:00
parent a2dead1b0f
commit cba521fe42
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/numbers.c
View file

@ -81,6 +81,9 @@
#define M_PI 3.14159265358979323846 #define M_PI 3.14159265358979323846
#endif #endif
/* FIXME: We assume that FLT_RADIX is 2 */
verify (FLT_RADIX == 2);
typedef scm_t_signed_bits scm_t_inum; typedef scm_t_signed_bits scm_t_inum;
#define scm_from_inum(x) (scm_from_signed_integer (x)) #define scm_from_inum(x) (scm_from_signed_integer (x))