#BUGFIX by Stefan Reise
using __isExternalAddressLike instead of __isExternalAddress for #bytes in #primNonBlockingNextPutAll:
class: Socket
added:
#isSocket
#waitForConnection:
#waitForConnectionWithErrorOnTimeout:
comment/format in:
#nonBlockingNextPutAll:
#printOn:
#setNonBlocking
#waitForNewConnectionWithTimeout:
changed: #primNonBlockingNextPutAll:
category of: #waitForConnectionUntil:
class: Socket class
changed: #version_CVS
--- a/Socket.st Tue Mar 03 16:22:24 2020 +0100
+++ b/Socket.st Wed Mar 04 10:00:32 2020 +0100
@@ -16,10 +16,10 @@
"{ NameSpace: Smalltalk }"
NonPositionableExternalStream subclass:#Socket
- instanceVariableNames:'domain socketType protocol port peer peerName listening'
- classVariableNames:''
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:'domain socketType protocol port peer peerName listening'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Streams-External'
!
!Socket primitiveDefinitions!
@@ -4436,9 +4436,10 @@
// ALWAYS check for proper arguments, please
OBJ fp = __INST(handle);
- if (__isExternalAddress(bytes)
- && __isSmallInteger(byteLength)
- && (fp != NULL)) {
+ if (__isExternalAddressLike(bytes)
+ && __isSmallInteger(byteLength)
+ && (fp != NULL)
+ ) {
int sendResult;
int wsaErrorNo;
char *pBytes = __externalAddressVal(bytes);