diff options
author | das <das@noemail.net> | 2008-08-14 10:49:08 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-08-14 10:49:08 (GMT) |
commit | f495ce1896e116225e3efdd6c104f87851143116 (patch) | |
tree | 054a3dc2e13fb91a02f203c258a81eda66971eee /generic/tclCompile.h | |
parent | 31dc78a6a982097260c702b3996153decc3e9c18 (diff) | |
download | tcl-f495ce1896e116225e3efdd6c104f87851143116.zip tcl-f495ce1896e116225e3efdd6c104f87851143116.tar.gz tcl-f495ce1896e116225e3efdd6c104f87851143116.tar.bz2 |
fix unused variable warnings when USE_DTRACE is not defined
FossilOrigin-Name: 435d4b4c4038af393d5beca0fd4457ec2639c766
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index f859e11..044a978 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.104 2008/08/14 02:16:36 das Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.105 2008/08/14 10:49:08 das Exp $ */ #ifndef _TCLCOMPILATION @@ -1301,9 +1301,9 @@ MODULE_SCOPE void TclDTraceInfo(Tcl_Obj *info, char **args, int *argsi); #define TCL_DTRACE_PROC_RESULT_ENABLED() 0 #define TCL_DTRACE_PROC_ARGS_ENABLED() 0 #define TCL_DTRACE_PROC_INFO_ENABLED() 0 -#define TCL_DTRACE_PROC_ENTRY(a0, a1, a2) {} -#define TCL_DTRACE_PROC_RETURN(a0, a1) {} -#define TCL_DTRACE_PROC_RESULT(a0, a1, a2, a3) {} +#define TCL_DTRACE_PROC_ENTRY(a0, a1, a2) {if (a0) {}} +#define TCL_DTRACE_PROC_RETURN(a0, a1) {if (a0) {}} +#define TCL_DTRACE_PROC_RESULT(a0, a1, a2, a3) {if (a0) {}; if (a3) {}} #define TCL_DTRACE_PROC_ARGS(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9) {} #define TCL_DTRACE_PROC_INFO(a0, a1, a2, a3, a4, a5, a6, a7) {} |