paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 19:11:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* provisorische fix voor Michael's problemen

Browse Source
This commit is contained in:
marco 2004-02-14 21:12:14 +00:00
parent ac1e951b17
commit 715bb087b0
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/unix/unix.pp
View File

@ -18,6 +18,7 @@ Interface
Uses UnixUtil,BaseUnix; Uses UnixUtil,BaseUnix;
{$define POSIXWORKAROUND}
{ Get Types and Constants } { Get Types and Constants }
{$i sysconst.inc} {$i sysconst.inc}
{$ifdef FreeBSD} {$ifdef FreeBSD}
@ -749,7 +750,11 @@ var
begin { Changes as above } begin { Changes as above }
if command='' then exit(1); if command='' then exit(1);
{$ifdef FreeBSD}
ign.sa_handler:=TSigAction(SIG_IGN); ign.sa_handler:=TSigAction(SIG_IGN);
{$else}
ign.sa_handler:=SignalHandler(SIG_IGN);
{$endif}
fpsigemptyset(ign.sa_mask); fpsigemptyset(ign.sa_mask);
ign.sa_flags:=0; ign.sa_flags:=0;
fpsigaction(SIGINT, @ign, @intact); fpsigaction(SIGINT, @ign, @intact);
@ -1728,7 +1733,10 @@ End.
{ {
$Log$ $Log$
Revision 1.64 2004-02-14 18:22:15 marco Revision 1.65 2004-02-14 21:12:14 marco
* provisorische fix voor Michael's problemen
Revision 1.64 2004/02/14 18:22:15 marco
* fpsystem, and some FPC_USE_LIBC fixes. (FreeBSD needs systypes.inc, also when FPC_USE_LIBC, it only contains types like statfs * fpsystem, and some FPC_USE_LIBC fixes. (FreeBSD needs systypes.inc, also when FPC_USE_LIBC, it only contains types like statfs
Revision 1.63 2004/02/13 10:50:22 marco Revision 1.63 2004/02/13 10:50:22 marco