FFI: FFI-Kernel-mt.169.mcz

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

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

Name: FFI-Kernel-mt.169
Author: mt
Time: 26 May 2021, 11:37:11.537346 am
UUID: cb1e1e46-ba82-ab45-b4da-779d840cb050
Ancestors: FFI-Kernel-mt.168

Fix #copy in ExternalData to always copy. Provide #assureLocal for that other scenario.

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

Item was added:
+ ----- Method: ExternalData>>assureLocal (in category 'copying') -----
+ assureLocal
+
+ ^ handle isExternalAddress
+ ifTrue: [self copy]
+ ifFalse: [self]!

Item was changed:
  ----- Method: ExternalData>>ffiEqual: (in category 'comparing') -----
  ffiEqual: other
  "WARNING!! EXPENSIVE!! We can compare bytes if the types are compatible."
 
  (self ffiIdentical: other) ifTrue: [^ true].
 
  self flag: #todo. "mt: Which types are actually compatible? :-)"
  self externalType asNonPointerType = other externalType asNonPointerType ifFalse: [^ false].
 
  self flag: #todo. "mt: Follow pointers? Detect cycles? Hmmm... :-) See #free as inspiration."
+ ^ self assureLocal getHandle ffiEqual: other assureLocal getHandle!
- ^ self copy getHandle ffiEqual: other copy getHandle!

Item was changed:
  ----- Method: ExternalData>>ffiEqualityHash (in category 'comparing') -----
  ffiEqualityHash
  "WARNING!! EXPENSIVE!!"
 
  self ffiIdentityHash
+ bitXor: self assureLocal getHandle hash!
- bitXor: self copy getHandle hash!

Item was changed:
  ----- Method: ExternalData>>postCopy (in category 'copying') -----
  postCopy
+ "Reads all bytes from external into object memory or duplicate the array within object memory. Note that this does not flatten all bytes into a single array by repeatedly calling it."
- "Reads all bytes into object memory. Note that this does not flatten all bytes into a single array by repeatedly calling it. Also note that this does only work for an external address. It does not copy what's already in object memory."
 
  | bytes |
- handle isExternalAddress ifFalse: [^ self].
  self sizeCheck.
 
  bytes := ByteArray new: self byteSize.
  1 to: bytes size do: [:index |
  bytes basicAt: index put: (handle unsignedByteAt: index)].
 
  handle := bytes.
  self setType: type. "Change container type from pointer to non-pointer type."!