Exemplo n.º 1
0
/* address of an object representing a C pointer. Explicitly throw an error
if the object is a byte array, as a sanity check. */
inline void factorvm::vmprim_alien_address()
{
	box_unsigned_cell((cell)pinned_alien_offset(dpop()));
}
Exemplo n.º 2
0
void factor_vm::primitive_size()
{
    box_unsigned_cell(object_size(dpop()));
}