factor/vm/run.cpp

#include "master.hpp"

namespace factor
{

void factor_vm::primitive_exit()
{
	exit(to_fixnum(dpop()));
}

void factor_vm::primitive_system_micros()
{
	box_unsigned_8(system_micros());
}

void factor_vm::primitive_nano_count()
{
	box_unsigned_8(nano_count());
}

void factor_vm::primitive_sleep()
{
	sleep_nanos(to_unsigned_8(dpop()));
}

}
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`#include "master.hpp"`

Use C++ namespaces 2009-05-04 02:46:13 -04:00			`namespace factor`
			`{`

Moved PRIMITIVE and PRIMITIVE_FORWARDs to primitives.[ch]pp 2009-09-27 14:42:18 -04:00			`void factor_vm::primitive_exit()`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`{`
			`exit(to_fixnum(dpop()));`
			`}`

rename millis to system-millis, micros to system-micros, add nano-count 2009-11-18 16:58:48 -05:00			`void factor_vm::primitive_system_micros()`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`{`
rename millis to system-millis, micros to system-micros, add nano-count 2009-11-18 16:58:48 -05:00			`box_unsigned_8(system_micros());`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`}`

rename millis to system-millis, micros to system-micros, add nano-count 2009-11-18 16:58:48 -05:00			`void factor_vm::primitive_nano_count()`
initial commit to nanos branch to replace micros 2009-11-18 05:20:05 -05:00			`{`
rename millis to system-millis, micros to system-micros, add nano-count 2009-11-18 16:58:48 -05:00			`box_unsigned_8(nano_count());`
initial commit to nanos branch to replace micros 2009-11-18 05:20:05 -05:00			`}`

Moved PRIMITIVE and PRIMITIVE_FORWARDs to primitives.[ch]pp 2009-09-27 14:42:18 -04:00			`void factor_vm::primitive_sleep()`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`{`
fix windows compile error 2009-11-20 05:21:21 -05:00			`sleep_nanos(to_unsigned_8(dpop()));`
Porting VM to C++ 2009-05-02 05:04:19 -04:00			`}`

Use C++ namespaces 2009-05-04 02:46:13 -04:00			`}`