--- a/Stream.st Tue Mar 22 12:13:15 2016 +0100
+++ b/Stream.st Tue Mar 22 12:14:01 2016 +0100
@@ -1277,7 +1277,7 @@
order, please use the corresponding xxxNet methods, which use a standard
network byte order."
- |val shift byte3|
+ |val shift|
"claus: this method is central in binaryStorage -
therefore it has been tuned a bit (and needs even more tuning)"
@@ -1289,12 +1289,7 @@
^ self nextUnsignedInt16MSB:msbFlag
].
numBytes == 3 ifTrue:[
- val := self nextUnsignedInt16MSB:msbFlag.
- byte3 := self nextByte.
- msbFlag ifTrue:[
- ^ (val bitShift:8) + byte3
- ].
- ^ val + (byte3 bitShift:16)
+ ^ self nextUnsignedInt24MSB:msbFlag.
].
numBytes == 4 ifTrue:[
^ self nextUnsignedInt32MSB:msbFlag