===================================================================
RCS file: /home/cvs/OpenXM/src/k097/dm.c,v
retrieving revision 1.2
retrieving revision 1.7
diff -u -p -r1.2 -r1.7
--- OpenXM/src/k097/dm.c	2000/01/21 03:01:25	1.2
+++ OpenXM/src/k097/dm.c	2021/03/12 06:45:55	1.7
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $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;
 }
 
 
@@ -36,11 +36,14 @@ void *mymalloc(int size) {
   return((void *)malloc(size));
 }
 
-void *GC_malloc(int size) {
+void *GC_malloc(size_t size) {
   return((void *)malloc(size));
 }
+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)
@@ -55,7 +58,7 @@ void testNewFunction(objectp op)
 }
 
 struct object KSpop() {
-  struct object obj;
+  struct object obj = OINIT;
   obj.tag = 0;
   fprintf(stderr," Do not use Test.\n");
   return(obj);