From 1346d27686eee342d81cc069ffc0ca803d4dc7bf Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 20 May 2005 02:50:36 +0000
Subject: 	* macosx/tclMacOSXNotify.c (Tcl_InitNotifier): fixed crashing 
 CFRelease of runLoopSource in Tcl_InitNotifier (reported by Zoran): 
 CFRunLoopAddSource doesn't CFRetain, so can only CFRelease the 
 runLoopSource in Tcl_FinalizeNotifier.

---
 macosx/tclMacOSXNotify.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/macosx/tclMacOSXNotify.c b/macosx/tclMacOSXNotify.c
index 8cc5af2..898d075 100644
--- a/macosx/tclMacOSXNotify.c
+++ b/macosx/tclMacOSXNotify.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacOSXNotify.c,v 1.1.2.3 2005/05/19 13:28:34 das Exp $
+ * RCS: @(#) $Id: tclMacOSXNotify.c,v 1.1.2.4 2005/05/20 02:50:36 das Exp $
  */
 
 #ifdef HAVE_COREFOUNDATION /* Traditional unix select-based notifier
@@ -363,7 +363,7 @@ Tcl_FinalizeNotifier(clientData)
         tsdPtr->runLoop = NULL;
         /* Remove runLoopSource from all CFRunLoops and release it */
         CFRunLoopSourceInvalidate(tsdPtr->runLoopSource);
-        CFRelease(runLoopSource);
+        CFRelease(tsdPtr->runLoopSource);
         tsdPtr->runLoopSource = NULL;
     }
     UNLOCK_NOTIFIER;
-- 
cgit v0.12