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

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

Name: FFI-Pools-mt.16
Author: mt
Time: 28 May 2020, 9:20:47.243479 am
UUID: ff3070e5-d241-6346-95a1-3b809f56a4bd
Ancestors: FFI-Pools-mt.15

Moves interpretation of <ffiExternalSharedPool> pragma to the definition class where all other pragmas are interpreted and documented already.

Adds simple way to explore pool definitions by calling the method that holds the definition pragmas:

MyExternalPool class >> #win32ExamplePool
  <ffiExternalSharedPool>
  <ffiPlatformName: 'Win32'>
  ^ self poolDefinition

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

Item was changed:
  ----- Method: FFIExternalSharedPool class>>definitions (in category 'accessing') -----
  definitions
- 	| definitions |
  
+ 	| definitions |
  	definitions := OrderedCollection with: self defaultDefinition.
  
  	self class methodsDo: [:each |
+ 		(self definitionClass fromMethod: each) ifNotNil: [:poolDefinition |
+ 			definitions add: poolDefinition]].
- 		(each pragmaAt: #ffiExternalSharedPool)
- 			ifNotNil: [
- 				definitions addLast:
- 					(self definitionClass fromMethod: each)]].
  
+ 	^ definitions!
- 	^ definitions asArray.!

Item was added:
+ ----- Method: FFIExternalSharedPool class>>poolDefinition (in category 'accessing') -----
+ poolDefinition
+ 	"For convenience. Answer the result of this call in definition methods to support debugging."
+ 	
+ 	thisContext sender method ifNotNil: [:poolDefinitionMethod |
+ 		(self definitionClass fromMethod: poolDefinitionMethod)
+ 			ifNotNil: [:poolDefinition | ^ poolDefinition]].
+ 	
+ 	self error: 'Sender is no valid pool definition!!'.!

Item was changed:
  ----- Method: FFIExternalSharedPoolDefinition class>>fromMethod: (in category 'instance creation') -----
  fromMethod: aCompiledMethod
  	| definition |
  
+ 	(aCompiledMethod pragmaAt: #ffiExternalSharedPool)
+ 		ifNil: [^ nil].
+ 		
  	definition := self name: aCompiledMethod selector.
  
  	"Squeak does not have #pragmasDo:"
  	aCompiledMethod pragmas do: [:each |
  		(self whichCategoryIncludesSelector: each keyword) == #'pragmas'
  			ifTrue: [
  				definition
  					perform: each keyword
  					withArguments: each arguments]].
  
  	^ definition.!