making pool to initialize lazy (to allow updates)

pharo-project · Nov 6, 2019 · 4274024 · 4274024
1 parent 745caff
commit 4274024
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/ThreadedFFI/TFRunner.class.st b/src/ThreadedFFI/TFRunner.class.st
@@ -33,9 +33,7 @@ TFRunner >> doInitialize [
 
 	callbackInvocationStack := Stack new.
 	stackProtect := Semaphore forMutualExclusion.
-	semaphorePool :=  TFPool 
-		newProvider: [ TFExternalSemaphore new ] 
-		size: self semaphorePoolSize
+	semaphorePool :=  nil
 ]
 
 { #category : #executing }
@@ -172,7 +170,10 @@ TFRunner >> returnCallback: aCallbackInvocation [
 { #category : #private }
 TFRunner >> semaphorePool [
 
-	^ semaphorePool
+	^ semaphorePool ifNil: [ 
+		semaphorePool := TFPool
+			newProvider: [ TFExternalSemaphore new ] 
+			size: self semaphorePoolSize ]
 ]
 
 { #category : #private }