commit files needed for zpm-fetchurl

[zpackage] / tomsfastmath / src / addsub / fp_cmp_mag.c

diff --git a/tomsfastmath/src/addsub/fp_cmp_mag.c b/tomsfastmath/src/addsub/fp_cmp_mag.c
new file mode 100644 (file)
index 0000000..bdce60b
--- /dev/null
+++ b/tomsfastmath/src/addsub/fp_cmp_mag.c
@@ -0,0 +1,35 @@
+/* TomsFastMath, a fast ISO C bignum library.
+ * 
+ * This project is meant to fill in where LibTomMath
+ * falls short.  That is speed ;-)
+ *
+ * This project is public domain and free for all purposes.
+ * 
+ * Tom St Denis, tomstdenis@gmail.com
+ */
+#include <tfm_private.h>
+
+int fp_cmp_mag(fp_int *a, fp_int *b)
+{
+   int x;
+
+   if (a->used > b->used) {
+      return FP_GT;
+   } else if (a->used < b->used) {
+      return FP_LT;
+   } else {
+      for (x = a->used - 1; x >= 0; x--) {
+          if (a->dp[x] > b->dp[x]) {
+             return FP_GT;
+          } else if (a->dp[x] < b->dp[x]) {
+             return FP_LT;
+          }
+      }
+   }
+   return FP_EQ;
+}
+
+
+/* $Source$ */
+/* $Revision$ */
+/* $Date$ */