~ chicken-core (chicken-5) a12c3486a4124c177b237874cec5add5244e7ee0

commit a12c3486a4124c177b237874cec5add5244e7ee0
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sun Feb 23 13:30:43 2014 +0100
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Mon Mar 10 20:42:51 2014 -0300

    Fix isnormal() problem on MingW by using gcc builtin instead of the macro from mingw's header-files. Restore the tests as well
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/chicken.h b/chicken.h
index 6b4f63c6..6dfefb94 100644
--- a/chicken.h
+++ b/chicken.h
@@ -368,6 +368,11 @@ static inline int isinf_ld (long double x)
 { return !isnan (x) && isnan (x - x); }
 #endif
 
+/* Mingw's isnormal() is broken on 32bit; use GCC's builtin (see #1062) */
+#ifdef __MINGW32__
+# undef isnormal
+# define isnormal __builtin_isnormal
+#endif
 
 /* Constants: */
 
diff --git a/tests/library-tests.scm b/tests/library-tests.scm
index e8a429b9..bbe27191 100644
--- a/tests/library-tests.scm
+++ b/tests/library-tests.scm
@@ -90,14 +90,12 @@
 ;;; A few denormalised numbers, cribbed from NetBSD ATF tests for ldexp():
 ;; On some machines/OSes these tests fail due to missing hardware support
 ;; and sometimes due to broken libc/libm support, so we have disabled them.
-#|
 (assert (equal? 1.0 (numerator 1.1125369292536006915451e-308)))
 (assert (equal? +inf.0 (denominator 1.1125369292536006915451e-308)))
 (assert (equal? -1.0 (numerator -5.5626846462680034577256e-309)))
 (assert (equal? +inf.0 (denominator -5.5626846462680034577256e-309)))
 (assert (equal? 1.0 (numerator 4.9406564584124654417657e-324)))
 (assert (equal? +inf.0 (denominator 4.9406564584124654417657e-324)))
-|#
 
 (assert (equal? 4.0 (denominator -1.25)))
 (assert (equal? 1e10 (numerator 1e10)))