diff options
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 0a9e47a..bea59a6 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -1985,7 +1985,8 @@ typedef struct { void *clientData; } TraceWrapperInfo; -static int traceWrapperProc( +static int +traceWrapperProc( void *clientData, Tcl_Interp *interp, Tcl_Size level, @@ -2001,7 +2002,9 @@ static int traceWrapperProc( return info->proc(info->clientData, interp, (int)level, command, commandInfo, objc, objv); } -static void traceWrapperDelProc(void *clientData) +static void +traceWrapperDelProc( + void *clientData) { TraceWrapperInfo *info = (TraceWrapperInfo *)clientData; clientData = info->clientData; @@ -2396,7 +2399,7 @@ TclCheckArrayTraces( int code = TCL_OK; if (varPtr && (varPtr->flags & VAR_TRACED_ARRAY) - && (TclIsVarArray(varPtr) || TclIsVarUndefined(varPtr))) { + && (TclIsVarArray(varPtr) || TclIsVarUndefined(varPtr))) { Interp *iPtr = (Interp *)interp; code = TclObjCallVarTraces(iPtr, arrayPtr, varPtr, name, NULL, |