File:  [gforth] / gforth / Attic / pow10.c
Revision 1.1: download - view: text, annotated - select for diffs
Fri Apr 14 18:56:57 1995 UTC (25 years, 9 months ago) by anton
Branches: MAIN
CVS tags: HEAD
Put pow10 in a separate file (it is used by ecvt and engine) and
adjusted configure accordingly.
script? is now also set during processing --evaluate arguments. This
avoids getting a newline from "gforth -e bye".

#include <math.h>

#ifndef M_LN10
#define M_LN10      2.30258509299404568402
#endif

/* this should be defined by math.h; If it is not, the miranda
   prototype would be wrong; Since we prefer compile-time errors to
   run-time errors, it's declared here. */
extern double exp(double);

double pow10(double x)
{
  return exp(x*M_LN10);
}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>