# HG changeset patch # User Claus Gittinger # Date 1455405252 -3600 # Node ID 2a21c945fba07a9bdf9c000af5046dd847901c5b # Parent b990f28738b2e66e7ce990d69c660f81fae3db96 #BUGFIX class: Stream changed: #nextUnsigned:MSB: (send #nextUnsignedInt32MSB: instead of #nextUnsignedLongMSB:, send #nextUnsignedInt16MSB: instead of #nextUnsignedShortMSB:) removed remaining references to obsolete inhomogenous writers and readers. diff -r b990f28738b2 -r 2a21c945fba0 Stream.st --- a/Stream.st Sat Feb 13 23:47:13 2016 +0100 +++ b/Stream.st Sun Feb 14 00:14:12 2016 +0100 @@ -1254,17 +1254,17 @@ ^ self nextByte ]. numBytes == 2 ifTrue:[ - ^ self nextUnsignedShortMSB:msbFlag + ^ self nextUnsignedInt16MSB:msbFlag ]. numBytes == 3 ifTrue:[ - val := self nextUnsignedShortMSB:msbFlag. + val := self nextUnsignedInt16MSB:msbFlag. msbFlag ifTrue:[ ^ (val bitShift:8) + self nextByte ]. ^ val + (self nextByte bitShift:16) ]. numBytes == 4 ifTrue:[ - ^ self nextUnsignedLongMSB:msbFlag + ^ self nextUnsignedInt32MSB:msbFlag ]. val := 0.