diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-20 16:11:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-12-20 16:11:54 (GMT) |
| commit | bb09dba8c07eb42beccc0249f53dc2ca25bb01ed (patch) | |
| tree | f2449613aaff896ff74e8588ce327bf50c5ff851 /generic/tclBasic.c | |
| parent | 4f37c25271446fec640998b963d3e14d5ca4f953 (diff) | |
| download | tcl-bb09dba8c07eb42beccc0249f53dc2ca25bb01ed.zip tcl-bb09dba8c07eb42beccc0249f53dc2ca25bb01ed.tar.gz tcl-bb09dba8c07eb42beccc0249f53dc2ca25bb01ed.tar.bz2 | |
Fix 2 unused arguments with USE_DTRACE
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index f58cec0..2169b9d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8828,10 +8828,12 @@ DTraceObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { + (void)dummy; + (void)interp; + if (TCL_DTRACE_TCL_PROBE_ENABLED()) { char *a[10]; int i = 0; - (void)dummy; while (i++ < 10) { a[i-1] = i < objc ? TclGetString(objv[i]) : NULL; |