===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/M.c,v
retrieving revision 1.2
retrieving revision 1.5
diff -u -p -r1.2 -r1.5
--- OpenXM_contrib2/asir2000/engine/M.c	2000/08/21 08:31:25	1.2
+++ OpenXM_contrib2/asir2000/engine/M.c	2001/06/07 04:54:40	1.5
@@ -23,7 +23,7 @@
  * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
- * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification
+ * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
  * for such modification or the source code of the modified part of the
  * SOFTWARE.
  * 
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/engine/M.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/engine/M.c,v 1.4 2000/12/05 01:24:52 noro Exp $ 
 */
 #include "ca.h"
 #include "base.h"
@@ -224,9 +224,7 @@ ML *pl;
 	mgcd = W_UMALLOC(n);
 
 	for ( j = 0, d = n; j < count && d; ) {
-		m = lprime[index++];
-		if ( !m )
-			error("sqfrum : lprime[] exhausted.");
+		m = get_lprime(index++);
 		if ( rem(NM((Q)COEF(DC(f))),m) == 0 ) continue;
 
 		ptoum(m,f,wf);
@@ -546,7 +544,7 @@ register int **c;
 	return (-1);
 }
 
-#if defined(__GNUC__) || defined(THINK_C)
+#if defined(__GNUC__)
 const
 #endif
 int sprime[] = {
@@ -701,5 +699,3 @@ int sprime[] = {
 	16273,16301,16319,16333,16339,16349,16361,16363,16369,16381,
 	0
 };
-
-#include "prime.h"