diff options
author | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-03-08 21:40:36 (GMT) |
---|---|---|
committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-03-08 21:40:36 (GMT) |
commit | 59d4f6ecbed73e49a930f48edd80521369fab3e1 (patch) | |
tree | fb5c0a4cb66bfd93a5567d75ef6a7d81f1b61188 /generic/tclProc.c | |
parent | b5c5609376c2224ddb7afb65245d6c2897afcedc (diff) | |
download | tcl-59d4f6ecbed73e49a930f48edd80521369fab3e1.zip tcl-59d4f6ecbed73e49a930f48edd80521369fab3e1.tar.gz tcl-59d4f6ecbed73e49a930f48edd80521369fab3e1.tar.bz2 |
Fix gcc warnings: variable set but not used
FossilOrigin-Name: 2da8478b6177dee8271c5d42dc75ecb64b3a0f0d
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 4 insertions, 0 deletions
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 |