30 lines
502 B
C++
Executable File
30 lines
502 B
C++
Executable File
#include "master.hpp"
|
|
|
|
namespace factor
|
|
{
|
|
|
|
void factor_vm::primitive_exit()
|
|
{
|
|
exit((int)to_fixnum(ctx->pop()));
|
|
}
|
|
|
|
void factor_vm::primitive_system_micros()
|
|
{
|
|
ctx->push(from_unsigned_8(system_micros()));
|
|
}
|
|
|
|
void factor_vm::primitive_nano_count()
|
|
{
|
|
u64 nanos = nano_count();
|
|
if(nanos < last_nano_count) critical_error("Monotonic counter decreased",0);
|
|
last_nano_count = nanos;
|
|
ctx->push(from_unsigned_8(nanos));
|
|
}
|
|
|
|
void factor_vm::primitive_sleep()
|
|
{
|
|
sleep_nanos(to_unsigned_8(ctx->pop()));
|
|
}
|
|
|
|
}
|