summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-03-08 22:25:00 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-03-08 22:25:00 (GMT)
commitc3c79c2377af5c203948885e9b1d4a94fe900ec0 (patch)
tree71658fca7a5795c39bdb476317fbb3fdd53a14fc
parenta796a0432c1e10e68ad4b927b2066e58b700b9d5 (diff)
parentd76f731864215bbd4f01222a06ca7ff03af57c19 (diff)
downloadtcl-c3c79c2377af5c203948885e9b1d4a94fe900ec0.zip
tcl-c3c79c2377af5c203948885e9b1d4a94fe900ec0.tar.gz
tcl-c3c79c2377af5c203948885e9b1d4a94fe900ec0.tar.bz2
Fix gcc warnings: variable set but not used
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclBasic.c4
-rw-r--r--generic/tclProc.c2
3 files changed, 10 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 02ba909..0dfbc2d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-08 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * generic/tclBasic.c: Fix gcc warnings: variable set but not used
+
2011-03-06 Don Porter <dgp@users.sourceforge.net>
* generic/tclBasic.c: More replacements of Tcl_UtfBackslash() calls
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 5100dd9..7324611 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -4230,6 +4230,7 @@ TclNREvalObjv(
}
}
+#ifdef USE_DTRACE
if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
const char *a[10];
int i = 0;
@@ -4255,6 +4256,7 @@ TclNREvalObjv(
TCL_DTRACE_CMD_ENTRY(TclGetString(objv[0]), objc - 1,
(Tcl_Obj **)(objv + 1));
}
+#endif /* USE_DTRACE */
/*
* Fix the original callback to point to the now known cmdPtr. Insure that
@@ -8109,6 +8111,7 @@ Tcl_NRCallObjProc(
int result = TCL_OK;
NRE_callback *rootPtr = TOP_CB(interp);
+#ifdef USE_DTRACE
if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
const char *a[10];
int i = 0;
@@ -8135,6 +8138,7 @@ Tcl_NRCallObjProc(
TCL_DTRACE_CMD_ENTRY(TclGetString(objv[0]), objc - 1,
(Tcl_Obj **)(objv + 1));
}
+#endif /* USE_DTRACE */
result = objProc(clientData, interp, objc, objv);
return TclNRRunCallbacks(interp, result, rootPtr);
}
diff --git a/generic/tclProc.c b/generic/tclProc.c
index d33d063..4588988 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -1769,6 +1769,7 @@ TclNRInterpProcCore(
}
#endif /*TCL_COMPILE_DEBUG*/
+#ifdef USE_DTRACE
if (TCL_DTRACE_PROC_ARGS_ENABLED()) {
int l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0;
const char *a[10];
@@ -1798,6 +1799,7 @@ TclNRInterpProcCore(
iPtr->varFramePtr->objc - l - 1,
(Tcl_Obj **)(iPtr->varFramePtr->objv + l + 1));
}
+#endif /* USE_DTRACE */
/*
* Invoke the commands in the procedure's body.