version 1.3, 2000/12/10 02:21:45 |
version 1.6, 2013/11/07 07:29:47 |
|
|
/* $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.5 2005/06/16 05:07:24 takayama Exp $ */ |
/* d.h;*/ |
/* d.h;*/ |
/* from stackm.h */ |
/* from stackm.h */ |
|
|
|
|
int tag; /* class identifier */ |
int tag; /* class identifier */ |
union cell lc; /* left cell */ |
union cell lc; /* left cell */ |
union cell rc; /* right cell */ |
union cell rc; /* right cell */ |
|
struct object *attr; |
}; |
}; |
|
|
struct object{ /* must be compatible with stackm.h */ |
struct object{ /* must be compatible with stackm.h */ |
int tag; /* class identifier */ |
int tag; /* class identifier */ |
union cell lc; /* left cell */ |
union cell lc; /* left cell */ |
union cell rc; /* right cell */ |
union cell rc; /* right cell */ |
|
struct object *attr; |
}; |
}; |
|
|
|
#define OINIT { .attr = NULL } |
|
|
typedef struct Object * objectp; /* cf. 65p of Schreiner. */ |
typedef struct Object * objectp; /* cf. 65p of Schreiner. */ |
#define YYSTYPE objectp |
#define YYSTYPE objectp |
|
|
Line 165 int K00getIncetanceVariable(char *s); |
|
Line 169 int K00getIncetanceVariable(char *s); |
|
void K00recoverFromError(); |
void K00recoverFromError(); |
int K00declareClass(char *name,char *supername); |
int K00declareClass(char *name,char *supername); |
void K00toPrimitiveClass(); |
void K00toPrimitiveClass(); |
|
|
|
void *GC_malloc(size_t size); |
|
void *sGC_malloc(size_t size); |
|
|
|
|
|
|