===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/parserpass0.c,v
retrieving revision 1.3
retrieving revision 1.6
diff -u -p -r1.3 -r1.6
--- OpenXM/src/kan96xx/Kan/parserpass0.c	2001/05/04 01:06:24	1.3
+++ OpenXM/src/kan96xx/Kan/parserpass0.c	2020/10/06 11:33:46	1.6
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/parserpass0.c,v 1.2 2000/01/16 07:55:40 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/parserpass0.c,v 1.5 2013/11/06 06:23:24 takayama Exp $ */
 /* parserpass0.c */
 /*  In this preprocessor, for example, the expression
       x^2+y^2-4+x y;
@@ -7,6 +7,8 @@
 */
 /*  1992/03/05 */
 #include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
 #include "datatype.h"
 #include "extern2.h"
 
@@ -45,7 +47,7 @@ static int get0()
   } else return(c);
 }
 
-static put0(c)
+static void put0(c)
      int c;
      /* put a letter on Buf0 */
 {
@@ -85,7 +87,7 @@ static struct tokens flush()
   return(r);
 }
 
-static isSpace0(c)
+static int isSpace0(c)
      int c;
 {
   if (c <= ' ') return(1);
@@ -171,7 +173,7 @@ static char Buftmp[STRBUFMAX];
 static char *Buf = Buftmp;
 static int Buflimit = STRBUFMAX;
 
-static putstr(str,kind)
+static int putstr(str,kind)
      char str[]; /* string to be outputted */
      actionType kind; /* kind is INIT or PUT */
 {
@@ -180,7 +182,7 @@ static putstr(str,kind)
   int k; char *newbuf;
   if (kind == INIT) {
     ptr = 0;
-    return;
+    return 0;
   }
 
   i=0;
@@ -202,6 +204,7 @@ static putstr(str,kind)
       Buflimit *= 2;
     }
   }
+  return 0;
 }