vm/run.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 void factor_vm::primitive_exit()
   7 {
   8         exit(to_fixnum(dpop()));
   9 }
  10
  11 void factor_vm::primitive_system_micros()
  12 {
  13         box_unsigned_8(system_micros());
  14 }
  15
  16 void factor_vm::primitive_nano_count()
  17 {
  18         box_unsigned_8(nano_count());
  19 }
  20
  21 void factor_vm::primitive_sleep()
  22 {
  23         sleep_micros(to_cell(dpop()));
  24 }
  25
  26 }