===================================================================
RCS file: /home/cvs/OpenXM/src/k097/dm.c,v
retrieving revision 1.5
retrieving revision 1.7
diff -u -p -r1.5 -r1.7
--- OpenXM/src/k097/dm.c	2013/11/07 07:29:47	1.5
+++ OpenXM/src/k097/dm.c	2021/03/12 06:45:55	1.7
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/k097/dm.c,v 1.4 2005/06/16 05:07:24 takayama Exp $ */
+/* $OpenXM: OpenXM/src/k097/dm.c,v 1.6 2020/10/07 23:53:25 takayama Exp $ */
 #include <stdio.h>
 #include "d.h"
 
@@ -6,7 +6,7 @@ int K00_verbose = 0;
 extern int DebugMode;
 
 /* dm.c main program of d. */
-main(int argc, char *argv[]) {
+int main(int argc, char *argv[]) {
   int i;
   DebugMode = 0;
   if (argc >= 2) {
@@ -22,7 +22,7 @@ main(int argc, char *argv[]) {
   parseAfile(stdin);
   /*  parseAstring("print(1+2);\nx=1+2;\n"); tests */
   KCparse();
-  exit(0);
+  return 0;
 }
 
 
@@ -43,7 +43,7 @@ void *sGC_malloc(size_t size) {
   return ((void *) GC_malloc(size));
 }
 
-sendKan(int p) { /* do nothing */ }
+int sendKan(int p) { /* do nothing */ return 0; }
 
 /*           test new function           */
 void testNewFunction(objectp op)