File:
[gforth] /
gforth /
Attic /
pow10.c
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Fri Apr 14 18:56:57 1995 UTC (29 years 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>