Welcome to mirror list, hosted at ThFree Co, Russian Federation.

cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'newlib/libc/stdlib/__adjust.c')
-rw-r--r--newlib/libc/stdlib/__adjust.c44
1 files changed, 0 insertions, 44 deletions
diff --git a/newlib/libc/stdlib/__adjust.c b/newlib/libc/stdlib/__adjust.c
deleted file mode 100644
index d5c70758b..000000000
--- a/newlib/libc/stdlib/__adjust.c
+++ /dev/null
@@ -1,44 +0,0 @@
-/*
- * return (*acc) scaled by 10**dexp.
- */
-
-#include <_ansi.h>
-#include <reent.h>
-#include "std.h"
-
-#define abs(x) (((x) < 0) ? -(x) : (x))
-
-double
-_DEFUN (__adjust, (ptr, acc, dexp, sign),
- struct _reent *ptr _AND
- double *acc _AND
- int dexp _AND
- int sign)
- /* *acc the 64 bit accumulator */
- /* dexp decimal exponent */
- /* sign sign flag */
-{
- double r;
-
- if (dexp > MAXE)
- {
- ptr->_errno = ERANGE;
- return (sign) ? -HUGE_VAL : HUGE_VAL;
- }
- else if (dexp < MINE)
- {
- ptr->_errno = ERANGE;
- return 0.0;
- }
-
- r = *acc;
- if (sign)
- r = -r;
- if (dexp == 0)
- return r;
-
- if (dexp < 0)
- return r / __exp10 (abs (dexp));
- else
- return r * __exp10 (dexp);
-}