[Guile-commits] 02/02: Fix make-polar signedness of zeros on macOS

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit c4b0491e91a7c4d4a2b89511b37eae61e79de47a
Author: Matt Wette <address@hidden>
Date:   Tue Feb 21 22:07:39 2017 +0100

    Fix make-polar signedness of zeros on macOS
    
    * configure.ac: Check for __sincos.
    * libguile/numbers.c (scm_c_make_polar): Fall back to __sincos if
      possible.  Fixes zero signedness of make-polar on macOS.
---
 configure.ac       | 3 ++-
 libguile/numbers.c | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/configure.ac b/configure.ac
index 0201519..8c90d3f 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1152,8 +1152,9 @@ AC_REPLACE_FUNCS([strerror memmove])
 #   asinh, acosh, atanh, trunc - C99 standard, generally not available on
 #                                older systems
 #   sincos - GLIBC extension
+#   __sincos - APPLE extension
 #
-AC_CHECK_FUNCS(asinh acosh atanh copysign finite sincos trunc)
+AC_CHECK_FUNCS(asinh acosh atanh copysign finite sincos __sincos trunc)
 
 # C99 specifies isinf and isnan as macros.
 # HP-UX provides only macros, no functions.
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 07170d9..b926d24 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -9109,6 +9109,8 @@ scm_c_make_polar (double mag, double ang)
      details.  */
 #if (defined HAVE_SINCOS) && (defined __GLIBC__) && (defined _GNU_SOURCE)
   sincos (ang, &s, &c);
+#elif (defined HAVE___SINCOS)
+  __sincos (ang, &s, &c);
 #else
   s = sin (ang);
   c = cos (ang);