diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-04-17 14:40:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-04-17 14:40:32 (GMT) |
| commit | 3943396d1d7a64194d6babf11bbf7db8ab76be16 (patch) | |
| tree | 1631c2d808475c440cd34a318176dae7e6c68770 | |
| parent | 3b2f0df2b4603b0565ad30e1e15ae9f0bfe3cb5f (diff) | |
| download | tcl-3943396d1d7a64194d6babf11bbf7db8ab76be16.zip tcl-3943396d1d7a64194d6babf11bbf7db8ab76be16.tar.gz tcl-3943396d1d7a64194d6babf11bbf7db8ab76be16.tar.bz2 | |
Always cast arg to ckfree to char*, not VOID*
| -rw-r--r-- | generic/tclExecute.c | 6 |
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) { |