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

* sigactionhandler fix

Browse Source
This commit is contained in:
marco 2005-04-06 10:47:01 +00:00
parent c9b0f520a9
commit 41b2c00e41
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
demo/linux/daemon.pp
View File

@ -83,14 +83,14 @@ Begin
new(aOld); new(aOld);
new(aHup); new(aHup);
new(aTerm); new(aTerm);
aTerm^.sa_handler{.sh} := TSigAction(@DoSig); aTerm^.sa_handler{.sh} := SigactionHandler(@DoSig);
aTerm^.sa_mask := zerosigs; aTerm^.sa_mask := zerosigs;
aTerm^.sa_flags := 0; aTerm^.sa_flags := 0;
{$ifndef BSD} {Linux'ism} {$ifndef BSD} {Linux'ism}
aTerm^.sa_restorer := nil; aTerm^.sa_restorer := nil;
{$endif} {$endif}
aHup^.sa_handler := TSigAction(@DoSig); aHup^.sa_handler := SigactionHandler(@DoSig);
aHup^.sa_mask := zerosigs; aHup^.sa_mask := zerosigs;
aHup^.sa_flags := 0; aHup^.sa_flags := 0;
{$ifndef BSD} {Linux'ism} {$ifndef BSD} {Linux'ism}
@ -142,7 +142,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.4 2004-06-04 12:37:52 marco Revision 1.5 2005-04-06 10:47:01 marco
* sigactionhandler fix
Revision 1.4 2004/06/04 12:37:52 marco
* modernized. Now only uses baseunix,sysutils * modernized. Now only uses baseunix,sysutils
Revision 1.3 2002/09/07 15:06:35 peter Revision 1.3 2002/09/07 15:06:35 peter