===================================================================
RCS file: /home/cvs/OpenXM/src/k097/dm.c,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM/src/k097/dm.c	2000/01/21 03:01:25	1.2
+++ OpenXM/src/k097/dm.c	2005/06/16 05:07:24	1.4
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/k097/dm.c,v 1.3 2003/07/21 12:41:22 takayama Exp $ */
 #include <stdio.h>
 #include "d.h"
 
@@ -39,6 +39,9 @@ void *mymalloc(int size) {
 void *GC_malloc(int size) {
   return((void *)malloc(size));
 }
+void *sGC_malloc(int 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);