From 43b55bace5fad27af5da7a99784667363b92c45d Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me+cygwin@cgf.cx>
Date: Thu, 17 Feb 2000 19:39:46 +0000
Subject: import newlib-2000-02-17 snapshot

---
 newlib/libc/stdlib/__adjust.c | 44 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 newlib/libc/stdlib/__adjust.c

(limited to 'newlib/libc/stdlib/__adjust.c')

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);
+}
-- 
cgit v1.2.1