diff options
| author | bde <bde@FreeBSD.org> | 1997-02-24 17:35:33 +0000 |
|---|---|---|
| committer | bde <bde@FreeBSD.org> | 1997-02-24 17:35:33 +0000 |
| commit | 9e266561b379c627a821de0a2e93f47aa96cff01 (patch) | |
| tree | 9751693fac70650b93786f65495b1a10a7aaaf55 /lib/libF77/r_lg10.c | |
| parent | 124250ac4c0ab8eb48ceb72a82c1f3594c0d61b5 (diff) | |
| download | FreeBSD-src-9e266561b379c627a821de0a2e93f47aa96cff01.zip FreeBSD-src-9e266561b379c627a821de0a2e93f47aa96cff01.tar.gz | |
Oops, I thought I was fixing the double precision lg10 in the
previous revision. Use log10f() instead of log10(). log10f() is
currently slightly slower than log10() on P5's, but it is potentially
significantly faster.
Fixed declaration of the C function used in the (unused?) KR_headers
case.
Diffstat (limited to 'lib/libF77/r_lg10.c')
| -rw-r--r-- | lib/libF77/r_lg10.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/libF77/r_lg10.c b/lib/libF77/r_lg10.c index 87013ae..c40138e 100644 --- a/lib/libF77/r_lg10.c +++ b/lib/libF77/r_lg10.c @@ -1,7 +1,7 @@ #include "f2c.h" #ifdef KR_headers -double log(); +float log10f(); double r_lg10(x) real *x; #else #undef abs @@ -9,5 +9,5 @@ double r_lg10(x) real *x; double r_lg10(real *x) #endif { -return( log10(*x) ); +return( log10f(*x) ); } |
