114 lines
1.7 KiB
C++
Executable File
114 lines
1.7 KiB
C++
Executable File
#include "master.hpp"
|
|
|
|
namespace factor
|
|
{
|
|
|
|
|
|
inline void factorvm::vmprim_getenv()
|
|
{
|
|
fixnum e = untag_fixnum(dpeek());
|
|
drepl(userenv[e]);
|
|
}
|
|
|
|
PRIMITIVE(getenv)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_getenv();
|
|
}
|
|
|
|
inline void factorvm::vmprim_setenv()
|
|
{
|
|
fixnum e = untag_fixnum(dpop());
|
|
cell value = dpop();
|
|
userenv[e] = value;
|
|
}
|
|
|
|
PRIMITIVE(setenv)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_setenv();
|
|
}
|
|
|
|
inline void factorvm::vmprim_exit()
|
|
{
|
|
exit(to_fixnum(dpop()));
|
|
}
|
|
|
|
PRIMITIVE(exit)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_exit();
|
|
}
|
|
|
|
inline void factorvm::vmprim_micros()
|
|
{
|
|
box_unsigned_8(current_micros());
|
|
}
|
|
|
|
PRIMITIVE(micros)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_micros();
|
|
}
|
|
|
|
inline void factorvm::vmprim_sleep()
|
|
{
|
|
sleep_micros(to_cell(dpop()));
|
|
}
|
|
|
|
PRIMITIVE(sleep)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_sleep();
|
|
}
|
|
|
|
inline void factorvm::vmprim_set_slot()
|
|
{
|
|
fixnum slot = untag_fixnum(dpop());
|
|
object *obj = untag<object>(dpop());
|
|
cell value = dpop();
|
|
|
|
obj->slots()[slot] = value;
|
|
write_barrier(obj);
|
|
}
|
|
|
|
PRIMITIVE(set_slot)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_set_slot();
|
|
}
|
|
|
|
inline void factorvm::vmprim_load_locals()
|
|
{
|
|
fixnum count = untag_fixnum(dpop());
|
|
memcpy((cell *)(rs + sizeof(cell)),(cell *)(ds - sizeof(cell) * (count - 1)),sizeof(cell) * count);
|
|
ds -= sizeof(cell) * count;
|
|
rs += sizeof(cell) * count;
|
|
}
|
|
|
|
PRIMITIVE(load_locals)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_load_locals();
|
|
}
|
|
|
|
cell factorvm::clone_object(cell obj_)
|
|
{
|
|
gc_root<object> obj(obj_,this);
|
|
|
|
if(immediate_p(obj.value()))
|
|
return obj.value();
|
|
else
|
|
{
|
|
cell size = object_size(obj.value());
|
|
object *new_obj = allot_object(obj.type(),size);
|
|
memcpy(new_obj,obj.untagged(),size);
|
|
return tag_dynamic(new_obj);
|
|
}
|
|
}
|
|
|
|
inline void factorvm::vmprim_clone()
|
|
{
|
|
drepl(clone_object(dpeek()));
|
|
}
|
|
|
|
PRIMITIVE(clone)
|
|
{
|
|
PRIMITIVE_GETVM()->vmprim_clone();
|
|
}
|
|
|
|
}
|