@zigc/lib 0.16.0-test.1 → 0.17.0-dev.9

package/libc/mingw/math/bsd_private_base.h

@@ -1,148 +0,0 @@
-/*
-* ====================================================
-* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
-*
-* Developed at SunPro, a Sun Microsystems, Inc. business.
-* Permission to use, copy, modify, and distribute this
-* software is freely granted, provided that this notice
-* is preserved.
-* ====================================================
-*/
-
-#include <inttypes.h>
-#include <float.h>
-
-typedef unsigned int u_int32_t;
-
-typedef union
-{
-    double value;
-    struct
-    {
-        u_int32_t lsw;
-        u_int32_t msw;
-    } parts;
-} ieee_double_shape_type;
-
-typedef union {
-    float value;
-    u_int32_t word;
-} ieee_float_shape_type;
-
-/* Get two 32 bit ints from a double.  */
-
-#define EXTRACT_WORDS(ix0,ix1,d)    \
-do {                                \
-    ieee_double_shape_type ew_u;    \
-    ew_u.value = (d);               \
-    (ix0) = ew_u.parts.msw;         \
-    (ix1) = ew_u.parts.lsw;         \
-} while (0)
-
-/* Get the most significant 32 bit int from a double.  */
-
-#define GET_HIGH_WORD(i,d)          \
-do {                                \
-    ieee_double_shape_type gh_u;    \
-    gh_u.value = (d);               \
-    (i) = gh_u.parts.msw;           \
-} while (0)
-
-/* Get the less significant 32 bit int from a double.  */
-
-#define GET_LOW_WORD(i,d)           \
-do {                                \
-    ieee_double_shape_type gl_u;    \
-    gl_u.value = (d);               \
-    (i) = gl_u.parts.lsw;           \
-} while (0)
-
-/* Set a double from two 32 bit ints.  */
-
-#define INSERT_WORDS(d,ix0,ix1)     \
-do {                                \
-    ieee_double_shape_type iw_u;    \
-    iw_u.parts.msw = (ix0);         \
-    iw_u.parts.lsw = (ix1);         \
-    (d) = iw_u.value;               \
-} while (0)
-
-/* Set the more significant 32 bits of a double from an int.  */
-
-#define SET_HIGH_WORD(d,v)          \
-do {                                \
-    ieee_double_shape_type sh_u;    \
-    sh_u.value = (d);               \
-    sh_u.parts.msw = (v);           \
-    (d) = sh_u.value;               \
-} while (0)
-
-/* Set the less significant 32 bits of a double from an int.  */
-
-#define SET_LOW_WORD(d,v)           \
-do {                                \
-    ieee_double_shape_type sl_u;    \
-    sl_u.value = (d);               \
-    sl_u.parts.lsw = (v);           \
-    (d) = sl_u.value;               \
-} while (0)
-
-#define GET_FLOAT_WORD(i,d) do \
-{ \
-    ieee_float_shape_type gf_u; \
-    gf_u.value = (d); \
-    (i) = gf_u.word; \
-} while(0)
-
-#define SET_FLOAT_WORD(d,i) do \
-{ \
-    ieee_float_shape_type gf_u; \
-    gf_u.word = (i); \
-    (d) = gf_u.value; \
-} while(0)
-
-
-#ifdef FLT_EVAL_METHOD
-/*
- * Attempt to get strict C99 semantics for assignment with non-C99 compilers.
- */
-#if FLT_EVAL_METHOD == 0 || __GNUC__ == 0
-#define	STRICT_ASSIGN(type, lval, rval)	((lval) = (rval))
-#else
-#define	STRICT_ASSIGN(type, lval, rval) do {	\
-	volatile type __lval;			\
-						\
-	if (sizeof(type) >= sizeof(long double))	\
-		(lval) = (rval);		\
-	else {					\
-		__lval = (rval);		\
-		(lval) = __lval;		\
-	}					\
-} while (0)
-#endif
-#endif /* FLT_EVAL_METHOD */
-
-/*
- * Mix 0, 1 or 2 NaNs.  First add 0 to each arg.  This normally just turns
- * signaling NaNs into quiet NaNs by setting a quiet bit.  We do this
- * because we want to never return a signaling NaN, and also because we
- * don't want the quiet bit to affect the result.  Then mix the converted
- * args using the specified operation.
- *
- * When one arg is NaN, the result is typically that arg quieted.  When both
- * args are NaNs, the result is typically the quietening of the arg whose
- * mantissa is largest after quietening.  When neither arg is NaN, the
- * result may be NaN because it is indeterminate, or finite for subsequent
- * construction of a NaN as the indeterminate 0.0L/0.0L.
- *
- * Technical complications: the result in bits after rounding to the final
- * precision might depend on the runtime precision and/or on compiler
- * optimizations, especially when different register sets are used for
- * different precisions.  Try to make the result not depend on at least the
- * runtime precision by always doing the main mixing step in long double
- * precision.  Try to reduce dependencies on optimizations by adding the
- * the 0's in different precisions (unless everything is in long double
- * precision).
- */
-#define nan_mix(x, y)		(nan_mix_op((x), (y), +))
-#define nan_mix_op(x, y, op)	(((x) + 0.0L) op ((y) + 0))

package/libc/mingw/math/frexpf.c

@@ -1,13 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-extern double __cdecl frexp(double _X,int *_Y);
-
-float frexpf (float, int *);
-float frexpf (float x, int *expn)
-{
-  return (float)frexp(x, expn);
-}
-

package/libc/mingw/math/frexpl.c

@@ -1,71 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-long double frexpl(long double value, int* exp);
-
-#if __SIZEOF_LONG_DOUBLE__ == __SIZEOF_DOUBLE__
-
-double frexp(double value, int* exp);
-
-/* On ARM `long double` is 64 bits. */
-long double frexpl(long double value, int* exp)
-{
-  return frexp(value, exp);
-}
-
-#elif defined(_AMD64_) || defined(__x86_64__) || defined(_X86_) || defined(__i386__)
-
-#include <stdint.h>
-
-/* https://en.wikipedia.org/wiki/Extended_precision#x86_extended_precision_format */
-typedef union x87reg_ {
-  struct __attribute__((__packed__)) {
-    uint64_t f64;
-    uint16_t exp : 15;
-    uint16_t sgn :  1;
-  };
-  long double f;
-} x87reg;
-
-long double frexpl(long double value, int* exp)
-{
-  int n;
-  x87reg reg;
-  reg.f = value;
-  if(reg.exp == 0x7FFF) {
-    /* The value is an infinity or NaN.
-     * Store zero in `*exp`. Return the value as is. */
-    *exp = 0;
-    return reg.f;
-  }
-  if(reg.exp != 0) {
-    /* The value is normalized.
-     * Extract and zero out the exponent. */
-    *exp = reg.exp - 0x3FFE;
-    reg.exp = 0x3FFE;
-    return reg.f;
-  }
-  if(reg.f64 == 0) {
-    /* The value is zero.
-     * Store zero in `*exp`. Return the value as is.
-     * Note the signness. */
-    *exp = 0;
-    return reg.f;
-  }
-  /* The value is denormalized.
-   * Extract the exponent, normalize the value, then zero out
-   * the exponent. Note that x87 uses an explicit leading bit. */
-  n = __builtin_clzll(reg.f64);
-  reg.f64 <<= n;
-  *exp = 1 - 0x3FFE - n;
-  reg.exp = 0x3FFE;
-  return reg.f;
-}
-
-#else
-
-#error Please add `frexpl()` implementation for this platform.
-
-#endif

package/libc/mingw/math/x86/acosf.c

@@ -1,29 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-/*
- * Written by J.T. Conklin <jtc@netbsd.org>.
- * Public domain.
- */
-
-#include <math.h>
-
-float
-acosf (float x)
-{
-  float res = 0.0F;
-
-  /* acosl = atanl (sqrtl(1 - x^2) / x) */
-  asm volatile (
-	"fld	%%st\n\t"
-	"fmul	%%st(0)\n\t"		/* x^2 */
-	"fld1\n\t"
-	"fsubp\n\t"			/* 1 - x^2 */
-	"fsqrt\n\t"			/* sqrtl (1 - x^2) */
-	"fxch	%%st(1)\n\t"
-	"fpatan"
-	: "=t" (res) : "0" (x) : "st(1)");
-  return res;
-}

package/libc/mingw/math/x86/atanf.c

@@ -1,23 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-/*
- * Written by J.T. Conklin <jtc@netbsd.org>.
- * Public domain.
- *
- */
-
-#include <math.h>
-
-float
-atanf (float x)
-{
-  float res = 0.0F;
-
-  asm volatile (
-       "fld1\n\t"
-       "fpatan" : "=t" (res) : "0" (x));
-  return res;
-}

package/libc/mingw/math/x86/atanl.c

@@ -1,18 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-long double atanl (long double x);
-
-long double
-atanl (long double x)
-{
-  long double res = 0.0L;
-
-  asm volatile (
-       "fld1\n\t"
-       "fpatan"
-       : "=t" (res) : "0" (x));
-  return res;
-}

package/libc/mingw/math/x86/cos.def.h

@@ -1,65 +0,0 @@
-/*
- This Software is provided under the Zope Public License (ZPL) Version 2.1.
-
- Copyright (c) 2009, 2010 by the mingw-w64 project
-
- See the AUTHORS file for the list of contributors to the mingw-w64 project.
-
- This license has been certified as open source. It has also been designated
- as GPL compatible by the Free Software Foundation (FSF).
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   1. Redistributions in source code must retain the accompanying copyright
-      notice, this list of conditions, and the following disclaimer.
-   2. Redistributions in binary form must reproduce the accompanying
-      copyright notice, this list of conditions, and the following disclaimer
-      in the documentation and/or other materials provided with the
-      distribution.
-   3. Names of the copyright holders must not be used to endorse or promote
-      products derived from this software without prior written permission
-      from the copyright holders.
-   4. The right to distribute this software or to use it for any purpose does
-      not give you the right to use Servicemarks (sm) or Trademarks (tm) of
-      the copyright holders.  Use of them is covered by separate agreement
-      with the copyright holders.
-   5. If any files are modified, you must cause the modified files to carry
-      prominent notices stating that you changed the files and the date of
-      any change.
-
- Disclaimer
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS ``AS IS'' AND ANY EXPRESSED
- OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
- EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY DIRECT, INDIRECT,
- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, 
- OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
- EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#include "../complex/complex_internal.h"
-#include <errno.h>
-
-extern long double __cosl_internal (long double);
-
-__FLT_TYPE
-__FLT_ABI(cos) (__FLT_TYPE x)
-{
-  int x_class = fpclassify (x);
-  if (x_class == FP_NAN)
-    {
-      __FLT_RPT_DOMAIN ("cos", x, 0.0, x);
-      return x;
-    }
-  else if (x_class == FP_INFINITE)
-    {
-      __FLT_RPT_DOMAIN ("cos", x, 0.0, __FLT_NAN);
-      return __FLT_NAN;
-    }
-  return (__FLT_TYPE) __cosl_internal ((long double) x);
-}

package/libc/mingw/math/x86/cosl.c

@@ -1,46 +0,0 @@
-/*
- This Software is provided under the Zope Public License (ZPL) Version 2.1.
-
- Copyright (c) 2009, 2010 by the mingw-w64 project
-
- See the AUTHORS file for the list of contributors to the mingw-w64 project.
-
- This license has been certified as open source. It has also been designated
- as GPL compatible by the Free Software Foundation (FSF).
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   1. Redistributions in source code must retain the accompanying copyright
-      notice, this list of conditions, and the following disclaimer.
-   2. Redistributions in binary form must reproduce the accompanying
-      copyright notice, this list of conditions, and the following disclaimer
-      in the documentation and/or other materials provided with the
-      distribution.
-   3. Names of the copyright holders must not be used to endorse or promote
-      products derived from this software without prior written permission
-      from the copyright holders.
-   4. The right to distribute this software or to use it for any purpose does
-      not give you the right to use Servicemarks (sm) or Trademarks (tm) of
-      the copyright holders.  Use of them is covered by separate agreement
-      with the copyright holders.
-   5. If any files are modified, you must cause the modified files to carry
-      prominent notices stating that you changed the files and the date of
-      any change.
-
- Disclaimer
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS ``AS IS'' AND ANY EXPRESSED
- OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
- EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY DIRECT, INDIRECT,
- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, 
- OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
- EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#define _NEW_COMPLEX_LDOUBLE 1
-#include "cos.def.h"

package/libc/mingw/math/x86/cosl_internal.S

@@ -1,55 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <_mingw_mac.h>
-
-	.file	"cosl_internal.S"
-	.text
-#ifdef __x86_64__
-	.align 8
-#else
-	.align 4
-#endif
-.globl __MINGW_USYMBOL(__cosl_internal)
-	.def	__MINGW_USYMBOL(__cosl_internal);	.scl	2;	.type	32;	.endef
-__MINGW_USYMBOL(__cosl_internal):
-#ifdef __x86_64__
-	fldt	(%rdx)
-	fcos
-	fnstsw	%ax
-	testl	$0x400,%eax
-	jz	1f
-	fldpi
-	fadd	%st(0)
-	fxch	%st(1)
-2:	fprem1
-	fnstsw	%ax
-	testl	$0x400,%eax
-	jnz	2b
-	fstp	%st(1)
-	fcos
-1:	movq %rcx,%rax
-	movq	$0,8(%rcx)
-	fstpt (%rcx)
-	ret
-#else
-	fldt	4(%esp)
-	fcos
-	fnstsw	%ax
-	testl	$0x400,%eax
-	jnz	1f
-	ret
-1:	fldpi
-	fadd	%st(0)
-	fxch	%st(1)
-2:	fprem1
-	fnstsw	%ax
-	testl	$0x400,%eax
-	jnz	2b
-	fstp	%st(1)
-	fcos
-	ret
-#endif
-

package/libc/mingw/math/x86/ldexp.c

@@ -1,23 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <math.h>
-#include <errno.h>
-
-double ldexp(double x, int expn)
-{
-  double res = 0.0;
-  if (!isfinite (x) || x == 0.0)
-    return x;
-
-  __asm__ __volatile__ ("fscale"
-  	    : "=t" (res)
-	    : "0" (x), "u" ((double) expn));
-
-  if (!isfinite (res) || res == 0.0L)
-    errno = ERANGE;
-
-  return res;
-}

package/libc/mingw/math/x86/scalbn.S

@@ -1,41 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <_mingw_mac.h>
-
-	.file	"scalbn.S"
-	.text
-#ifdef __x86_64__
-	.align 8
-#else
-	.align 4
-#endif
-.globl __MINGW_USYMBOL(scalbn)
-	.def	__MINGW_USYMBOL(scalbn);	.scl	2;	.type	32;	.endef
-__MINGW_USYMBOL(scalbn):
-#ifdef __x86_64__
-	subq	$24, %rsp
-	movq	%rdx,(%rsp)
-	fildl	(%rsp)
-	movsd	%xmm0,(%rsp)
-	fldl	(%rsp)
-	fscale
-	fstp	%st(1)
-	fstpl	(%rsp)
-	movsd	(%rsp),%xmm0
-	addq	$24, %rsp
-	ret
-
-#else
-	fildl	12(%esp)
-	fldl	4(%esp)
-	fscale
-	fstp	%st(1)
-	ret
-#endif
-
-.globl __MINGW_USYMBOL(scalbln)
-	.set	__MINGW_USYMBOL(scalbln),__MINGW_USYMBOL(scalbn)
-

package/libc/mingw/math/x86/scalbnf.S

@@ -1,40 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <_mingw_mac.h>
-
-	.file	"scalbnf.S"
-	.text
-#ifdef __x86_64__
-	.align 8
-#else
-	.align 4
-#endif
-.globl __MINGW_USYMBOL(scalbnf)
-	.def	__MINGW_USYMBOL(scalbnf);	.scl	2;	.type	32;	.endef
-__MINGW_USYMBOL(scalbnf):
-#ifdef __x86_64__
-	subq	$24, %rsp
-	movq	%rdx,(%rsp)
-	fildl	(%rsp)
-	movss	%xmm0,(%rsp)
-	flds	(%rsp)
-	fscale
-	fstp	%st(1)
-	fstps	(%rsp)
-	movss	(%rsp),%xmm0
-	addq	$24, %rsp
-	ret
-#else
-	fildl	8(%esp)
-	flds	4(%esp)
-	fscale
-	fstp	%st(1)
-	ret
-#endif
-
-.globl __MINGW_USYMBOL(scalblnf)
-	.set	__MINGW_USYMBOL(scalblnf),__MINGW_USYMBOL(scalbnf)
-

package/libc/mingw/math/x86/sin.def.h

@@ -1,65 +0,0 @@
-/*
- This Software is provided under the Zope Public License (ZPL) Version 2.1.
-
- Copyright (c) 2009, 2010 by the mingw-w64 project
-
- See the AUTHORS file for the list of contributors to the mingw-w64 project.
-
- This license has been certified as open source. It has also been designated
- as GPL compatible by the Free Software Foundation (FSF).
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   1. Redistributions in source code must retain the accompanying copyright
-      notice, this list of conditions, and the following disclaimer.
-   2. Redistributions in binary form must reproduce the accompanying
-      copyright notice, this list of conditions, and the following disclaimer
-      in the documentation and/or other materials provided with the
-      distribution.
-   3. Names of the copyright holders must not be used to endorse or promote
-      products derived from this software without prior written permission
-      from the copyright holders.
-   4. The right to distribute this software or to use it for any purpose does
-      not give you the right to use Servicemarks (sm) or Trademarks (tm) of
-      the copyright holders.  Use of them is covered by separate agreement
-      with the copyright holders.
-   5. If any files are modified, you must cause the modified files to carry
-      prominent notices stating that you changed the files and the date of
-      any change.
-
- Disclaimer
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS ``AS IS'' AND ANY EXPRESSED
- OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
- EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY DIRECT, INDIRECT,
- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, 
- OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
- EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#include "../complex/complex_internal.h"
-#include <errno.h>
-
-extern long double __sinl_internal (long double);
-
-__FLT_TYPE
-__FLT_ABI(sin) (__FLT_TYPE x)
-{
-  int x_class = fpclassify (x);
-  if (x_class == FP_NAN)
-    {
-      __FLT_RPT_DOMAIN ("sin", x, 0.0, x);
-      return x;
-    }
-  else if (x_class == FP_INFINITE)
-    {
-      __FLT_RPT_DOMAIN ("sin", x, 0.0, __FLT_NAN);
-      return __FLT_NAN;
-    }
-  return (__FLT_TYPE) __sinl_internal ((long double) x);
-}

package/libc/mingw/math/x86/sinl.c

@@ -1,46 +0,0 @@
-/*
- This Software is provided under the Zope Public License (ZPL) Version 2.1.
-
- Copyright (c) 2009, 2010 by the mingw-w64 project
-
- See the AUTHORS file for the list of contributors to the mingw-w64 project.
-
- This license has been certified as open source. It has also been designated
- as GPL compatible by the Free Software Foundation (FSF).
-
- Redistribution and use in source and binary forms, with or without
- modification, are permitted provided that the following conditions are met:
-
-   1. Redistributions in source code must retain the accompanying copyright
-      notice, this list of conditions, and the following disclaimer.
-   2. Redistributions in binary form must reproduce the accompanying
-      copyright notice, this list of conditions, and the following disclaimer
-      in the documentation and/or other materials provided with the
-      distribution.
-   3. Names of the copyright holders must not be used to endorse or promote
-      products derived from this software without prior written permission
-      from the copyright holders.
-   4. The right to distribute this software or to use it for any purpose does
-      not give you the right to use Servicemarks (sm) or Trademarks (tm) of
-      the copyright holders.  Use of them is covered by separate agreement
-      with the copyright holders.
-   5. If any files are modified, you must cause the modified files to carry
-      prominent notices stating that you changed the files and the date of
-      any change.
-
- Disclaimer
-
- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS ``AS IS'' AND ANY EXPRESSED
- OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
- OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
- EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY DIRECT, INDIRECT,
- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
- LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, 
- OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
- EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*/
-
-#define _NEW_COMPLEX_LDOUBLE 1
-#include "sin.def.h"