summaryrefslogtreecommitdiffstats
path: root/generic/tclProc.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-03-08 22:14:44 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-03-08 22:14:44 (GMT)
commitb839cc7b23cc44e72ee1a857ba26249b6b2370fb (patch)
tree57ada047e313cead9c8e3e9257629efb0f587d2d /generic/tclProc.c
parentfbbea57c8db5cba0fe0ebe3d067ed136454343b5 (diff)
parentd76f731864215bbd4f01222a06ca7ff03af57c19 (diff)
downloadtcl-b839cc7b23cc44e72ee1a857ba26249b6b2370fb.zip
tcl-b839cc7b23cc44e72ee1a857ba26249b6b2370fb.tar.gz
tcl-b839cc7b23cc44e72ee1a857ba26249b6b2370fb.tar.bz2
Fix gcc warnings: variable set but not used
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r--generic/tclProc.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 518ddb5..978c5f7 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -1712,6 +1712,7 @@ TclObjInterpProcCore(
}
#endif /*TCL_COMPILE_DEBUG*/
+#ifdef USE_DTRACE
if (TCL_DTRACE_PROC_ARGS_ENABLED()) {
char *a[10];
int i = 0;
@@ -1732,6 +1733,7 @@ TclObjInterpProcCore(
TCL_DTRACE_PROC_INFO(a[0], a[1], a[2], a[3], i[0], i[1]);
TclDecrRefCount(info);
}
+#endif /* USE_DTRACE */
/*
* Invoke the commands in the procedure's body.
@@ -1747,6 +1749,7 @@ TclObjInterpProcCore(
procPtr->bodyPtr->internalRep.otherValuePtr;
codePtr->refCount++;
+#ifdef USE_DTRACE
if (TCL_DTRACE_PROC_ENTRY_ENABLED()) {
int l;
@@ -1755,6 +1758,7 @@ TclObjInterpProcCore(
iPtr->varFramePtr->objc - l,
(Tcl_Obj **)(iPtr->varFramePtr->objv + l));
}
+#endif /* USE_DTRACE */
result = TclExecuteByteCode(interp, codePtr);
if (TCL_DTRACE_PROC_RETURN_ENABLED()) {
TCL_DTRACE_PROC_RETURN(TclGetString(procNameObj), result);
@@ -1825,6 +1829,7 @@ TclObjInterpProcCore(
(void) 0; /* do nothing */
}
+#ifdef USE_DTRACE
if (TCL_DTRACE_PROC_RESULT_ENABLED()) {
Tcl_Obj *r;
@@ -1832,6 +1837,7 @@ TclObjInterpProcCore(
TCL_DTRACE_PROC_RESULT(TclGetString(procNameObj), result,
TclGetString(r), r);
}
+#endif /* USE_DTRACE */
procDone:
/*