CAMLprim value caml_gc_stat(value v) { value result; CAML_INSTR_SETUP (tmr, ""); Assert (v == Val_unit); result = heap_stats (1); CAML_INSTR_TIME (tmr, "explicit/gc_stat"); return result; }
int _heap_handler(int argc, char **argv) { (void) argc; (void) argv; heap_stats(); return 0; }
void caml_heap_check (void) { heap_stats (0); }
CAMLprim value caml_gc_stat(value v) { Assert (v == Val_unit); return heap_stats (1); }
void _heap_handler(char* unused){ (void) unused; heap_stats(); }