#REFACTORING
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 14:32:15 +0100
changeset 3770 838c61a7ea06
parent 3769 dd72d932f033
child 3771 bb14e511c3d1
#REFACTORING class: SocketAddress changed: #domainCode (send #unsignedInt16At: instead of #unsignedShortAt:) #domainCode: (send #unsignedInt16At:put: instead of #unsignedShortAt:put:)
SocketAddress.st
--- a/SocketAddress.st	Wed Mar 23 14:27:22 2016 +0100
+++ b/SocketAddress.st	Wed Mar 23 14:32:15 2016 +0100
@@ -632,7 +632,7 @@
     OperatingSystem isOSXlike ifTrue:[
         ^ self at:2
     ].
-    ^ self unsignedShortAt:1
+    ^ self unsignedInt16At:1
 !
 
 domainCode:anInteger
@@ -645,7 +645,7 @@
         self at:1 put:self size.
         self at:2 put:anInteger.
     ] ifFalse:[ 
-        self unsignedShortAt:1 put:anInteger
+        self unsignedInt16At:1 put:anInteger
     ].
 !