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) void factor_vm::move_file(const vm_char *path1, const vm_char *path2)
{ {
int ret = 0; int ret = 0;
do { do
{
ret = rename((path1),(path2)); ret = rename((path1),(path2));
} while(ret < 0 && errno == EINTR); }
while(ret < 0 && errno == EINTR);
if(ret < 0) if(ret < 0)
general_error(ERROR_IO,tag_fixnum(errno),false_object); 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); signal_callstack_seg = new segment(callstack_size,false);
stack_t signal_callstack; 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_size = signal_callstack_seg->size;
signal_callstack.ss_flags = 0; signal_callstack.ss_flags = 0;