From 5921307059d261f04a77cfeb4c0658454884c646 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Sun, 10 Jun 2007 00:08:30 +0000
Subject: fix for ne TclCleanupCommandMacro (doh!)

---
 generic/tclInt.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclInt.h b/generic/tclInt.h
index 0387496..dc0efa7 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInt.h,v 1.314 2007/06/09 20:12:55 msofer Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.315 2007/06/10 00:08:30 msofer Exp $
  */
 
 #ifndef _TCLINT
@@ -3410,7 +3410,7 @@ MODULE_SCOPE void	TclBNInitBignumFromWideUInt(mp_int *bignum,
  */
 
 #define TclCleanupCommandMacro(cmdPtr) \
-    if ((cmdPtr)->refCount <= 0) { \
+    if (--(cmdPtr)->refCount <= 0) { \
 	ckfree((char *) (cmdPtr));\
     }
 
-- 
cgit v0.12