Remove another old rint() replacement.

diff --git a/src/backend/utils/adt/float.c b/src/backend/utils/adt/float.c
index 95206174effe40f5ff23fb20b51be611fec57dbb..4f770a2e975aa6b2874028562175c2153776731c 100644 (file)
--- a/src/backend/utils/adt/float.c
+++ b/src/backend/utils/adt/float.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *       $Header: /cvsroot/pgsql/src/backend/utils/adt/float.c,v 1.85 2003/04/21 00:22:24 tgl Exp $
+ *       $Header: /cvsroot/pgsql/src/backend/utils/adt/float.c,v 1.86 2003/05/09 16:31:24 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -83,14 +83,6 @@ static double cbrt(double x);
 extern double cbrt(double x);
 #endif
 #endif   /* HAVE_CBRT */
-
-#ifndef HAVE_RINT
-#define rint my_rint
-static double rint(double x);
-
-#else
-extern double rint(double x);
-#endif   /* HAVE_RINT */
 #endif   /* NeXT check */
 
 
@@ -1937,109 +1929,6 @@ float84ge(PG_FUNCTION_ARGS)
 
 /* ========== PRIVATE ROUTINES ========== */
 
-/* From "fdlibm" @ netlib.att.com */
-
-#ifndef HAVE_RINT
-
-/* @(#)s_rint.c 5.1 93/09/24 */
-/*
- * ====================================================
- * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
- *
- * Developed at SunPro, a Sun Microsystems, Inc. business.
- * Permission to use, copy, modify, and distribute this
- * software is freely granted, provided that this notice
- * is preserved.
- * ====================================================
- */
-
-/*
- * rint(x)
- * Return x rounded to integral value according to the prevailing
- * rounding mode.
- * Method:
- *             Using floating addition.
- * Exception:
- *             Inexact flag raised if x not equal to rint(x).
- */
-
-static const double one = 1.0,
-                       TWO52[2] = {
-       4.50359962737049600000e+15, /* 0x43300000, 0x00000000 */
-       -4.50359962737049600000e+15,    /* 0xC3300000, 0x00000000 */
-};
-
-static double
-rint(double x)
-{
-       int                     i0,
-                               n0,
-                               j0,
-                               sx;
-       unsigned        i,
-                               i1;
-       double          w,
-                               t;
-
-       n0 = (*((int *) &one) >> 29) ^ 1;
-       i0 = *(n0 + (int *) &x);
-       sx = (i0 >> 31) & 1;
-       i1 = *(1 - n0 + (int *) &x);
-       j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
-       if (j0 < 20)
-       {
-               if (j0 < 0)
-               {
-                       if (((i0 & 0x7fffffff) | i1) == 0)
-                               return x;
-                       i1 |= (i0 & 0x0fffff);
-                       i0 &= 0xfffe0000;
-                       i0 |= ((i1 | -i1) >> 12) & 0x80000;
-                       *(n0 + (int *) &x) = i0;
-                       w = TWO52[sx] + x;
-                       t = w - TWO52[sx];
-                       i0 = *(n0 + (int *) &t);
-                       *(n0 + (int *) &t) = (i0 & 0x7fffffff) | (sx << 31);
-                       return t;
-               }
-               else
-               {
-                       i = (0x000fffff) >> j0;
-                       if (((i0 & i) | i1) == 0)
-                               return x;               /* x is integral */
-                       i >>= 1;
-                       if (((i0 & i) | i1) != 0)
-                       {
-                               if (j0 == 19)
-                                       i1 = 0x40000000;
-                               else
-                                       i0 = (i0 & (~i)) | ((0x20000) >> j0);
-                       }
-               }
-       }
-       else if (j0 > 51)
-       {
-               if (j0 == 0x400)
-                       return x + x;           /* inf or NaN */
-               else
-                       return x;                       /* x is integral */
-       }
-       else
-       {
-               i = ((unsigned) (0xffffffff)) >> (j0 - 20);
-               if ((i1 & i) == 0)
-                       return x;                       /* x is integral */
-               i >>= 1;
-               if ((i1 & i) != 0)
-                       i1 = (i1 & (~i)) | ((0x40000000) >> (j0 - 20));
-       }
-       *(n0 + (int *) &x) = i0;
-       *(1 - n0 + (int *) &x) = i1;
-       w = TWO52[sx] + x;
-       return w - TWO52[sx];
-}
-#endif   /* !HAVE_RINT */
-
 #ifndef HAVE_CBRT
 
 static double