diff options
author | Manuel Novoa III <mjn3@codepoet.org> | 2001-06-19 22:53:41 +0000 |
---|---|---|
committer | Manuel Novoa III <mjn3@codepoet.org> | 2001-06-19 22:53:41 +0000 |
commit | 4ab8b2dd6e571b8dafe69a4d7a09a451cc9b1645 (patch) | |
tree | 6824a635f8300a340b520382a1ec694e6544a7af /libm/double/rint.c | |
parent | e10f6cc02bf6589700872266f1819af56a2d79f6 (diff) |
Remove Erik's broken implementation of rint(). Replace it by one "less broken".
Also correct rounding beharior of round() and add trunc(). Note that round()
and rint() currently don't check for infs and nans. I decided to wait on
that until the big cleanup.
Diffstat (limited to 'libm/double/rint.c')
-rw-r--r-- | libm/double/rint.c | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/libm/double/rint.c b/libm/double/rint.c deleted file mode 100644 index 35cf5f503..000000000 --- a/libm/double/rint.c +++ /dev/null @@ -1,52 +0,0 @@ -/* vi: set sw=4 ts=4: */ -/* - * rint for uClibc - * - * Copyright (C) 2001 by Lineo, inc. - * Written by Erik Andersen <andersen@lineo.com>, <andersee@debian.org> - * - * This program is free software; you can redistribute it and/or modify it - * under the terms of the GNU Library General Public License as published by - * the Free Software Foundation; either version 2 of the License, or (at your - * option) any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License - * for more details. - * - * You should have received a copy of the GNU Library General Public License - * along with this program; if not, write to the Free Software Foundation, - * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - * - */ - -#include <math.h> - -/* From the Linux man page: - * - * NAME - * rint - round to closest integer - * - * SYNOPSIS - * #include <math.h> - * double rint(double x); - * - * DESCRIPTION - * The rint() function rounds x to an integer value according - * to the prevalent rounding mode. The default rounding mode - * is to round to the nearest integer. - * - * RETURN VALUE - * The rint() function returns the integer value as a float - * ing-point number. - */ - -double rint (double x) { - double low = floor(x); - if (fmod(x,low) >= (double)0.5) - return(ceil(x)); - else - return(low); -} - |