st/ByteArray.st

   1
   2 "accessing"
   3
   4 ByteArray method!
   5 at: anInteger
   6         <primitive: 'ByteArray_at'>
   7         anInteger isInteger
   8                 ifTrue: [self error: 'out of bounds array access'].
   9         anInteger isNumber
  10                 ifTrue: [ self at: anInteger asInteger ]
  11                 ifFalse: [self error: 'non-integer index']!
  12
  13 ByteArray method!
  14 at: anInteger put: anObject
  15         <primitive: 'ByteArray_at_put'>
  16         anInteger isInteger
  17                 ifTrue: [self error: 'out of bounds array access'].
  18         anInteger isNumber
  19                 ifTrue: [ self at: anInteger asInteger ]
  20                 ifFalse: [self error: 'non-integer index']!
  21
  22 ByteArray method!
  23 hash
  24         <primitive: 'ByteArray_hash'>
  25         self primitiveFailed!