Return to pow10.c CVS log | Up to [gforth] / gforth |
1.1 ! anton 1: #include <math.h> ! 2: ! 3: #ifndef M_LN10 ! 4: #define M_LN10 2.30258509299404568402 ! 5: #endif ! 6: ! 7: /* this should be defined by math.h; If it is not, the miranda ! 8: prototype would be wrong; Since we prefer compile-time errors to ! 9: run-time errors, it's declared here. */ ! 10: extern double exp(double); ! 11: ! 12: double pow10(double x) ! 13: { ! 14: return exp(x*M_LN10); ! 15: }