From 272b2008ad7da7b6bd2c559142d78d06f0030a67 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 22 Aug 2013 20:34:30 +0000
Subject: compiler warning

---
 generic/tclBasic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 5371f31..fc449cc 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -4220,9 +4220,9 @@ Dispatch(
     ClientData clientData = data[1];
     int objc = PTR2INT(data[2]);
     Tcl_Obj **objv = data[3];
+#ifdef USE_DTRACE
     Interp *iPtr = (Interp *) interp;
 
-#ifdef USE_DTRACE
     if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
 	const char *a[10];
 	int i = 0;
-- 
cgit v0.12