FFI: FFI-Kernel-mt.121.mcz

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI:
http://source.squeak.org/FFI/FFI-Kernel-mt.121.mcz

==================== Summary ====================

Name: FFI-Kernel-mt.121
Author: mt
Time: 30 April 2021, 4:02:17.500442 pm
UUID: d2b4689e-ac74-5843-9526-b4e752914eb5
Ancestors: FFI-Kernel-mt.120

Fixes off-by-one regression.

=============== Diff against FFI-Kernel-mt.120 ===============

Item was changed:
  ----- Method: ExternalData>>from:to: (in category 'accessing') -----
  from: firstIndex to: lastIndex
  "Only copy data if already in object memory, that is, as byte array. Only check size if configured."
 
  | byteOffset numElements byteSize newType |
  ((1 > firstIndex) or: [size notNil and: [lastIndex > size]])
  ifTrue: [^ self errorSubscriptBounds: lastIndex].
 
  byteOffset := ((firstIndex-1) * self contentType byteSize)+1.
  numElements := lastIndex - firstIndex + 1.
  byteSize := numElements * self contentType byteSize.
 
  "For portions of a null-terminated C string, change the type from char* to byte* to avoid confusion."
  newType := self containerType = ExternalType string
  ifTrue: [ExternalType byte asPointerType]
  ifFalse: [self containerType "No change"].
 
  ^ lastIndex < firstIndex
  ifTrue: [
  handle isExternalAddress
  ifTrue: [(ExternalData
  fromHandle: handle + (byteOffset - 1) "Keep pointer."
  type: newType) size: 0; yourself]
  ifFalse: [(ExternalData
  fromHandle: #[] "Empty memory"
  type: newType) size: 0; yourself]]
  ifFalse: [
  handle isExternalAddress
  ifTrue: [(ExternalData
  fromHandle: handle + (byteOffset - 1)
  type: newType) size: numElements; yourself]
  ifFalse: [(ExternalData
+ fromHandle: (handle copyFrom: byteOffset to: byteOffset+byteSize-1)
- fromHandle: (handle copyFrom: byteOffset to: byteOffset+byteSize)
  type: newType) size: numElements; yourself]]!