mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-26 14:50:32 +02:00
* fix for sleep from johill
This commit is contained in:
parent
7b12dc7b86
commit
a427276302
@ -170,7 +170,7 @@ begin
|
|||||||
time_to_sleep.tv_nsec := 0;
|
time_to_sleep.tv_nsec := 0;
|
||||||
fpsigemptyset(nset);
|
fpsigemptyset(nset);
|
||||||
fpsigaddset (nset,SIGCHLD);
|
fpsigaddset (nset,SIGCHLD);
|
||||||
if fpsigprocmask(SIG_BLOCK,@nset,@oset)=0 Then
|
if fpsigprocmask(SIG_BLOCK,@nset,@oset)=-1 Then
|
||||||
exit(cuint(-1));
|
exit(cuint(-1));
|
||||||
if fpsigismember(oset,SIGCHLD)<>0 Then
|
if fpsigismember(oset,SIGCHLD)<>0 Then
|
||||||
Begin
|
Begin
|
||||||
@ -433,7 +433,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.5 2003-09-27 13:45:58 peter
|
Revision 1.6 2003-11-19 14:04:34 marco
|
||||||
|
* fix for sleep from johill
|
||||||
|
|
||||||
|
Revision 1.5 2003/09/27 13:45:58 peter
|
||||||
* fpnanosleep exported in baseunix
|
* fpnanosleep exported in baseunix
|
||||||
* fpnanosleep has pointer arguments to be C compliant
|
* fpnanosleep has pointer arguments to be C compliant
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user