summaryrefslogtreecommitdiffstats
path: root/generic/tclTrace.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-02-24 10:45:04 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-02-24 10:45:04 (GMT)
commit8282fe60d8a51812bfb3ced0032e52c0cc5f81b5 (patch)
tree484964998d32be03482d6e1078a27f1f3187f409 /generic/tclTrace.c
parent9f6e608ac5b1a6b4bb9382774a7ae4e263533dde (diff)
downloadtcl-8282fe60d8a51812bfb3ced0032e52c0cc5f81b5.zip
tcl-8282fe60d8a51812bfb3ced0032e52c0cc5f81b5.tar.gz
tcl-8282fe60d8a51812bfb3ced0032e52c0cc5f81b5.tar.bz2
More tidying up (whitespace, spelling, useless parentheses, useless casts)
Diffstat (limited to 'generic/tclTrace.c')
-rw-r--r--generic/tclTrace.c7
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index ca1f736..6f1379f 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.57 2009/10/21 13:36:23 dkf Exp $
+ * RCS: @(#) $Id: tclTrace.c,v 1.58 2010/02/24 10:45:04 dkf Exp $
*/
#include "tclInt.h"
@@ -843,6 +843,7 @@ TraceVariableObjCmd(
int commandLength, index;
const char *name, *command;
size_t length;
+ ClientData clientData;
enum traceOptions { TRACE_ADD, TRACE_INFO, TRACE_REMOVE };
static const char *const opStrings[] = {
"array", "read", "unset", "write", NULL
@@ -903,6 +904,7 @@ TraceVariableObjCmd(
CombinedTraceVarInfo *ctvarPtr = (CombinedTraceVarInfo *)
ckalloc((unsigned) (sizeof(CombinedTraceVarInfo)
+ length + 1 - sizeof(ctvarPtr->traceCmdInfo.command)));
+
ctvarPtr->traceCmdInfo.flags = flags;
if (objv[0] == NULL) {
ctvarPtr->traceCmdInfo.flags |= TCL_TRACE_OLD_STYLE;
@@ -926,8 +928,6 @@ TraceVariableObjCmd(
* first one that matches.
*/
- ClientData clientData;
-
name = Tcl_GetString(objv[3]);
FOREACH_VAR_TRACE(interp, name, clientData) {
TraceVarInfo *tvarPtr = clientData;
@@ -946,7 +946,6 @@ TraceVariableObjCmd(
break;
}
case TRACE_INFO: {
- ClientData clientData;
Tcl_Obj *resultListPtr;
if (objc != 4) {