steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: fix compilation on FreeBSD

release
Slava Pestov 2010-03-28 12:52:16 -04:00
parent 51c7e1e1e6
commit 84c01e1ab3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
vm/os-unix.cpp
View File

@ -98,9 +98,12 @@ void factor_vm::primitive_existsp()
void factor_vm::move_file(const vm_char *path1, const vm_char *path2)
{
int ret = 0;
do {
do
{
ret = rename((path1),(path2));
} while(ret < 0 && errno == EINTR);
}
while(ret < 0 && errno == EINTR);
if(ret < 0)
general_error(ERROR_IO,tag_fixnum(errno),false_object);
}
@ -191,7 +194,7 @@ void factor_vm::unix_init_signals()
signal_callstack_seg = new segment(callstack_size,false);
stack_t signal_callstack;
signal_callstack.ss_sp = (void *)signal_callstack_seg->start;
signal_callstack.ss_sp = (char *)signal_callstack_seg->start;
signal_callstack.ss_size = signal_callstack_seg->size;
signal_callstack.ss_flags = 0;