1 /*
2 * Copyright (C) 2013 The Android Open Source Project
3 *
4 * Licensed under the Apache License, Version 2.0 (the "License");
5 * you may not use this file except in compliance with the License.
6 * You may obtain a copy of the License at
7 *
8 * http://www.apache.org/licenses/LICENSE-2.0
9 *
10 * Unless required by applicable law or agreed to in writing, software
11 * distributed under the License is distributed on an "AS IS" BASIS,
12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 * See the License for the specific language governing permissions and
14 * limitations under the License.
15 */
16
17 #define _GNU_SOURCE
18 #include <float.h>
19 #include <math.h>
20
21 #if !defined(__LP64__)
22
23 // The BSD "long double" functions are broken when sizeof(long double) == sizeof(double).
24 // Android works around those cases by replacing the broken functions with our own trivial stubs
25 // that call the regular "double" function.
26
copysignl(long double a1,long double a2)27 long double copysignl(long double a1, long double a2) { return copysign(a1, a2); }
fmaxl(long double a1,long double a2)28 long double fmaxl(long double a1, long double a2) { return fmax(a1, a2); }
fmodl(long double a1,long double a2)29 long double fmodl(long double a1, long double a2) { return fmod(a1, a2); }
fminl(long double a1,long double a2)30 long double fminl(long double a1, long double a2) { return fmin(a1, a2); }
ilogbl(long double a1)31 int ilogbl(long double a1) { return ilogb(a1); }
llrintl(long double a1)32 long long llrintl(long double a1) { return llrint(a1); }
33 #if !defined(__i386__) // x86 has an assembler lrint/lrintl.
lrintl(long double a1)34 long lrintl(long double a1) { return lrint(a1); }
35 #endif
llroundl(long double a1)36 long long llroundl(long double a1) { return llround(a1); }
lroundl(long double a1)37 long lroundl(long double a1) { return lround(a1); }
modfl(long double a1,long double * a2)38 long double modfl(long double a1, long double* a2) { double i; double f = modf(a1, &i); *a2 = i; return f; }
nexttowardf(float a1,long double a2)39 float nexttowardf(float a1, long double a2) { return nextafterf(a1, (float) a2); }
powl(long double x,long double y)40 long double powl(long double x, long double y) { return pow(x, y); }
roundl(long double a1)41 long double roundl(long double a1) { return round(a1); }
sincosl(long double x,long double * s,long double * c)42 void sincosl(long double x, long double* s, long double* c) { sincos(x, (double*) s, (double*) c); }
43
44 #endif // __LP64__
45
46 // FreeBSD doesn't have an ld128 implementations of tgammal, so both LP32 and LP64 need this.
tgammal(long double x)47 long double tgammal(long double x) { return tgamma(x); }
48
49 // external/arm-optimized-routines does not provide the long double
50 // wrappers for the routines it implements.
51 #if (LDBL_MANT_DIG == 53)
expl(long double x)52 long double expl(long double x) { return exp(x); }
exp2l(long double x)53 long double exp2l(long double x) { return exp2(x); }
logl(long double x)54 long double logl(long double x) { return log(x); }
log2l(long double x)55 long double log2l(long double x) { return log2(x); }
56 #endif
57