support win32
This commit is contained in:
parent
bfee0cbea6
commit
153794e14b
@ -2508,7 +2508,8 @@ PL_thread_raise(int tid, int sig)
|
||||
if ( !REMOTE_ThreadHandle(tid).in_use )
|
||||
goto error;
|
||||
|
||||
if ( !raiseSignal(tid, sig) ||
|
||||
|
||||
if ( !raiseSignal(REMOTE_PL_local_data_p(tid), sig) ||
|
||||
!alertThread(tid) )
|
||||
goto error;
|
||||
|
||||
@ -2516,6 +2517,16 @@ PL_thread_raise(int tid, int sig)
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
#else
|
||||
|
||||
int
|
||||
PL_thread_raise(int tid, int sig)
|
||||
{
|
||||
if ( !raiseSignal(NULL, sig) )
|
||||
return FALSE;
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
|
2
library/system.yap
Normal file → Executable file
2
library/system.yap
Normal file → Executable file
@ -48,8 +48,10 @@
|
||||
|
||||
:- use_module(library(lists), [append/3]).
|
||||
|
||||
:- if(current_prolog_flag(windows, false)).
|
||||
:- reexport(library(unix), [wait/2,
|
||||
kill/2]).
|
||||
:- endif.
|
||||
|
||||
:- load_foreign_files([sys], [], init_sys).
|
||||
|
||||
|
Reference in New Issue
Block a user