diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-12 21:13:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-12 21:13:12 (GMT) |
| commit | b8d59146476a0fb99360874d0fb8bec5b3214e42 (patch) | |
| tree | 824c73f990cb390d31b0f960dd6b9a145517fc9e /generic/tclTrace.c | |
| parent | 1a567dbf84dd441c71e4fe4f598d21a291cda91b (diff) | |
| parent | 6fb4e398d601951ffbc80a9156685beec71ebe2e (diff) | |
| download | tcl-b8d59146476a0fb99360874d0fb8bec5b3214e42.zip tcl-b8d59146476a0fb99360874d0fb8bec5b3214e42.tar.gz tcl-b8d59146476a0fb99360874d0fb8bec5b3214e42.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTrace.c')
| -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 39ead67..aed3c2e 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -159,8 +159,8 @@ typedef struct { #define FOREACH_COMMAND_TRACE(interp, name, clientData) \ (clientData) = NULL; \ - while ((clientData = Tcl_CommandTraceInfo(interp, name, 0, \ - TraceCommandProc, clientData)) != NULL) + while (((clientData) = Tcl_CommandTraceInfo((interp), (name), 0, \ + TraceCommandProc, (clientData))) != NULL) /* *---------------------------------------------------------------------- |