Just one more bugfix - this time in cmp_abs (cannot imagine that

taking a logarithm with a 400 digit precision worked with that bug
in place).

Jan

diff --git a/src/backend/utils/adt/numeric.c b/src/backend/utils/adt/numeric.c
index 3d7a17e30ef5b46c965cf58dbce64740089c522a..34a7b394310444f56e009cdf5d53e8ae919047f6 100644 (file)
--- a/src/backend/utils/adt/numeric.c
+++ b/src/backend/utils/adt/numeric.c
@@ -5,7 +5,7 @@
  *
  *     1998 Jan Wieck
  *
- * $Header: /cvsroot/pgsql/src/backend/utils/adt/numeric.c,v 1.7 1999/01/04 12:53:23 wieck Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/adt/numeric.c,v 1.8 1999/01/04 17:51:58 wieck Exp $
  *
  * ----------
  */
@@ -3438,25 +3438,28 @@ cmp_abs(NumericVar *var1, NumericVar *var2)
        int             w2 = var2->weight;
        int             stat;
 
-       while (w1 > w2)
+       while (w1 > w2 && i1 < var1->ndigits)
        {
                if (var1->digits[i1++] != 0) return 1;
                w1--;
        }
-       while (w2 > w1)
+       while (w2 > w1 && i2 < var2->ndigits)
        {
                if (var2->digits[i2++] != 0) return -1;
                w2--;
        }
 
-       while (i1 < var1->ndigits && i2 < var2->ndigits)
+       if (w1 == w2)
        {
-               stat = var1->digits[i1++] - var2->digits[i2++];
-               if (stat)
+               while (i1 < var1->ndigits && i2 < var2->ndigits)
                {
-                       if (stat > 0)
-                               return 1;
-                       return -1;
+                       stat = var1->digits[i1++] - var2->digits[i2++];
+                       if (stat)
+                       {
+                               if (stat > 0)
+                                       return 1;
+                               return -1;
+                       }
                }
        }