summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-04-17 14:40:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-04-17 14:40:32 (GMT)
commit3943396d1d7a64194d6babf11bbf7db8ab76be16 (patch)
tree1631c2d808475c440cd34a318176dae7e6c68770 /generic/tclExecute.c
parent3b2f0df2b4603b0565ad30e1e15ae9f0bfe3cb5f (diff)
downloadtcl-3943396d1d7a64194d6babf11bbf7db8ab76be16.zip
tcl-3943396d1d7a64194d6babf11bbf7db8ab76be16.tar.gz
tcl-3943396d1d7a64194d6babf11bbf7db8ab76be16.tar.bz2
Always cast arg to ckfree to char*, not VOID*
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 4ef4d04..f967b14 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -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: tclExecute.c,v 1.276 2007/04/14 17:35:54 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.277 2007/04/17 14:40:32 dkf Exp $
*/
#include "tclInt.h"
@@ -673,7 +673,7 @@ TclStackFree(
--*stackRefCountPtr;
if (*stackRefCountPtr == (char *) 0) {
- ckfree((VOID *) stackRefCountPtr);
+ ckfree((char *) stackRefCountPtr);
}
}
@@ -1855,7 +1855,7 @@ TclExecuteByteCode(
--*preservedStackRefCountPtr;
if (*preservedStackRefCountPtr == (char *) 0) {
- ckfree((VOID *) preservedStackRefCountPtr);
+ ckfree((char *) preservedStackRefCountPtr);
}
if (result == TCL_OK) {