From 0126e157b87f137fc08dc7f46f6c291b9d06ac5d Mon Sep 17 00:00:00 2001
From: Marc Espie <espie@cvs.openbsd.org>
Date: Wed, 26 May 1999 13:38:57 +0000
Subject: egcs projects compiler system Exact copy of the snapshot, except for
 the removal of 	texinfo/ 	gcc/ch/ 	libchill/

---
 gnu/egcs/libf2c/libF77/d_nint.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 gnu/egcs/libf2c/libF77/d_nint.c

(limited to 'gnu/egcs/libf2c/libF77/d_nint.c')

diff --git a/gnu/egcs/libf2c/libF77/d_nint.c b/gnu/egcs/libf2c/libF77/d_nint.c
new file mode 100644
index 00000000000..064beff669c
--- /dev/null
+++ b/gnu/egcs/libf2c/libF77/d_nint.c
@@ -0,0 +1,14 @@
+#include "f2c.h"
+
+#ifdef KR_headers
+double floor();
+double d_nint(x) doublereal *x;
+#else
+#undef abs
+#include <math.h>
+double d_nint(doublereal *x)
+#endif
+{
+return( (*x)>=0 ?
+	floor(*x + .5) : -floor(.5 - *x) );
+}
-- 
cgit v1.2.3