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 27 long double copysignl(long double a1, long double a2) { return copysign(a1, a2); } 28 long double fmaxl(long double a1, long double a2) { return fmax(a1, a2); } 29 long double fmodl(long double a1, long double a2) { return fmod(a1, a2); } 30 long double fminl(long double a1, long double a2) { return fmin(a1, a2); } 31 int ilogbl(long double a1) { return ilogb(a1); } 32 long long llrintl(long double a1) { return llrint(a1); } 33 #if !defined(__i386__) // x86 has an assembler lrint/lrintl. 34 long lrintl(long double a1) { return lrint(a1); } 35 #endif 36 long long llroundl(long double a1) { return llround(a1); } 37 long lroundl(long double a1) { return lround(a1); } 38 long double modfl(long double a1, long double* a2) { double i; double f = modf(a1, &i); *a2 = i; return f; } 39 float nexttowardf(float a1, long double a2) { return nextafterf(a1, (float) a2); } 40 long double powl(long double x, long double y) { return pow(x, y); } 41 long double roundl(long double a1) { return round(a1); } 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. 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) 52 long double expl(long double x) { return exp(x); } 53 long double exp2l(long double x) { return exp2(x); } 54 long double logl(long double x) { return log(x); } 55 long double log2l(long double x) { return log2(x); } 56 #endif 57