vm/run.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 void factor_vm::primitive_exit()
   7 {
   8         exit((int)to_fixnum(ctx->pop()));
   9 }
  10
  11 void factor_vm::primitive_nano_count()
  12 {
  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));
  17 }
  18
  19 void factor_vm::primitive_sleep()
  20 {
  21         sleep_nanos(to_unsigned_8(ctx->pop()));
  22 }
  23
  24 }