version 1.1, 2002/07/24 10:01:39 |
version 1.4, 2009/02/05 08:37:02 |
Line 40 int get_heapsize() |
|
Line 40 int get_heapsize() |
|
return GC_heapsize; |
return GC_heapsize; |
} |
} |
|
|
int get_allocwords() |
long get_allocwords() |
{ |
{ |
return GC_words_allocd_before_gc; |
#if !defined(GC7) |
|
return GC_words_allocd_before_gc + GC_words_allocd; |
|
#else |
|
long n = GC_bytes_allocd_before_gc + GC_bytes_allocd; |
|
return BYTES_TO_WORDS(n); |
|
#endif |
} |
} |
|
|
double gctime; |
double gctime; |
Line 180 double get_clock() |
|
Line 185 double get_clock() |
|
} |
} |
#endif |
#endif |
#endif |
#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() { |
void GC_timerstart() { |
gcstart = get_clock(); |
gcstart = get_clock(); |