summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclBasic.c4
-rw-r--r--generic/tclProc.c4
3 files changed, 12 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 6d3ee7c..ad5eef5 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 1c72e1b..acecba6 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -3234,6 +3234,7 @@ TclEvalObjvInternal(interp, objc, objv, command, length, flags)
break;
}
+#ifdef USE_DTRACE
if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
char *a[10];
int i = 0;
@@ -3244,6 +3245,7 @@ TclEvalObjvInternal(interp, objc, objv, command, length, flags)
TCL_DTRACE_CMD_ARGS(a[0], a[1], a[2], a[3], a[4], a[5], a[6], a[7],
a[8], a[9]);
}
+#endif /* USE_DTRACE */
/*
* Finally, invoke the command's Tcl_ObjCmdProc.
@@ -3306,12 +3308,14 @@ TclEvalObjvInternal(interp, objc, objv, command, length, flags)
(void) Tcl_GetObjResult(interp);
}
+#ifdef USE_DTRACE
if (TCL_DTRACE_CMD_RESULT_ENABLED()) {
Tcl_Obj *r;
r = Tcl_GetObjResult(interp);
TCL_DTRACE_CMD_RESULT(TclGetString(objv[0]), code, TclGetString(r), r);
}
+#endif /* USE_DTRACE */
done:
iPtr->varFramePtr = savedVarFramePtr;
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 09c0322..be35bab 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -1196,6 +1196,7 @@ TclObjInterpProc(clientData, interp, objc, objv)
}
#endif /*TCL_COMPILE_DEBUG*/
+#ifdef USE_DTRACE
if (TCL_DTRACE_PROC_ARGS_ENABLED()) {
char *a[10];
int i = 0;
@@ -1206,6 +1207,7 @@ TclObjInterpProc(clientData, interp, objc, objv)
TCL_DTRACE_PROC_ARGS(a[0], a[1], a[2], a[3], a[4], a[5], a[6], a[7],
a[8], a[9]);
}
+#endif /* USE_DTRACE */
iPtr->returnCode = TCL_OK;
procPtr->refCount++;
@@ -1234,6 +1236,7 @@ TclObjInterpProc(clientData, interp, objc, objv)
result = ProcessProcResultCode(interp, procName, nameLen, result);
}
+#ifdef USE_DTRACE
if (TCL_DTRACE_PROC_RESULT_ENABLED()) {
Tcl_Obj *r;
@@ -1241,6 +1244,7 @@ TclObjInterpProc(clientData, interp, objc, objv)
TCL_DTRACE_PROC_RESULT(TclGetString(objv[0]), result,
TclGetString(r), r);
}
+#endif /* USE_DTRACE */
/*
* Pop and free the call frame for this procedure invocation, then