import newlib-2000-02-17 snapshotcvs/SNAPSHOT

1 files changed, 44 insertions, 0 deletions

diff --git a/newlib/libc/stdlib/__adjust.c b/newlib/libc/stdlib/__adjust.c
new file mode 100644
index 00000000000..d5c70758b1f
--- /dev/null
+++ b/newlib/libc/stdlib/__adjust.c
@@ -0,0 +1,44 @@
+/*
+ * 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);
+}