===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/Hgfs.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -p -r1.15 -r1.16
--- OpenXM_contrib2/asir2000/engine/Hgfs.c	2001/08/02 03:59:15	1.15
+++ OpenXM_contrib2/asir2000/engine/Hgfs.c	2001/09/03 01:04:26	1.16
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.14 2001/07/03 01:41:25 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.15 2001/08/02 03:59:15 noro Exp $ */
 
 #include "ca.h"
 
@@ -1369,4 +1369,12 @@ P *qp;
 	if ( j >= 0 )
 		return 0;
 	sfbmtop(ql,x,y,qp);
+}
+
+/* XXX generate an irreducible poly of degree n */
+
+void generate_defpoly_sfum(n,dp)
+int n;
+UM *dp;
+{
 }