paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 05:59:34 +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

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}
var
threadvar
SocketBase: PLibrary;
ISocket: PInterface;
@ -339,10 +339,8 @@ begin
end;
initialization
{$ifndef AMIGAOS4}
AddThreadInitProc(@BSDSocketOpen);
AddThreadExitProc(@BSDSocketClose);
{$endif}
BSDSocketOpen;
finalization