[Help-smalltalk] Possible bug in Sockets?

[Ladislav Marek]

Hi,

I'm playing with my HTTP server in GST and it still ends with SIGABRT.
There is small reproduce script:

PackageLoader fileInPackage: #Sockets.

Eval [
    | connections |

    5 timesRepeat: [
        connections := Set new.

        1000 timesRepeat: [
            connections add: (Sockets.Socket remote: '127.0.0.1' port: 80)].

        connections do: [ :connection | connection close]
    ]
]

fails with:

test.st:14: Aborted
test.st:14: Aborted
(ip 28)WeakIdentitySet>>#findIndex:
(ip 6)WeakIdentitySet(WeakSet)>>#add:
(ip 8)TCPSocketImpl(FileDescriptor)>>#addToBeFinalized
(ip 6)TCPSocketImpl(FileDescriptor)>>#initialize
(ip 14)TCPSocketImpl class(FileDescriptor class)>>#on:
(ip 30)TCPSocketImpl class(AbstractSocketImpl class)>>#newFor:
(ip 8)Socket class(AbstractSocket class)>>#new:addressClass:
(ip 12)IPAddress class(SocketAddress class)>>#newSocket:
(ip 66)Socket class(StreamSocket class)>>#remote:port:local:port:
(ip 20)Socket class(StreamSocket class)>>#remote:port:
(ip 46)UndefinedObject>>#executeStatements
(ip 0)<bottom>
Aborted

or sometimes:
(ip 24)Set>>#findIndex:
(ip 12)Set(HashedCollection)>>#add:
(ip 28)TCPSocketImpl(Object)>>#addToBeFinalized
(ip 14)TCPSocketImpl(FileDescriptor)>>#addToBeFinalized
(ip 6)TCPSocketImpl(FileDescriptor)>>#initialize
(ip 14)TCPSocketImpl class(FileDescriptor class)>>#on:
(ip 30)TCPSocketImpl class(AbstractSocketImpl class)>>#newFor:
(ip 8)Socket class(AbstractSocket class)>>#new:addressClass:
(ip 12)IPAddress class(SocketAddress class)>>#newSocket:
(ip 66)Socket class(StreamSocket class)>>#remote:port:local:port:
(ip 20)Socket class(StreamSocket class)>>#remote:port:
(ip 46)UndefinedObject>>#executeStatements
(ip 0)<bottom>
Aborted


is that correct? 5 * 1000 connections is too much?

Ladislav