===================================================================
RCS file: /home/cvs/OpenXM/src/k097/d.h,v
retrieving revision 1.3
retrieving revision 1.7
diff -u -p -r1.3 -r1.7
--- OpenXM/src/k097/d.h	2000/12/10 02:21:45	1.3
+++ OpenXM/src/k097/d.h	2015/10/10 11:29:46	1.7
@@ -1,6 +1,8 @@
-/* $OpenXM: OpenXM/src/k097/d.h,v 1.2 2000/01/21 03:01:25 takayama Exp $ */
+/* $OpenXM: OpenXM/src/k097/d.h,v 1.6 2013/11/07 07:29:47 takayama Exp $ */
 /* d.h;*/
 /*  from stackm.h */
+#include <string.h>
+#include <stdlib.h>
 
 /**** data types (class identifiers) ************/
 #define Snull             0
@@ -47,14 +49,18 @@ struct Object{
   int tag;                /* class identifier */
   union cell lc;          /* left cell */
   union cell rc;          /* right cell */
+  struct object *attr;
 };
 
 struct object{         /* must be compatible with stackm.h */
   int tag;                /* class identifier */
   union cell lc;          /* left cell */
   union cell rc;          /* right cell */
+  struct object *attr;
 };
 
+#define OINIT { .attr = NULL }
+
 typedef struct Object * objectp;   /* cf. 65p of Schreiner. */
 #define YYSTYPE objectp
 
@@ -165,6 +171,9 @@ int K00getIncetanceVariable(char *s);
 void K00recoverFromError();
 int K00declareClass(char *name,char *supername);
 void K00toPrimitiveClass();
+
+void *GC_malloc(size_t size);
+void *sGC_malloc(size_t size);