===================================================================
RCS file: /home/cvs/OpenXM/src/k097/dm.c,v
retrieving revision 1.1.1.1
retrieving revision 1.5
diff -u -p -r1.1.1.1 -r1.5
--- OpenXM/src/k097/dm.c	1999/10/08 02:12:15	1.1.1.1
+++ OpenXM/src/k097/dm.c	2013/11/07 07:29:47	1.5
@@ -1,4 +1,4 @@
-
+/* $OpenXM: OpenXM/src/k097/dm.c,v 1.4 2005/06/16 05:07:24 takayama Exp $ */
 #include <stdio.h>
 #include "d.h"
 
@@ -36,9 +36,12 @@ 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 */ }
 
@@ -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);