# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 854185825 0
# Node ID a6b5ec9a51b43bdea984a6afa16bdd4a0b8430af
# Parent  28186ed53849d2c725f9a915f19b7f214177260d
[!HAVE_RINT] (rint): Convert macro to an actual
function, so we can take its address.

diff -r 28186ed53849 -r a6b5ec9a51b4 src/floatfns.c
--- a/src/floatfns.c	Sat Jan 25 06:47:28 1997 +0000
+++ b/src/floatfns.c	Sat Jan 25 09:50:25 1997 +0000
@@ -123,10 +123,6 @@
 #define sinh(x) ((exp(x)-exp(-x))*0.5)
 #endif /* VMS */
 
-#ifndef HAVE_RINT
-#define rint(x) (floor((x)+0.5))
-#endif
-
 static SIGTYPE float_error ();
 
 /* Nonzero while executing in floating point.
@@ -828,6 +824,15 @@
   return q + (abs_r + (q & 1) <= abs_r1 ? 0 : (i2 ^ r) < 0 ? -1 : 1);
 }
 
+#ifndef HAVE_RINT
+static double
+rint (d)
+     double d;
+{
+  return floor(d + 0.5);
+}
+#endif
+
 static double
 double_identity (d)
      double d;