diff options
| -rw-r--r-- | src/interfaces/ecpg/pgtypeslib/numeric.c | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/src/interfaces/ecpg/pgtypeslib/numeric.c b/src/interfaces/ecpg/pgtypeslib/numeric.c index b6ca2d3252f..060fad7867d 100644 --- a/src/interfaces/ecpg/pgtypeslib/numeric.c +++ b/src/interfaces/ecpg/pgtypeslib/numeric.c @@ -23,88 +23,6 @@ } while (0) -#if 0 -/* ---------- - * apply_typmod() - - * - * Do bounds checking and rounding according to the attributes - * typmod field. - * ---------- - */ -static int -apply_typmod(numeric *var, long typmod) -{ - int precision; - int scale; - int maxweight; - int i; - - /* Do nothing if we have a default typmod (-1) */ - if (typmod < (long) (VARHDRSZ)) - return 0; - - typmod -= VARHDRSZ; - precision = (typmod >> 16) & 0xffff; - scale = typmod & 0xffff; - maxweight = precision - scale; - - /* Round to target scale */ - i = scale + var->weight + 1; - if (i >= 0 && var->ndigits > i) - { - int carry = (var->digits[i] > 4) ? 1 : 0; - - var->ndigits = i; - - while (carry) - { - carry += var->digits[--i]; - var->digits[i] = carry % 10; - carry /= 10; - } - - if (i < 0) - { - var->digits--; - var->ndigits++; - var->weight++; - } - } - else - var->ndigits = Max(0, Min(i, var->ndigits)); - - /* - * Check for overflow - note we can't do this before rounding, because - * rounding could raise the weight. Also note that the var's weight could - * be inflated by leading zeroes, which will be stripped before storage - * but perhaps might not have been yet. In any case, we must recognize a - * true zero, whose weight doesn't mean anything. - */ - if (var->weight >= maxweight) - { - /* Determine true weight; and check for all-zero result */ - int tweight = var->weight; - - for (i = 0; i < var->ndigits; i++) - { - if (var->digits[i]) - break; - tweight--; - } - - if (tweight >= maxweight && i < var->ndigits) - { - errno = PGTYPES_NUM_OVERFLOW; - return -1; - } - } - - var->rscale = scale; - var->dscale = scale; - return 0; -} -#endif - /* ---------- * alloc_var() - * |