libm/ldouble_wrappers.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * Wrapper functions implementing all the long double math functions
   4  * defined by SuSv3 by actually calling the double version of
   5  * each function and then casting the result back to a long double
   6  * to return to the user.
   7  *
   8  * Copyright (C) 2005 by Erik Andersen <andersen@uclibc.org>
   9  *
  10  * Licensed under the LGPL v2.1, see the file COPYING.LIB in this tarball.
  11  */
  12
  13 #include "math.h"
  14
  15 /* Implement the following, as defined by SuSv3 */
  16 #if 0
  17 long double acoshl(long double);
  18 long double acosl(long double);
  19 long double asinhl(long double);
  20 long double asinl(long double);
  21 long double atan2l(long double, long double);
  22 long double atanhl(long double);
  23 long double atanl(long double);
  24 long double cbrtl(long double);
  25 long double ceill(long double);
  26 long double copysignl(long double, long double);
  27 long double coshl(long double);
  28 long double cosl(long double);
  29 long double erfcl(long double);
  30 long double erfl(long double);
  31 long double exp2l(long double);
  32 long double expl(long double);
  33 long double expm1l(long double);
  34 long double fabsl(long double);
  35 long double fdiml(long double, long double);
  36 long double floorl(long double);
  37 long double fmal(long double, long double, long double);
  38 long double fmaxl(long double, long double);
  39 long double fminl(long double, long double);
  40 long double fmodl(long double, long double);
  41 long double frexpl(long double value, int *);
  42 long double hypotl(long double, long double);
  43 int         ilogbl(long double);
  44 long double ldexpl(long double, int);
  45 long double lgammal(long double);
  46 long long   llrintl(long double);
  47 long long   llroundl(long double);
  48 long double log10l(long double);
  49 long double log1pl(long double);
  50 long double log2l(long double);
  51 long double logbl(long double);
  52 long double logl(long double);
  53 long        lrintl(long double);
  54 long        lroundl(long double);
  55 long double modfl(long double, long double *);
  56 long double nearbyintl(long double);
  57 long double nextafterl(long double, long double);
  58 long double nexttowardl(long double, long double);
  59 long double powl(long double, long double);
  60 long double remainderl(long double, long double);
  61 long double remquol(long double, long double, int *);
  62 long double rintl(long double);
  63 long double roundl(long double);
  64 long double scalblnl(long double, long);
  65 long double scalbnl(long double, int);
  66 long double sinhl(long double);
  67 long double sinl(long double);
  68 long double sqrtl(long double);
  69 long double tanhl(long double);
  70 long double tanl(long double);
  71 long double tgammal(long double);
  72 long double truncl(long double);
  73 #endif
  74
  75 #ifdef L_acoshl
  76 long double acoshl (long double x)
  77 {
  78         return (long double) acosh( (double)x );
  79 }
  80 #endif
  81
  82
  83 #ifdef L_acosl
  84 long double acosl (long double x)
  85 {
  86         return (long double) acos( (double)x );
  87 }
  88 #endif
  89
  90
  91 #ifdef L_asinhl
  92 long double asinhl (long double x)
  93 {
  94         return (long double) asinh( (double)x );
  95 }
  96 #endif
  97
  98
  99 #ifdef L_asinl
 100 long double asinl (long double x)
 101 {
 102         return (long double) asin( (double)x );
 103 }
 104 #endif
 105
 106
 107 #ifdef L_atan2l
 108 long double atan2l (long double x, long double y)
 109 {
 110         return (long double) atan2( (double)x, (double)y );
 111 }
 112 #endif
 113
 114
 115 #ifdef L_atanhl
 116 long double atanhl (long double x)
 117 {
 118         return (long double) atanh( (double)x );
 119 }
 120 #endif
 121
 122
 123 #ifdef L_atanl
 124 long double atanl (long double x)
 125 {
 126         return (long double) atan( (double)x );
 127 }
 128 #endif
 129
 130
 131 #ifdef L_cbrtl
 132 long double cbrtl (long double x)
 133 {
 134         return (long double) cbrt( (double)x );
 135 }
 136 #endif
 137
 138
 139 #ifdef L_ceill
 140 long double ceill (long double x)
 141 {
 142         return (long double) ceil( (double)x );
 143 }
 144 #endif
 145
 146
 147 #ifdef L_copysignl
 148 long double copysignl (long double x, long double y)
 149 {
 150         return (long double) copysign( (double)x, (double)y );
 151 }
 152 #endif
 153
 154
 155 #ifdef L_coshl
 156 long double coshl (long double x)
 157 {
 158         return (long double) cosh( (double)x );
 159 }
 160 #endif
 161
 162
 163 #ifdef L_cosl
 164 long double cosl (long double x)
 165 {
 166         return (long double) cos( (double)x );
 167 }
 168 #endif
 169
 170
 171 #ifdef L_erfcl
 172 long double erfcl (long double x)
 173 {
 174         return (long double) erfc( (double)x );
 175 }
 176 #endif
 177
 178
 179 #ifdef L_erfl
 180 long double erfl (long double x)
 181 {
 182         return (long double) erf( (double)x );
 183 }
 184 #endif
 185
 186
 187 #ifdef L_exp2l
 188 long double exp2l (long double x)
 189 {
 190         return (long double) exp2( (double)x );
 191 }
 192 #endif
 193
 194
 195 #ifdef L_expl
 196 long double expl (long double x)
 197 {
 198         return (long double) exp( (double)x );
 199 }
 200 #endif
 201
 202
 203 #ifdef L_expm1l
 204 long double expm1l (long double x)
 205 {
 206         return (long double) expm1( (double)x );
 207 }
 208 #endif
 209
 210
 211 #ifdef L_fabsl
 212 long double fabsl (long double x)
 213 {
 214         return (long double) fabs( (double)x );
 215 }
 216 #endif
 217
 218
 219 #ifdef L_fdiml
 220 long double fdiml (long double x, long double y)
 221 {
 222         return (long double) fdim( (double)x, (double)y );
 223 }
 224 #endif
 225
 226
 227 #ifdef L_floorl
 228 long double floorl (long double x)
 229 {
 230         return (long double) floor( (double)x );
 231 }
 232 #endif
 233
 234
 235 #ifdef L_fmal
 236 long double fmal (long double x, long double y, long double z)
 237 {
 238         return (long double) fma( (double)x, (double)y, (double)z );
 239 }
 240 #endif
 241
 242
 243 #ifdef L_fmaxl
 244 long double fmaxl (long double x, long double y)
 245 {
 246         return (long double) fmax( (double)x, (double)y );
 247 }
 248 #endif
 249
 250
 251 #ifdef L_fminl
 252 long double fminl (long double x, long double y)
 253 {
 254         return (long double) fmin( (double)x, (double)y );
 255 }
 256 #endif
 257
 258
 259 #ifdef L_fmodl
 260 long double fmodl (long double x, long double y)
 261 {
 262         return (long double) fmod( (double)x, (double)y );
 263 }
 264 #endif
 265
 266
 267 #ifdef L_frexpl
 268 long double frexpl (long double x, int *exp)
 269 {
 270         return (long double) frexp( (double)x, exp );
 271 }
 272 #endif
 273
 274
 275 #ifdef L_hypotl
 276 long double hypotl (long double x, long double y)
 277 {
 278         return (long double) hypot( (double)x, (double)y );
 279 }
 280 #endif
 281
 282
 283 #ifdef L_ilogbl
 284 int ilogbl (long double x)
 285 {
 286         return (long double) ilogb( (double)x );
 287 }
 288 #endif
 289
 290
 291 #ifdef L_ldexpl
 292 long double ldexpl (long double x, int exp)
 293 {
 294         return (long double) ldexp( (double)x, exp );
 295 }
 296 #endif
 297
 298
 299 #ifdef L_lgammal
 300 long double lgammal (long double x)
 301 {
 302         return (long double) lgamma( (double)x );
 303 }
 304 #endif
 305
 306
 307 #ifdef L_llrintl
 308 long long llrintl (long double x)
 309 {
 310         return (long double) llrint( (double)x );
 311 }
 312 #endif
 313
 314
 315 #ifdef L_llroundl
 316 long long llroundl (long double x)
 317 {
 318         return (long double) llround( (double)x );
 319 }
 320 #endif
 321
 322 #ifdef L_log10l
 323 long double log10l (long double x)
 324 {
 325         return (long double) log10( (double)x );
 326 }
 327 #endif
 328
 329
 330 #ifdef L_log1pl
 331 long double log1pl (long double x)
 332 {
 333         return (long double) log1p( (double)x );
 334 }
 335 #endif
 336
 337
 338 #ifdef L_log2l
 339 long double log2l (long double x)
 340 {
 341         return (long double) log2( (double)x );
 342 }
 343 #endif
 344
 345
 346 #ifdef L_logbl
 347 long double logbl (long double x)
 348 {
 349         return (long double) logb( (double)x );
 350 }
 351 #endif
 352
 353
 354 #ifdef L_logl
 355 long double logl (long double x)
 356 {
 357         return (long double) log( (double)x );
 358 }
 359 #endif
 360
 361
 362 #ifdef L_lrintl
 363 long lrintl (long double x)
 364 {
 365         return (long double) lrint( (double)x );
 366 }
 367 #endif
 368
 369
 370 #ifdef L_lroundl
 371 long lroundl (long double x)
 372 {
 373         return (long double) lround( (double)x );
 374 }
 375 #endif
 376
 377
 378 #ifdef L_modfl
 379 long double modfl (long double x, long double *iptr)
 380 {
 381         double y, result;
 382         result = modf ( x, &y );
 383         *iptr = (long double)y;
 384         return (long double) result;
 385
 386 }
 387 #endif
 388
 389
 390 #ifdef L_nearbyintl
 391 long double nearbyintl (long double x)
 392 {
 393         return (long double) nearbyint( (double)x );
 394 }
 395 #endif
 396
 397
 398 #ifdef L_nextafterl
 399 long double nextafterl (long double x, long double y)
 400 {
 401         return (long double) nextafter( (double)x, (double)y );
 402 }
 403 #endif
 404
 405
 406 #ifdef L_nexttowardl
 407 long double nexttowardl (long double x, long double y)
 408 {
 409         return (long double) nexttoward( (double)x, (double)y );
 410 }
 411 #endif
 412
 413
 414 #ifdef L_powl
 415 long double powl (long double x, long double y)
 416 {
 417         return (long double) pow( (double)x, (double)y );
 418 }
 419 #endif
 420
 421
 422 #ifdef L_remainderl
 423 long double remainderl (long double x, long double y)
 424 {
 425         return (long double) remainder( (double)x, (double)y );
 426 }
 427 #endif
 428
 429
 430 #ifdef L_remquol
 431 long double remquol (long double x, long double y, int *quo)
 432 {
 433         return (long double) remquo( (double)x, (double)y, quo );
 434 }
 435 #endif
 436
 437
 438 #ifdef L_rintl
 439 long double rintl (long double x)
 440 {
 441         return (long double) rint( (double)x );
 442 }
 443 #endif
 444
 445
 446 #ifdef L_roundl
 447 long double roundl (long double x)
 448 {
 449         return (long double) round( (double)x );
 450 }
 451 #endif
 452
 453
 454 #ifdef L_scalblnl
 455 long double scalblnl (long double x, long exp)
 456 {
 457         return (long double) scalbln( (double)x, exp );
 458 }
 459 #endif
 460
 461
 462 #ifdef L_scalbnl
 463 long double scalbnl (long double x, int exp)
 464 {
 465         return (long double) scalbn( (double)x, exp );
 466 }
 467 #endif
 468
 469
 470 #ifdef L_sinhl
 471 long double sinhl (long double x)
 472 {
 473         return (long double) sinh( (double)x );
 474 }
 475 #endif
 476
 477
 478 #ifdef L_sinl
 479 long double sinl (long double x)
 480 {
 481         return (long double) sin( (double)x );
 482 }
 483 #endif
 484
 485
 486 #ifdef L_sqrtl
 487 long double sqrtl (long double x)
 488 {
 489         return (long double) sqrt( (double)x );
 490 }
 491 #endif
 492
 493
 494 #ifdef L_tanhl
 495 long double tanhl (long double x)
 496 {
 497         return (long double) tanh( (double)x );
 498 }
 499 #endif
 500
 501
 502 #ifdef L_tanl
 503 long double tanl (long double x)
 504 {
 505         return (long double) tan( (double)x );
 506 }
 507 #endif
 508
 509
 510 #ifdef L_tgammal
 511 long double tgammal (long double x)
 512 {
 513         return (long double) tgamma( (double)x );
 514 }
 515 #endif
 516
 517
 518 #ifdef L_truncl
 519 long double truncl (long double x)
 520 {
 521         return (long double) trunc( (double)x );
 522 }
 523 #endif