FFI: FFI-Kernel-mt.125.mcz

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

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

Name: FFI-Kernel-mt.125
Author: mt
Time: 3 May 2021, 1:52:04.145757 pm
UUID: 831195f6-e82e-1f4a-9a73-70b0e085459e
Ancestors: FFI-Kernel-mt.124

Fixes a regression in the print-string for external functions. Adds #typeName to reduce some code duplication.

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

Item was changed:
  ----- Method: ExternalFunction>>printOn: (in category 'printing') -----
  printOn: aStream
  aStream
  nextPut:$<;
  nextPutAll: self callingConventionString; nextPutAll:': '.
  { 'threaded' } with: { FFICallFlagThreaded } do:
  [:modifier :flag|
  (flags anyMask: flag) ifTrue:
  [aStream nextPutAll: modifier; space]].
+ aStream nextPutAll: argTypes first typeName; space.
- aStream print: argTypes first; space.
  self name == nil
  ifTrue:[aStream nextPutAll:'(*) ']
  ifFalse:[aStream print: self name asString; space].
  aStream nextPut:$(.
  2 to: argTypes size do:[:i|
+ aStream nextPutAll: (argTypes at: i) typeName.
- aStream print: (argTypes at: i).
  i < argTypes size ifTrue:[aStream space]].
  aStream nextPut:$).
  self module == nil ifFalse:[
  aStream space; nextPutAll:'module: '; print: self module asString.
  ].
  self errorCodeName == nil ifFalse:[
  aStream space; nextPutAll:'error: '; nextPutAll: self errorCodeName.
  ].
  aStream nextPut:$>!

Item was changed:
  ----- Method: ExternalStructureType>>printOn: (in category 'printing') -----
  printOn: aStream
 
  self isTypeAlias ifTrue: [
+ aStream nextPutAll: self typeName.
- aStream nextPutAll: referentClass name.
  aStream
  nextPutAll: '~>';
  print: self originalType.
  self isEmpty
  ifTrue: [aStream nextPutAll: ' ???'].
  ^ self].
 
  referentClass == nil
  ifTrue:[aStream nextPutAll: '<unknown struct type>']
  ifFalse:[
  super printOn: aStream.
  self isEmpty
  ifTrue: [aStream nextPutAll: ' { void }']].!

Item was changed:
  ----- Method: ExternalType>>printOn: (in category 'printing') -----
  printOn: aStream
 
+ aStream nextPutAll: self typeName.
- aStream nextPutAll: (referentClass ifNil: [self atomicTypeName] ifNotNil: [referentClass name]).
- self isPointerType ifTrue: [aStream nextPut: $*].
 
  aStream
  space;
  nextPut: $(;
  nextPutAll: self byteSize asString;
  space;
  nextPutAll: self byteAlignment asString;
  nextPut: $).!

Item was added:
+ ----- Method: ExternalType>>typeName (in category 'accessing') -----
+ typeName
+
+ ^ String streamContents: [:stream |
+ stream nextPutAll: (referentClass
+ ifNil: [self atomicTypeName]
+ ifNotNil: [referentClass name]).
+ self isPointerType
+ ifTrue: [stream nextPut: $*]]!