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

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2006-07-12 08:07:27 +00:00
parent ea19f0b3cf
commit eaa94eaaa9
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2006-07-12 Ludovic Courtès <ludovic.courtes@laas.fr>
* numbers.c (guile_ieee_init): Use regular ANSI C casts rather
than C++-style `X_CAST ()'. Patch posted by by Mike Gran.
2006-06-13 Ludovic Courtès <ludovic.courtes@laas.fr> 2006-06-13 Ludovic Courtès <ludovic.courtes@laas.fr>
* eq.c: Include "struct.h", "goops.h" and "objects.h". * eq.c: Include "struct.h", "goops.h" and "objects.h".

6
libguile/numbers.c
View file

@ -598,7 +598,7 @@ guile_ieee_init (void)
#elif HAVE_DINFINITY #elif HAVE_DINFINITY
/* OSF */ /* OSF */
extern unsigned int DINFINITY[2]; extern unsigned int DINFINITY[2];
guile_Inf = (*(X_CAST(double *, DINFINITY))); guile_Inf = (*((double *) (DINFINITY)));
#else #else
double tmp = 1e+10; double tmp = 1e+10;
guile_Inf = tmp; guile_Inf = tmp;
@ -619,9 +619,11 @@ guile_ieee_init (void)
/* C99 NAN, when available */ /* C99 NAN, when available */
guile_NaN = NAN; guile_NaN = NAN;
#elif HAVE_DQNAN #elif HAVE_DQNAN
{
/* OSF */ /* OSF */
extern unsigned int DQNAN[2]; extern unsigned int DQNAN[2];
guile_NaN = (*(X_CAST(double *, DQNAN))); guile_NaN = (*((double *)(DQNAN)));
}
#else #else
guile_NaN = guile_Inf / guile_Inf; guile_NaN = guile_Inf / guile_Inf;
#endif #endif