OpenXM_contrib2/asir2000/parse/gc_risa.c - diff

Return to gc_risa.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.4, 2009/02/05 08:37:02

version 1.5, 2009/02/05 11:21:38

Line 1

#include "private/gc_priv.h"

#include "gc.h"

#include <time.h>

void error(char *);

Line 37 void *Risa_GC_realloc(void *p,size_t d)

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()

{

#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;