diff options
| author | das <das> | 2008-08-14 10:49:08 (GMT) |
|---|---|---|
| committer | das <das> | 2008-08-14 10:49:08 (GMT) |
| commit | ca670c5a70a7fe17949373baed14393af713d227 (patch) | |
| tree | 054a3dc2e13fb91a02f203c258a81eda66971eee | |
| parent | 1dd5e8ff9790f2b3087139bc870d3c3b4477609b (diff) | |
| download | tcl-ca670c5a70a7fe17949373baed14393af713d227.zip tcl-ca670c5a70a7fe17949373baed14393af713d227.tar.gz tcl-ca670c5a70a7fe17949373baed14393af713d227.tar.bz2 | |
fix unused variable warnings when USE_DTRACE is not defined
| -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) {} |