paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-13 04:10:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* No PIPE signal on darwin

Browse Source 
git-svn-id: trunk@23245 -
This commit is contained in:
michael 2012-12-28 22:57:46 +00:00
parent a2edcfc4e0
commit 33b6b8eef5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -388,10 +388,10 @@ end;
procedure TFPHTTPConnection.SetupSocket; procedure TFPHTTPConnection.SetupSocket;
begin begin
{$ifdef unix} {$if defined(FreeBSD) or defined(Linux)}
FSocket.ReadFlags:=MSG_NOSIGNAL; FSocket.ReadFlags:=MSG_NOSIGNAL;
FSocket.WriteFlags:=MSG_NOSIGNAL; FSocket.WriteFlags:=MSG_NOSIGNAL;
{$endif} {$endif}
end; end;
Procedure TFPHTTPConnection.InterPretHeader(ARequest : TFPHTTPConnectionRequest; Const AHeader : String); Procedure TFPHTTPConnection.InterPretHeader(ARequest : TFPHTTPConnectionRequest; Const AHeader : String);