newlib/libm/common/s_exp10.c

   1 /* @(#)s_exp10.c 5.1 93/09/24 */
   2 /* Modified from s_exp2.c by Yaakov Selkowitz 2007.  */
   3
   4 /*
   5  * ====================================================
   6  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
   7  *
   8  * Developed at SunPro, a Sun Microsystems, Inc. business.
   9  * Permission to use, copy, modify, and distribute this
  10  * software is freely granted, provided that this notice
  11  * is preserved.
  12  * ====================================================
  13  */
  14
  15 /*
  16 FUNCTION
  17         <<exp10>>, <<exp10f>>---exponential, base 10
  18 INDEX
  19         exp10
  20 INDEX
  21         exp10f
  22
  23 SYNOPSIS
  24         #include <math.h>
  25         double exp10(double <[x]>);
  26         float exp10f(float <[x]>);
  27
  28 DESCRIPTION
  29         <<exp10>> and <<exp10f>> calculate 10 ^ <[x]>, that is,
  30         @ifnottex
  31         10 raised to the power <[x]>.
  32         @end ifnottex
  33         @tex
  34         $10^x$
  35         @end tex
  36
  37 RETURNS
  38         On success, <<exp10>> and <<exp10f>> return the calculated value.
  39         If the result underflows, the returned value is <<0>>.  If the
  40         result overflows, the returned value is <<HUGE_VAL>>.  In
  41         either case, <<errno>> is set to <<ERANGE>>.
  42
  43 PORTABILITY
  44         <<exp10>> and <<exp10f>> are GNU extensions.
  45
  46 */
  47
  48 /*
  49  * wrapper exp10(x)
  50  */
  51
  52 #undef exp10
  53 #include "fdlibm.h"
  54 #include <errno.h>
  55 #include <math.h>
  56
  57 #ifndef _DOUBLE_IS_32BITS
  58
  59 #ifdef __STDC__
  60         double exp10(double x)          /* wrapper exp10 */
  61 #else
  62         double exp10(x)                 /* wrapper exp10 */
  63         double x;
  64 #endif
  65 {
  66   return pow(10.0, x);
  67 }
  68
  69 #endif /* defined(_DOUBLE_IS_32BITS) */