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

AmigaOS4: OS4 needs socketbase and interface as threadvars (like all other Amiga-systems)

Browse Source 
git-svn-id: trunk@33848 -
This commit is contained in:
marcus 2016-05-29 15:55:45 +00:00
parent a756609a27
commit c4a0c08c8d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-extra/src/amiga/sockets.pp
View File

@ -143,7 +143,7 @@ function ReleaseCopyOfSocket(s: LongInt location 'd0'; id: LongInt location 'd1'
{$else AMIGAOS4} {$else AMIGAOS4}
var threadvar
SocketBase: PLibrary; SocketBase: PLibrary;
ISocket: PInterface; ISocket: PInterface;
@ -339,10 +339,8 @@ begin
end; end;
initialization initialization
{$ifndef AMIGAOS4}
AddThreadInitProc(@BSDSocketOpen); AddThreadInitProc(@BSDSocketOpen);
AddThreadExitProc(@BSDSocketClose); AddThreadExitProc(@BSDSocketClose);
{$endif}
BSDSocketOpen; BSDSocketOpen;
finalization finalization