pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Socket creation on MacOS set option SO_NOSIGPIPE

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@173 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2013-02-05 11:29:32 +00:00
parent c15fcb90b4
commit 31f7a854e8
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ssfpc.inc
View File

@ -1,9 +1,9 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 001.001.004 | | Project : Ararat Synapse | 001.001.005 |
|==============================================================================| |==============================================================================|
| Content: Socket Independent Platform Layer - FreePascal definition include | | Content: Socket Independent Platform Layer - FreePascal definition include |
|==============================================================================| |==============================================================================|
| Copyright (c)2006-2011, Lukas Gebauer | | Copyright (c)2006-2013, Lukas Gebauer |
| All rights reserved. | | All rights reserved. |
| | | |
| Redistribution and use in source and binary forms, with or without | | Redistribution and use in source and binary forms, with or without |
@ -33,7 +33,7 @@
| DAMAGE. | | DAMAGE. |
|==============================================================================| |==============================================================================|
| The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
| Portions created by Lukas Gebauer are Copyright (c)2006-2011. | | Portions created by Lukas Gebauer are Copyright (c)2006-2013. |
| All Rights Reserved. | | All Rights Reserved. |
|==============================================================================| |==============================================================================|
| Contributor(s): | | Contributor(s): |
@ -206,6 +206,10 @@ Const
// SO_ATTACH_FILTER = sockets.SO_ATTACH_FILTER; // SO_ATTACH_FILTER = sockets.SO_ATTACH_FILTER;
// SO_DETACH_FILTER = sockets.SO_DETACH_FILTER; // SO_DETACH_FILTER = sockets.SO_DETACH_FILTER;
{$IFDEF DARWIN}
SO_NOSIGPIPE = $1022;
{$ENDIF}
SOMAXCONN = 1024; SOMAXCONN = 1024;
IPV6_UNICAST_HOPS = sockets.IPV6_UNICAST_HOPS; IPV6_UNICAST_HOPS = sockets.IPV6_UNICAST_HOPS;
@ -646,8 +650,20 @@ begin
end; end;
function Socket(af, Struc, Protocol: Integer): TSocket; function Socket(af, Struc, Protocol: Integer): TSocket;
{$IFDEF DARWIN}
var
on_off: integer;
{$ENDIF}
begin begin
Result := fpSocket(af, struc, protocol); Result := fpSocket(af, struc, protocol);
// ##### Patch for Mac OS to avoid "Project XXX raised exception class 'External: SIGPIPE'" error.
{$IFDEF DARWIN}
if Result <> INVALID_SOCKET then
begin
on_off := 1;
synsock.SetSockOpt(Result, integer(SOL_SOCKET), integer(SO_NOSIGPIPE), @on_off, SizeOf(integer));
end;
{$ENDIF}
end; end;
function Select(nfds: Integer; readfds, writefds, exceptfds: PFDSet; function Select(nfds: Integer; readfds, writefds, exceptfds: PFDSet;