diff options
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 7 |
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) { |