diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-10-21 13:36:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-10-21 13:36:22 (GMT) |
| commit | 206803edd2a7c10a2b1d5413762aa326169a39cb (patch) | |
| tree | 835be8f4e383ebf1ef5233651b2f259f07fe4611 /generic | |
| parent | 259d383e8d57a792f15ecc31734381dc6216b0cc (diff) | |
| download | tcl-206803edd2a7c10a2b1d5413762aa326169a39cb.zip tcl-206803edd2a7c10a2b1d5413762aa326169a39cb.tar.gz tcl-206803edd2a7c10a2b1d5413762aa326169a39cb.tar.bz2 | |
Fix [Bug 2881259].
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclTrace.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index e35b7a3..ca1f736 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTrace.c,v 1.56 2009/10/17 22:24:38 dkf Exp $ + * RCS: @(#) $Id: tclTrace.c,v 1.57 2009/10/21 13:36:23 dkf Exp $ */ #include "tclInt.h" @@ -2258,7 +2258,7 @@ StringTraceProc( data->proc(data->clientData, interp, level, (char *) command, cmdPtr->proc, cmdPtr->clientData, objc, argv); - TclStackFree(interp, argv); + TclStackFree(interp, (void *) argv); return TCL_OK; } |