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