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

Avoid warning with GCC on FreeBSD 6.2 in `numbers.c'.

Browse source
This commit is contained in:
Ludovic Courtès 2008-05-07 17:43:17 +02:00
parent 6d4e1f627e
commit 7a35784c6b
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-07 Ludovic Courtès <ludo@gnu.org>
* numbers.c (scm_from_complex_double): Mark as `SCM_UNUSED'.
This fixes compilation with `-Werror' on FreeBSD 6.2 (i386).
2008-05-05 Neil Jerram <neil@ossau.uklinux.net> 2008-05-05 Neil Jerram <neil@ossau.uklinux.net>
* c-tokenize.lex: #define YY_NO_INPUT. * c-tokenize.lex: #define YY_NO_INPUT.

4
libguile/numbers.c
View file

@ -170,8 +170,10 @@ xisnan (double x)
#define SCM_COMPLEX_VALUE(z) \ #define SCM_COMPLEX_VALUE(z) \
(SCM_COMPLEX_REAL (z) + GUILE_I * SCM_COMPLEX_IMAG (z)) (SCM_COMPLEX_REAL (z) + GUILE_I * SCM_COMPLEX_IMAG (z))
static inline SCM scm_from_complex_double (complex double z) SCM_UNUSED;
/* Convert a C "complex double" to an SCM value. */ /* Convert a C "complex double" to an SCM value. */
static SCM static inline SCM
scm_from_complex_double (complex double z) scm_from_complex_double (complex double z)
{ {
return scm_c_make_rectangular (creal (z), cimag (z)); return scm_c_make_rectangular (creal (z), cimag (z));