OpenXM_contrib2/asir2000/parse/gc_risa.c - diff

Return to gc_risa.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.2, 2005/11/12 08:10:56

version 1.6, 2009/02/05 11:25:59

Line 1

#include "private/gc_priv.h"

/* $OpenXM$ */

#include "gc.h"

#include <time.h>

void error(char *);

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

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

{

return GC_words_allocd_before_gc + GC_words_allocd;

size_t n = GC_get_total_bytes();

return (long)BYTES_TO_WORDS(n); /* bytes to words */

}

double gctime;

Line 180 double get_clock()

Line 187 double get_clock()

}

#endif

extern int GC_free_space_numerator;

void Risa_GC_get_adj(int *nm, int *dn) {

*nm = GC_free_space_numerator;

*dn = GC_free_space_divisor;

}

void Risa_GC_set_adj(int nm, int dn) {

GC_free_space_numerator = nm;

GC_free_space_divisor = dn;

}

void GC_timerstart() {

gcstart = get_clock();