diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-29 17:57:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-29 17:57:28 (GMT) |
| commit | 67857c0b6ef1d96293f412a3908f7076afecb8d6 (patch) | |
| tree | 050f7582a6ff9dda231f51d273127de8043194f3 /generic/tclTrace.c | |
| parent | 3cd9927e9bf6f937e8cd932675df66c01011c8ed (diff) | |
| download | tcl-67857c0b6ef1d96293f412a3908f7076afecb8d6.zip tcl-67857c0b6ef1d96293f412a3908f7076afecb8d6.tar.gz tcl-67857c0b6ef1d96293f412a3908f7076afecb8d6.tar.bz2 | |
Minor code cleanup: More use of size_t where possible, and elimination of unneeded type-casts.
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 7932b50..2bf39ed 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -468,7 +468,7 @@ TraceExecutionObjCmd( } } command = TclGetStringFromObj(objv[5], &commandLength); - length = (size_t) commandLength; + length = commandLength; if ((enum traceOptions) optionIndex == TRACE_ADD) { TraceCommandInfo *tcmdPtr = Tcl_Alloc( TclOffset(TraceCommandInfo, command) + 1 + length); @@ -522,7 +522,7 @@ TraceExecutionObjCmd( && ((tcmdPtr->flags & (TCL_TRACE_ANY_EXEC | TCL_TRACE_RENAME | TCL_TRACE_DELETE)) == flags) && (strncmp(command, tcmdPtr->command, - (size_t) length) == 0)) { + length) == 0)) { flags |= TCL_TRACE_DELETE; if (flags & (TCL_TRACE_ENTER_DURING_EXEC | TCL_TRACE_LEAVE_DURING_EXEC)) { @@ -705,7 +705,7 @@ TraceCommandObjCmd( } command = TclGetStringFromObj(objv[5], &commandLength); - length = (size_t) commandLength; + length = commandLength; if ((enum traceOptions) optionIndex == TRACE_ADD) { TraceCommandInfo *tcmdPtr = Tcl_Alloc( TclOffset(TraceCommandInfo, command) + 1 + length); @@ -747,7 +747,7 @@ TraceCommandObjCmd( if ((tcmdPtr->length == length) && (tcmdPtr->flags == flags) && (strncmp(command, tcmdPtr->command, - (size_t) length) == 0)) { + length) == 0)) { Tcl_UntraceCommand(interp, name, flags | TCL_TRACE_DELETE, TraceCommandProc, clientData); tcmdPtr->flags |= TCL_TRACE_DESTROYED; @@ -908,7 +908,7 @@ TraceVariableObjCmd( } } command = TclGetStringFromObj(objv[5], &commandLength); - length = (size_t) commandLength; + length = commandLength; if ((enum traceOptions) optionIndex == TRACE_ADD) { CombinedTraceVarInfo *ctvarPtr = Tcl_Alloc( TclOffset(CombinedTraceVarInfo, traceCmdInfo.command) @@ -950,7 +950,7 @@ TraceVariableObjCmd( #endif )==flags) && (strncmp(command, tvarPtr->command, - (size_t) length) == 0)) { + length) == 0)) { Tcl_UntraceVar2(interp, name, NULL, flags | TCL_TRACE_UNSETS | TCL_TRACE_RESULT_OBJECT, TraceVarProc, clientData); |