overby.me
this repo has no description
1/*
2 * Copyright (c) 2002 Apple Computer, Inc. All rights reserved.
3 *
4 * @APPLE_LICENSE_HEADER_START@
5 *
6 * The contents of this file constitute Original Code as defined in and
7 * are subject to the Apple Public Source License Version 1.1 (the
8 * "License"). You may not use this file except in compliance with the
9 * License. Please obtain a copy of the License at
10 * http://www.apple.com/publicsource and read it before using this file.
11 *
12 * This Original Code and all software distributed under the License are
13 * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
14 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
15 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
16 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
17 * License for the specific language governing rights and limitations
18 * under the License.
19 *
20 * @APPLE_LICENSE_HEADER_END@
21 */
22
23#include "math.h"
24#include "complex.h" /* for its *double* prototypes */
25
26#undef __LIBMLDBL_COMPAT
27#if 0 /* Temporarily disable the plan-in-blue. */
28#define __LIBMLDBL_64(sym) __asm("_" __STRING(sym) "$LDBL64")
29#define __LIBMLDBL_GLOB(sym) __asm(".text"); __asm(".align 4"); __asm(".globl " "_" __STRING(sym))
30#define __LIBMLDBL_NO_DECOR(sym) __asm("_" __STRING(sym) ": b " "_" __STRING(sym) "$LDBL64")
31#define __LIBMLDBL_COMPAT(sym) __LIBMLDBL_64(sym) ; __LIBMLDBL_GLOB(sym) ; __LIBMLDBL_NO_DECOR(sym)
32#else
33#define __LIBMLDBL_64(sym) /* NOTHING */
34#define __LIBMLDBL_GLOB(sym) __asm(".text"); __asm(".align 4"); __asm(".globl " "_" __STRING(sym) "$LDBL64")
35#define __LIBMLDBL_NO_DECOR(sym) __asm("_" __STRING(sym) "$LDBL64" ": b " "_" __STRING(sym))
36#define __LIBMLDBL_COMPAT(sym) __LIBMLDBL_64(sym) ; __LIBMLDBL_GLOB(sym) ; __LIBMLDBL_NO_DECOR(sym)
37#endif
38
39//
40// Introduce prototypes and (trivial) implementations for long double == double scheme.
41// Programs compiled with -mlong-double-64 see these.
42//
43extern long double complex cacosl( long double complex ) __LIBMLDBL_COMPAT(cacosl);
44extern long double complex casinl( long double complex ) __LIBMLDBL_COMPAT(casinl);
45extern long double complex catanl( long double complex ) __LIBMLDBL_COMPAT(catanl);
46
47extern long double complex ccosl( long double complex ) __LIBMLDBL_COMPAT(ccosl);
48extern long double complex csinl( long double complex ) __LIBMLDBL_COMPAT(csinl);
49extern long double complex ctanl( long double complex ) __LIBMLDBL_COMPAT(ctanl);
50
51extern long double complex cacoshl( long double complex ) __LIBMLDBL_COMPAT(cacoshl);
52extern long double complex casinhl( long double complex ) __LIBMLDBL_COMPAT(casinhl);
53extern long double complex catanhl( long double complex ) __LIBMLDBL_COMPAT(catanhl);
54
55extern long double complex ccoshl( long double complex ) __LIBMLDBL_COMPAT(ccoshl);
56extern long double complex csinhl( long double complex ) __LIBMLDBL_COMPAT(csinhl);
57extern long double complex ctanhl( long double complex ) __LIBMLDBL_COMPAT(ctanhl);
58
59extern long double complex cexpl( long double complex ) __LIBMLDBL_COMPAT(cexpl);
60extern long double complex clogl( long double complex ) __LIBMLDBL_COMPAT(clogl);
61
62extern long double cabsl( long double complex ) __LIBMLDBL_COMPAT(cabsl);
63extern long double complex cpowl( long double complex, long double complex ) __LIBMLDBL_COMPAT(cpowl);
64extern long double complex csqrtl( long double complex ) __LIBMLDBL_COMPAT(csqrtl);
65
66extern long double cargl( long double complex ) __LIBMLDBL_COMPAT(cargl);
67extern long double cimagl( long double complex ) __LIBMLDBL_COMPAT(cimagl);
68extern long double complex conjl( long double complex ) __LIBMLDBL_COMPAT(conjl);
69extern long double complex cprojl( long double complex ) __LIBMLDBL_COMPAT(cprojl);
70extern long double creall( long double complex ) __LIBMLDBL_COMPAT(creall);
71
72long double complex cacosl( long double complex z ) { return cacos( z); }
73long double complex casinl( long double complex z ) { return casin( z); }
74long double complex catanl( long double complex z ) { return catan( z); }
75
76long double complex ccosl( long double complex z ) { return ccos( z); }
77long double complex csinl( long double complex z ) { return csin( z); }
78long double complex ctanl( long double complex z ) { return ctan( z); }
79
80long double complex cacoshl( long double complex z ) { return cacosh( z); }
81long double complex casinhl( long double complex z ) { return casinh( z); }
82long double complex catanhl( long double complex z ) { return catanh( z); }
83
84long double complex ccoshl( long double complex z ) { return ccosh( z); }
85long double complex csinhl( long double complex z ) { return csinh( z); }
86long double complex ctanhl( long double complex z ) { return ctanh( z); }
87
88long double complex cexpl( long double complex z ) { return cexp( z); }
89long double complex clogl( long double complex z ) { return clog( z); }
90
91long double cabsl( long double complex z ) { return cabs( z); }
92long double complex cpowl( long double complex x, long double complex y ) { return cpow( x, y); }
93long double complex csqrtl( long double complex z ) { return csqrt( z); }
94
95long double cargl( long double complex z ) { return carg( z); }
96long double cimagl( long double complex z ) { return cimag( z); }
97long double complex conjl( long double complex z ) { return conj( z); }
98long double complex cprojl( long double complex z ) { return cproj( z); }
99long double creall( long double complex z ) { return creal( z); }