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

* fix for OS X not having MSG_NOSIGNAL.

Browse Source 
git-svn-id: trunk@13279 -
This commit is contained in:
marco 2009-06-15 10:05:07 +00:00
parent ef0438ec7e
commit 5f13f1873f
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-web/src/custfcgi.pp
View File

@ -87,6 +87,15 @@ uses
{$endif}
Sockets;
{$undef nosignal}
{$if defined(FreeBSD) or defined(Linux)}
{$define nosignal}
{$ifend}
Const
NoSignalAttr = {$ifdef nosignal} MSG_NOSIGNAL{$else}0{$endif};
{ TFCGIHTTPRequest }
procedure TFCGIRequest.ReadContent;
@ -243,7 +252,7 @@ var BytesToWrite : word;
BytesWritten : Integer;
begin
BytesToWrite := BEtoN(ARecord^.contentLength) + ARecord^.paddingLength+sizeof(FCGI_Header);
BytesWritten := sockets.fpsend(TFCGIRequest(Request).Handle, ARecord, BytesToWrite, {$ifdef unix} MSG_NOSIGNAL{$else}0{$endif});
BytesWritten := sockets.fpsend(TFCGIRequest(Request).Handle, ARecord, BytesToWrite, NoSignalAttr);
Assert(BytesWritten=BytesToWrite);
end;
@ -359,7 +368,7 @@ var Header : FCGI_Header;
result := False;
if ByteAmount>0 then
begin
BytesRead := sockets.fpRecv(FHandle, ReadBuf, ByteAmount, {$ifdef unix} MSG_NOSIGNAL{$else}0{$endif});
BytesRead := sockets.fpRecv(FHandle, ReadBuf, ByteAmount, NoSignalAttr);
if BytesRead<>ByteAmount then
begin
// SendDebug('FCGIRecord incomplete');