===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/order.c,v
retrieving revision 1.14
retrieving revision 1.17
diff -u -p -r1.14 -r1.17
--- OpenXM/src/kan96xx/Kan/order.c	2005/06/16 05:07:23	1.14
+++ OpenXM/src/kan96xx/Kan/order.c	2020/10/06 11:33:46	1.17
@@ -1,5 +1,7 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.13 2004/09/13 11:24:11 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/order.c,v 1.16 2018/09/07 00:15:44 takayama Exp $ */
 #include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
@@ -173,8 +175,8 @@ void showRing(level,ringp) 
   }else {
     mtype = "unknown";
   }
-  fprintf(fp,"Multiplication function --%s(%xH).\n",
-          mtype,(unsigned int) ringp->multiplication);
+  fprintf(fp,"Multiplication function --%s(%p).\n",
+          mtype, ringp->multiplication);
   if (ringp->schreyer) {
     fprintf(fp,"schreyer=1, gbListTower=");
     printObjectList((struct object *)(ringp->gbListTower));
@@ -464,7 +466,7 @@ int mmLarger_qmatrix(ff,gg)
 }
 
 /* x(N-1)>x(N-2)>....>D(N-1)>....>D(0) */
-mmLarger_pureLexicographic(f,g)
+int mmLarger_pureLexicographic(f,g)
      POLY f;
      POLY g;
 {