FFI: FFI-Kernel-mt.73.mcz

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

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

Name: FFI-Kernel-mt.73
Author: mt
Time: 20 May 2020, 7:09:14.260513 pm
UUID: 4756e9cb-e6a2-1d44-85ec-fe4ec7c82f34
Ancestors: FFI-Kernel-mt.72

Refine the print strings for external structure to also indicate pointer types for custom structs.

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

Item was changed:
  ----- Method: ExternalData>>printOn: (in category 'printing') -----
  printOn: stream
 
  super printOn: stream.
+ self printTypeOn: stream.!
-
- stream
- nextPut: $<;
- print: type;
- nextPut: $>.!

Item was added:
+ ----- Method: ExternalData>>printPointerOn: (in category 'printing') -----
+ printPointerOn: stream
+ "Ignore since it is part of the type."!

Item was added:
+ ----- Method: ExternalData>>printTypeOn: (in category 'printing') -----
+ printTypeOn: stream
+
+ stream
+ nextPut: $<;
+ print: type;
+ nextPut: $>.!

Item was added:
+ ----- Method: ExternalStructure>>printNullOn: (in category 'printing') -----
+ printNullOn: stream
+
+ self isNull ifTrue: [
+ stream nextPutAll: '<NULL>'].!

Item was changed:
  ----- Method: ExternalStructure>>printOn: (in category 'printing') -----
  printOn: stream
 
  super printOn: stream.
+
+ self printPointerOn: stream.
+ self printNullOn: stream.!
- self isNull ifTrue: [
- stream nextPutAll: '<NULL>'].!

Item was added:
+ ----- Method: ExternalStructure>>printPointerOn: (in category 'printing') -----
+ printPointerOn: stream
+
+ handle isExternalAddress
+ ifTrue: [stream nextPutAll: '*'].!