From bb09dba8c07eb42beccc0249f53dc2ca25bb01ed Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 20 Dec 2019 16:11:54 +0000
Subject: Fix 2 unused arguments with USE_DTRACE

---
 generic/tclBasic.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
-- 
cgit v0.12