FFI: FFI-Pools-mt.24.mcz

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

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

Name: FFI-Pools-mt.24
Author: mt
Time: 12 June 2020, 7:45:06.896226 pm
UUID: 2ab6b122-4784-e946-9e91-938ca2b01957
Ancestors: FFI-Pools-mt.23

Complements FI-Kernel-mt.105

=============== Diff against FFI-Pools-mt.23 ===============

Item was changed:
  ----- Method: ExternalPoolDefinition>>ffiVariable:type:convertTo: (in category 'pragmas') -----
  ffiVariable: aVariableName type: aVariableTypeName convertTo: aClassName
 
  | externalType targetClassName targetClass |
  "0) Skip variables with nil type."
  aVariableTypeName ifNil: [
  ^ self variablesAndTypesAt: aVariableName put: nil].
 
  "1) Look up external type from type name."
  targetClassName := aClassName.
+ externalType := (ExternalType typeNamed: aVariableTypeName)
- externalType := (ExternalType atomicTypeNamed: aVariableTypeName)
  ifNil: [ "Backwards compatiblility only. Try to not write class names as <... type: ...>."
  targetClassName := aVariableTypeName.
  self externalTypeForClassName: aVariableTypeName].
 
  "2) Look up class in current environment."
  targetClass := (self environment classNamed: targetClassName) ifNil: [
  ExternalPoolError signal:
  'Cannot convert to ', aClassName, ' from C type; ',
  'no matching Smalltalk class found'].
 
  "3) Try to specialize conversion class."
  (externalType = ExternalType float or: [externalType = ExternalType double])
  ifTrue: [(Float includesBehavior: targetClass) ifTrue: [targetClass := Float]].
  (externalType = ExternalType char asPointerType)
  ifTrue: [(String includesBehavior: targetClass) ifTrue: [targetClass := String]].
 
  "4) Store the resulting type spec for pool read-writers to use."
  self
  variablesAndTypesAt: aVariableName
  put: externalType -> targetClass.!