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

git-svn-id: trunk@33848 -

packages/rtl-extra/src/amiga/sockets.pp

@@ -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