6 void factor_vm::primitive_exit()
8 exit((int)to_fixnum(ctx->pop()));
11 void factor_vm::primitive_nano_count()
13 u64 nanos = nano_count();
14 if(nanos < last_nano_count) critical_error("Monotonic counter decreased",0);
15 last_nano_count = nanos;
16 ctx->push(from_unsigned_8(nanos));
19 void factor_vm::primitive_sleep()
21 sleep_nanos(to_unsigned_8(ctx->pop()));