| version 1.2, 2000/01/21 03:01:25 |
version 1.5, 2013/11/07 07:29:47 |
|
|
| /* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/k097/dm.c,v 1.4 2005/06/16 05:07:24 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "d.h" |
#include "d.h" |
| |
|
| Line 36 void *mymalloc(int size) { |
|
| Line 36 void *mymalloc(int size) { |
|
| return((void *)malloc(size)); |
return((void *)malloc(size)); |
| } |
} |
| |
|
| void *GC_malloc(int size) { |
void *GC_malloc(size_t size) { |
| return((void *)malloc(size)); |
return((void *)malloc(size)); |
| } |
} |
| |
void *sGC_malloc(size_t size) { |
| |
return ((void *) GC_malloc(size)); |
| |
} |
| |
|
| sendKan(int p) { /* do nothing */ } |
sendKan(int p) { /* do nothing */ } |
| |
|
| Line 55 void testNewFunction(objectp op) |
|
| Line 58 void testNewFunction(objectp op) |
|
| } |
} |
| |
|
| struct object KSpop() { |
struct object KSpop() { |
| struct object obj; |
struct object obj = OINIT; |
| obj.tag = 0; |
obj.tag = 0; |
| fprintf(stderr," Do not use Test.\n"); |
fprintf(stderr," Do not use Test.\n"); |
| return(obj); |
return(obj); |