Initial revision
This commit is contained in:
22
lang/cem/libcc.ansi/math/log10.c
Normal file
22
lang/cem/libcc.ansi/math/log10.c
Normal file
@@ -0,0 +1,22 @@
|
||||
/*
|
||||
* (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||||
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||||
*
|
||||
* Author: Ceriel J.H. Jacobs
|
||||
*/
|
||||
/* $Header$ */
|
||||
|
||||
#include <errno.h>
|
||||
#include <math.h>
|
||||
#include "localmath.h"
|
||||
|
||||
double
|
||||
log10(double x)
|
||||
{
|
||||
if (x <= 0) {
|
||||
errno = EDOM;
|
||||
return 0;
|
||||
}
|
||||
|
||||
return log(x) / M_LN10;
|
||||
}
|
||||
Reference in New Issue
Block a user