===================================================================
RCS file: /home/cvs/OpenXM/src/k097/k2.c,v
retrieving revision 1.4
retrieving revision 1.7
diff -u -p -r1.4 -r1.7
--- OpenXM/src/k097/k2.c	2001/01/28 02:40:04	1.4
+++ OpenXM/src/k097/k2.c	2020/10/07 23:53:25	1.7
@@ -1,13 +1,17 @@
-/* $OpenXM: OpenXM/src/k097/k2.c,v 1.3 2001/01/08 05:26:48 takayama Exp $ */
+/* $OpenXM: OpenXM/src/k097/k2.c,v 1.6 2015/10/10 11:29:46 takayama Exp $ */
 /* k2.c main program of k. */
 
 #define DATE "1998,12/15"
 #include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
 #include "extern2.h"
 
+#include "ki.h"
+
 char *getLOAD_K_PATH();  /* from d.h */
 
 #ifdef CALLASIR
@@ -22,7 +26,7 @@ extern int K00_verbose;
 int Startupk2 = 1;
 
 
-main(int argc,char *argv[]) {
+void main(int argc,char *argv[]) {
   extern int Saki;
   extern int Interactive;
   int i;
@@ -51,7 +55,7 @@ main(int argc,char *argv[]) {
     }
   }
 #ifdef CALLASIR
-  GC_init();
+  GC_INIT(); /* GC_init(); */
   KasirKanAsirInit();
 #endif
   KSstart();   /********  initialize ***********/