Table for driving key data extraction.

[u/mdw/catacomb] / mp-jacobi.c

diff --git a/mp-jacobi.c b/mp-jacobi.c
index 69f697e..2a1e109 100644 (file)
--- a/mp-jacobi.c
+++ b/mp-jacobi.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: mp-jacobi.c,v 1.1 1999/11/22 20:50:37 mdw Exp $
+ * $Id: mp-jacobi.c,v 1.2 1999/12/10 23:19:02 mdw Exp $
  *
  * Compute Jacobi symbol
  *
@@ -30,6 +30,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: mp-jacobi.c,v $
+ * Revision 1.2  1999/12/10 23:19:02  mdw
+ * Improve error-checking.
+ *
  * Revision 1.1  1999/11/22 20:50:37  mdw
  * Add support for computing Jacobi symbols.
  *
@@ -147,6 +150,7 @@ static int verify(dstr *v)
 
   mp_drop(a);
   mp_drop(n);
+  assert(mparena_count(MPARENA_GLOBAL) == 0);
   return (ok);
 }