util/src/TclTk/tcl8.6.12/libtommath/bn_mp_cmp_d.c

   1 #include "tommath_private.h"
   2 #ifdef BN_MP_CMP_D_C
   3 /* LibTomMath, multiple-precision integer library -- Tom St Denis */
   4 /* SPDX-License-Identifier: Unlicense */
   5
   6 /* compare a digit */
   7 mp_ord mp_cmp_d(const mp_int *a, mp_digit b)
   8 {
   9    /* compare based on sign */
  10    if (a->sign == MP_NEG) {
  11       return MP_LT;
  12    }
  13
  14    /* compare based on magnitude */
  15    if (a->used > 1) {
  16       return MP_GT;
  17    }
  18
  19    /* compare the only digit of a to b */
  20    if (a->dp[0] > b) {
  21       return MP_GT;
  22    } else if (a->dp[0] < b) {
  23       return MP_LT;
  24    } else {
  25       return MP_EQ;
  26    }
  27 }
  28 #endif