factor/vm/run.cpp

#include "master.hpp"

namespace factor
{

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

void factor_vm::primitive_micros()
{
	box_unsigned_8(current_micros());
}

void factor_vm::primitive_sleep()
{
	sleep_micros(to_cell(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()));`
			`}`

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

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			`{`
			`sleep_micros(to_cell(dpop()));`
			`}`

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