=================================================================== RCS file: /home/cvs/OpenXM/src/k097/dm.c,v retrieving revision 1.1.1.1 retrieving revision 1.7 diff -u -p -r1.1.1.1 -r1.7 --- OpenXM/src/k097/dm.c 1999/10/08 02:12:15 1.1.1.1 +++ 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.6 2020/10/07 23:53:25 takayama Exp $ */ #include #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);