From cb2858af09521a572ba8d222f1d1b21324ab6f44 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 4 Mar 2008 16:59:42 +0100
Subject: Acquire the exception lock when returning from a callback.

darcs-hash:f644e3e364ebb7bd2c81aa2c7f83a4887ac644d8
---
 Objective-C/libobjcl.m | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index b3fe789..d32a37c 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -775,6 +775,8 @@ objcl_create_imp (IMP callback,
 void
 objcl_acquire_lock (id lock)
 {
+  TRACE (@"acquire-lock");
+  TRACE (@"  %@", lock);
   [lock lock];
   TRACE (@"Lock %@ acquired.", lock);
 }
@@ -783,6 +785,8 @@ objcl_acquire_lock (id lock)
 void
 objcl_release_lock (id lock)
 {
+  TRACE (@"release-lock");
+  TRACE (@"  %@", lock);
   [lock unlock];
   TRACE (@"Lock %@ released.", lock);
 }
-- 
cgit v1.2.3