X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=util%2Fsrc%2FTclTk%2Ftcl8.6.12%2Flibtommath%2Fbn_mp_dr_is_modulus.c;fp=util%2Fsrc%2FTclTk%2Ftcl8.6.12%2Flibtommath%2Fbn_mp_dr_is_modulus.c;h=83760eacca08d62d9c4d29acf71ee9c216f892ae;hb=a5fac4c3be12f7d1c3c220e0c26890b05f28d35f;hp=0000000000000000000000000000000000000000;hpb=c07e8e55373b9730110d8e425119f05a1cd93e52;p=eos%2Fbase.git

diff --git a/util/src/TclTk/tcl8.6.12/libtommath/bn_mp_dr_is_modulus.c b/util/src/TclTk/tcl8.6.12/libtommath/bn_mp_dr_is_modulus.c
new file mode 100644
index 0000000000..83760eacca
--- /dev/null
+++ b/util/src/TclTk/tcl8.6.12/libtommath/bn_mp_dr_is_modulus.c
@@ -0,0 +1,27 @@
+#include "tommath_private.h"
+#ifdef BN_MP_DR_IS_MODULUS_C
+/* LibTomMath, multiple-precision integer library -- Tom St Denis */
+/* SPDX-License-Identifier: Unlicense */
+
+/* determines if a number is a valid DR modulus */
+mp_bool mp_dr_is_modulus(const mp_int *a)
+{
+   int ix;
+
+   /* must be at least two digits */
+   if (a->used < 2) {
+      return MP_NO;
+   }
+
+   /* must be of the form b**k - a [a <= b] so all
+    * but the first digit must be equal to -1 (mod b).
+    */
+   for (ix = 1; ix < a->used; ix++) {
+      if (a->dp[ix] != MP_MASK) {
+         return MP_NO;
+      }
+   }
+   return MP_YES;
+}
+
+#endif