static sexp sexp_random_uint_stub (sexp ctx, sexp self, sexp_sint_t n, sexp arg0) { sexp res; if (! sexp_exact_integerp(arg0)) return sexp_type_exception(ctx, self, SEXP_FIXNUM, arg0); res = sexp_make_unsigned_integer(ctx, random_uint(sexp_uint_value(arg0))); return res; }
static sexp sexp_gc_op (sexp ctx, sexp self, sexp_sint_t n) { size_t sum_freed=0; #if SEXP_USE_BOEHM GC_gcollect(); #else sexp_gc(ctx, &sum_freed); #endif return sexp_make_unsigned_integer(ctx, sum_freed); }
static sexp sexp_stat_get_st_blocks (sexp ctx, sexp self, sexp_sint_t n, sexp x) { if (! (sexp_pointerp(x) && (sexp_pointer_tag(x) == sexp_unbox_fixnum(sexp_opcode_arg1_type(self))))) return sexp_type_exception(ctx, self, sexp_unbox_fixnum(sexp_opcode_arg1_type(self)), x); return sexp_make_unsigned_integer(ctx, ((struct stat*)sexp_cpointer_value(x))->st_blocks); }
static sexp sexp_gc_usecs_op (sexp ctx, sexp self, sexp_sint_t n) { return sexp_make_unsigned_integer(ctx, sexp_context_gc_usecs(ctx)); }