2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
2009-10-31 03:30:48 -04:00
|
|
|
|
|
|
|
inline static void memset_cell(void *dst, cell pattern, size_t size)
|
|
|
|
{
|
|
|
|
#ifdef __APPLE__
|
|
|
|
#ifdef FACTOR_64
|
|
|
|
memset_pattern8(dst,&pattern,size);
|
|
|
|
#else
|
|
|
|
memset_pattern4(dst,&pattern,size);
|
|
|
|
#endif
|
|
|
|
#else
|
|
|
|
if(pattern == 0)
|
|
|
|
memset(dst,0,size);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
cell *start = (cell *)dst;
|
|
|
|
cell *end = (cell *)((cell)dst + size);
|
|
|
|
while(start < end)
|
|
|
|
{
|
|
|
|
*start = fill;
|
|
|
|
start++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
vm_char *safe_strdup(const vm_char *str);
|
|
|
|
void print_string(const char *str);
|
|
|
|
void nl();
|
|
|
|
void print_cell(cell x);
|
|
|
|
void print_cell_hex(cell x);
|
|
|
|
void print_cell_hex_pad(cell x);
|
|
|
|
void print_fixnum(fixnum x);
|
|
|
|
cell read_cell_hex();
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
}
|