>From 842ba22c7bdb2c80b720266de461ede9280fa2fc Mon Sep 17 00:00:00 2001 From: Gwenael Casaccio Date: Tue, 15 Apr 2014 21:17:41 +0200 Subject: [PATCH 3/3] Fix namespace for ProcessBeingTerminated 2014-04-15 Gwenael Casaccio * kernel/Semaphore.st: Use the correct name for ProcessBeingTerminated exception. --- ChangeLog | 5 +++++ kernel/Semaphore.st | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1bf20f6..16bdf32 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-04-15 Gwenael Casaccio + + * kernel/Semaphore.st: Use the correct name for ProcessBeingTerminated + exception. + 2014-04-12 Gwenael Casaccio * kernel/ContextPart.st: Add ctxtFlags variable and check if ccall flag diff --git a/kernel/Semaphore.st b/kernel/Semaphore.st index cf8c6a7..7d8a89f 100644 --- a/kernel/Semaphore.st +++ b/kernel/Semaphore.st @@ -75,7 +75,7 @@ I also provide some methods for implementing critical sections.'> thanks to superoperators." c := #(nil). ownedSem := [c := thisContext. self wait] - on: ProcessBeingTerminated + on: SystemExceptions.ProcessBeingTerminated do: [:ex | ownedSem := c at: 1. ex pass]. ownedSem == self ifTrue: [aBlock value]] ensure: [ownedSem == self ifTrue: [self signal]] -- 1.8.3.2