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

   1 #include "tommath_private.h"
   2 #ifdef BN_MP_COMPLEMENT_C
   3 /* LibTomMath, multiple-precision integer library -- Tom St Denis */
   4 /* SPDX-License-Identifier: Unlicense */
   5
   6 /* b = ~a */
   7 mp_err mp_complement(const mp_int *a, mp_int *b)
   8 {
   9    mp_err err = mp_neg(a, b);
  10    return (err == MP_OKAY) ? mp_sub_d(b, 1uL, b) : err;
  11 }
  12 #endif