===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kanExport1.c,v
retrieving revision 1.20
retrieving revision 1.22
diff -u -p -r1.20 -r1.22
--- OpenXM/src/kan96xx/Kan/kanExport1.c	2005/06/16 08:40:04	1.20
+++ OpenXM/src/kan96xx/Kan/kanExport1.c	2020/10/06 11:33:46	1.22
@@ -1,5 +1,6 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.19 2005/06/16 06:54:55 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.21 2005/07/03 11:08:53 ohara Exp $ */
 #include <stdio.h>
+#include <string.h>
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
@@ -19,6 +20,9 @@ struct object DegreeShiftD = OINIT;
 int DegreeShiftD_size = 0;
 int *DegreeShiftD_vec = NULL;
 
+static struct object paddingVector(struct object ob, int table[], int m);
+static struct object unitVector(int pos, int size,struct ring *r);
+
 /** :kan, :ring */
 struct object Kreduction(f,set)
      struct object f;
@@ -104,8 +108,8 @@ struct object Kgroebner(ob)
   struct object newB = OINIT;
   struct object orgC = OINIT;
   struct object newC = OINIT;
-  static struct object paddingVector(struct object ob, int table[], int m);
-  static struct object unitVector(int pos, int size,struct ring *r);
+  struct object paddingVector(struct object ob, int table[], int m);
+  struct object unitVector(int pos, int size,struct ring *r);
   extern struct ring *CurrentRingp;
   
   StopDegree = 0x7fff;