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

Fix compilation of `numbers.c' on Tru64.

Browse source 
* libguile/numbers.c (scm_c_make_polar): Don't use sincos(3) on non-GNU
  platforms.  Reported by Didier Godefroy <ldg@ulysium.net>.
This commit is contained in:
Ludovic Courtès 2009-04-21 22:37:45 +02:00
parent ecea820468
commit ceb6da3f8b
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/numbers.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005, 2006, 2007, 2008 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
* *
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories * Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories
* and Bellcore. See scm_divide. * and Bellcore. See scm_divide.
@ -5352,7 +5352,12 @@ SCM
scm_c_make_polar (double mag, double ang) scm_c_make_polar (double mag, double ang)
{ {
double s, c; double s, c;
#if HAVE_SINCOS
/* The sincos(3) function is undocumented an broken on Tru64. Thus we only
use it on Glibc-based systems that have it (it's a GNU extension). See
http://lists.gnu.org/archive/html/guile-user/2009-04/msg00033.html for
details. */
#if (defined HAVE_SINCOS) && (defined __GLIBC__) && (defined _GNU_SOURCE)
sincos (ang, &s, &c); sincos (ang, &s, &c);
#else #else
s = sin (ang); s = sin (ang);