===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/hilbert.c,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -p -r1.3 -r1.5
--- OpenXM/src/kan96xx/Kan/hilbert.c	2001/05/04 01:06:23	1.3
+++ OpenXM/src/kan96xx/Kan/hilbert.c	2020/10/06 11:33:46	1.5
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/hilbert.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/hilbert.c,v 1.4 2005/06/16 05:07:23 takayama Exp $ */
 /*   hilbert.c
      1992/06/16
      1992/06/18
@@ -16,6 +16,9 @@
 #include "extern.h"
 #include "extern2.h"
 
+void warningHilbert(char str[]);
+void errorHilbert(char str[]);
+
 struct arrayOfPOLYold {
   int n;
   POLY *array;
@@ -41,7 +44,7 @@ struct object hilberto(struct object obgb,struct objec
   int n; /* number of variables */
   int i,j,k;
   int n0; /* number of the variables for the polynomials in base. */
-  struct object obf;
+  struct object obf = OINIT;
   struct ring *rp;
   struct ring *rr = (struct ring *)NULL;
   POLY *base;
@@ -50,8 +53,8 @@ struct object hilberto(struct object obgb,struct objec
   int debug = 0;
   POLY f;
   POLY g;
-  struct object rob;
-  struct object ccc;
+  struct object rob = OINIT;
+  struct object ccc = OINIT;
   extern struct ring SmallRing;
   int worg;
   extern int WarningNoVectorVariable;
@@ -219,7 +222,7 @@ static int polyToInt(POLY f) {
 }
 
 
-static shell(v,n)
+static void shell(v,n)
      int v[];
      int n;
 {
@@ -750,14 +753,12 @@ outputarrayOfPOLYold(set)
 #endif
   
   
-warningHilbert(str)
-     char str[];
+void warningHilbert(char str[])
 {
   fprintf(stderr,"Warning (hilbert.c): %s\n",str);
 }
 
-errorHilbert(str)
-     char str[];
+void errorHilbert(char str[])
 {
   errorKan1("%s\n",str);
 }