factor/vm/utilities.cpp

#include "master.hpp"

namespace factor
{

/* Fill in a PPC function descriptor */
void *fill_function_descriptor(void *ptr, void *code)
{
	void **descriptor = (void **)ptr;
	descriptor[0] = code;
	descriptor[1] = NULL;
	descriptor[2] = NULL;
	return descriptor;
}

/* Get a field from a PPC function descriptor */
void *function_descriptor_field(void *ptr, size_t idx)
{
	return ptr ? ((void **) ptr)[idx] : ptr;
}

/* If memory allocation fails, bail out */
vm_char *safe_strdup(const vm_char *str)
{
	vm_char *ptr = STRDUP(str);
	if(!ptr) fatal_error("Out of memory in safe_strdup", 0);
	return ptr;
}

cell read_cell_hex()
{
	cell cell;
	std::cin >> std::hex >> cell >> std::dec;
	if(!std::cin.good()) exit(1);
	return cell;
}

/* On Windows, memcpy() is in a different DLL and the non-optimizing
compiler can't find it */
VM_C_API void *factor_memcpy(void *dst, void *src, size_t len)
{
	return memcpy(dst,src,len);
}

}