vm/run.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 void factor_vm::primitive_getenv()
   7 {
   8         fixnum e = untag_fixnum(dpeek());
   9         drepl(userenv[e]);
  10 }
  11
  12 void factor_vm::primitive_setenv()
  13 {
  14         fixnum e = untag_fixnum(dpop());
  15         cell value = dpop();
  16         userenv[e] = value;
  17 }
  18
  19 void factor_vm::primitive_exit()
  20 {
  21         exit(to_fixnum(dpop()));
  22 }
  23
  24 void factor_vm::primitive_micros()
  25 {
  26         box_unsigned_8(current_micros());
  27 }
  28
  29 void factor_vm::primitive_sleep()
  30 {
  31         sleep_micros(to_cell(dpop()));
  32 }
  33
  34 void factor_vm::primitive_set_slot()
  35 {
  36         fixnum slot = untag_fixnum(dpop());
  37         object *obj = untag<object>(dpop());
  38         cell value = dpop();
  39
  40         obj->slots()[slot] = value;
  41         write_barrier(obj);
  42 }
  43
  44 void factor_vm::primitive_load_locals()
  45 {
  46         fixnum count = untag_fixnum(dpop());
  47         memcpy((cell *)(rs + sizeof(cell)),(cell *)(ds - sizeof(cell) * (count - 1)),sizeof(cell) * count);
  48         ds -= sizeof(cell) * count;
  49         rs += sizeof(cell) * count;
  50 }
  51
  52 cell factor_vm::clone_object(cell obj_)
  53 {
  54         gc_root<object> obj(obj_,this);
  55
  56         if(immediate_p(obj.value()))
  57                 return obj.value();
  58         else
  59         {
  60                 cell size = object_size(obj.value());
  61                 object *new_obj = allot_object(header(obj.type()),size);
  62                 memcpy(new_obj,obj.untagged(),size);
  63                 return tag_dynamic(new_obj);
  64         }
  65 }
  66
  67 void factor_vm::primitive_clone()
  68 {
  69         drepl(clone_object(dpeek()));
  70 }
  71
  72 }