version 1.4, 2009/02/05 08:37:02 |
version 1.5, 2009/02/05 11:21:38 |
|
|
#include "private/gc_priv.h" |
#include "gc.h" |
#include <time.h> |
#include <time.h> |
|
|
void error(char *); |
void error(char *); |
Line 37 void *Risa_GC_realloc(void *p,size_t d) |
|
Line 37 void *Risa_GC_realloc(void *p,size_t d) |
|
|
|
int get_heapsize() |
int get_heapsize() |
{ |
{ |
return GC_heapsize; |
return GC_get_heap_size(); |
} |
} |
|
|
|
#if !defined(BYTES_TO_WORDS) |
|
#define BYTES_TO_WORDS(x) ((x)>>2) |
|
#endif |
|
|
long get_allocwords() |
long get_allocwords() |
{ |
{ |
#if !defined(GC7) |
size_t n = GC_get_total_bytes(); |
return GC_words_allocd_before_gc + GC_words_allocd; |
return (long)BYTES_TO_WORDS(n); /* bytes to words */ |
#else |
|
long n = GC_bytes_allocd_before_gc + GC_bytes_allocd; |
|
return BYTES_TO_WORDS(n); |
|
#endif |
|
} |
} |
|
|
double gctime; |
double gctime; |