Marcel Taeumel uploaded a new version of FFI-Pools to project FFI:
http://source.squeak.org/FFI/FFI-Pools-mt.20.mcz==================== Summary ====================
Name: FFI-Pools-mt.20
Author: mt
Time: 2 June 2020, 8:26:38.439853 pm
UUID: 1aa86859-8c1f-9640-aad7-d5799f9e226c
Ancestors: FFI-Pools-mt.19
Due to the tricky load order of "FFI-Pools" before "FFI-Kernel" because of FFIConstants, lazily trigger the init code for that extra information about atomic types.
=============== Diff against FFI-Pools-mt.19 ===============
Item was removed:
- ----- Method: ExternalPoolReadWriter class>>initialize (in category 'class initialization') -----
- initialize
-
- "self initializeAtomicTypesExtra."!
Item was changed:
----- Method: ExternalPoolReadWriter>>cFormatPlaceholderFor: (in category 'writing - support') -----
cFormatPlaceholderFor: externalType
"Limit access to printf format placeholders to instances of pool read-writers only."
+ AtomicCFormatPlaceholders ifNil: [self class initializeAtomicTypesExtra].
+
^ externalType isPointerType
ifTrue: ['%p']
ifFalse: [
AtomicCFormatPlaceholders
at: externalType atomicType
ifAbsent: [nil]]!
Item was changed:
----- Method: ExternalPoolReadWriter>>cTypeNameFor: (in category 'writing - support') -----
cTypeNameFor: externalType
"Limit access to C type names to instances of pool read-writers only."
| cTypeName |
+ AtomicCTypeNames ifNil: [self class initializeAtomicTypesExtra].
+
cTypeName := AtomicCTypeNames
at: externalType atomicType
ifAbsent: [nil].
^ externalType isPointerType
ifTrue: [cTypeName, ' *']
ifFalse: [cTypeName]!