Exemple #1
0
static sexp sexp_heap_sizes (sexp ctx, sexp self, sexp_sint_t n) {
  sexp res = sexp_heap_walk(ctx, 0, 0);
  return sexp_pairp(res) ? sexp_cdr(res) : res;
}
Exemple #2
0
static sexp sexp_heap_dump (sexp ctx, sexp self, sexp_sint_t n, sexp depth) {
  if (! sexp_fixnump(depth) || (sexp_unbox_fixnum(depth) < 0))
    return sexp_xtype_exception(ctx, self, "bad heap-dump depth", depth);
  return sexp_heap_walk(ctx, sexp_unbox_fixnum(depth), 1);
}
static sexp sexp_heap_stats (sexp ctx, sexp self, sexp_sint_t n) {
  return sexp_heap_walk(ctx, 0, 0);
}