Stream.st
changeset 19214 2a21c945fba0
parent 19212 06790833587e
child 19221 d7e9529963a4
child 19227 5e949760a4e8
equal deleted inserted replaced
19213:b990f28738b2 19214:2a21c945fba0
  1252 
  1252 
  1253     numBytes == 1 ifTrue:[
  1253     numBytes == 1 ifTrue:[
  1254         ^ self nextByte
  1254         ^ self nextByte
  1255     ].
  1255     ].
  1256     numBytes == 2 ifTrue:[
  1256     numBytes == 2 ifTrue:[
  1257         ^ self nextUnsignedShortMSB:msbFlag
  1257         ^ self nextUnsignedInt16MSB:msbFlag
  1258     ].
  1258     ].
  1259     numBytes == 3 ifTrue:[
  1259     numBytes == 3 ifTrue:[
  1260         val := self nextUnsignedShortMSB:msbFlag.
  1260         val := self nextUnsignedInt16MSB:msbFlag.
  1261         msbFlag ifTrue:[
  1261         msbFlag ifTrue:[
  1262             ^ (val bitShift:8) + self nextByte
  1262             ^ (val bitShift:8) + self nextByte
  1263         ].
  1263         ].
  1264         ^ val + (self nextByte bitShift:16)
  1264         ^ val + (self nextByte bitShift:16)
  1265     ].
  1265     ].
  1266     numBytes == 4 ifTrue:[
  1266     numBytes == 4 ifTrue:[
  1267         ^ self nextUnsignedLongMSB:msbFlag
  1267         ^ self nextUnsignedInt32MSB:msbFlag
  1268     ].
  1268     ].
  1269 
  1269 
  1270     val := 0.
  1270     val := 0.
  1271     msbFlag ifTrue:[
  1271     msbFlag ifTrue:[
  1272         numBytes timesRepeat:[
  1272         numBytes timesRepeat:[