paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 11:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More bugs, but now gmake all works.

Browse Source
This commit is contained in:
marco 2003-01-24 21:13:31 +00:00
parent 58751d1d7e
commit f14e276fc7
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fcl/netbsd/thread.inc
View File

@ -56,6 +56,8 @@ begin
waitpid(-1, nil, WNOHANG); waitpid(-1, nil, WNOHANG);
end; end;
Const sigzero : sigset_t = (0,0,0,0); //Do not block all signals ??. Don't need if SA_NOMASK in flags
procedure InitThreads; procedure InitThreads;
var var
Act, OldAct: PSigActionRec; Act, OldAct: PSigActionRec;
@ -71,10 +73,19 @@ begin
GetMem(Act, SizeOf(SigActionRec)); GetMem(Act, SizeOf(SigActionRec));
GetMem(OldAct, SizeOf(SigActionRec)); GetMem(OldAct, SizeOf(SigActionRec));
{$ifdef ver1_0}
Act^.handler.sh := @SIGCHLDHandler; Act^.handler.sh := @SIGCHLDHandler;
Act^.sa_flags := SA_NOCLDSTOP {or SA_NOMASK or SA_RESTART}; {$else}
Act^.sa_mask := 0; //Do not block all signals ??. Don't need if SA_NOMASK in flags Act^.sa_handler := @SIGCHLDHandler;
{$endif}
Act^.sa_flags := SA_NOCLDSTOP {or SA_NOMASK or SA_RESTART};
{$ifdef VER1_0}
Act^.sa_mask := 0; //Do not block all signals ??. Don't need if SA_NOMASK in flags
{$else}
Act^.sa_mask := sigzero;
{$endif}
SigAction(SIGCHLD, Act, OldAct); SigAction(SIGCHLD, Act, OldAct);
FreeMem(Act, SizeOf(SigActionRec)); FreeMem(Act, SizeOf(SigActionRec));
@ -284,7 +295,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2002-09-07 15:15:27 peter Revision 1.4 2003-01-24 21:13:31 marco
* More bugs, but now gmake all works.
Revision 1.3 2002/09/07 15:15:27 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }