diff options
| author | das <das> | 2008-08-14 10:32:19 (GMT) |
|---|---|---|
| committer | das <das> | 2008-08-14 10:32:19 (GMT) |
| commit | 1dd5e8ff9790f2b3087139bc870d3c3b4477609b (patch) | |
| tree | 8e044093785d8bd9628e2bb85035d5b86f8d9be8 | |
| parent | 94b68024308ffd3abbb8c2b33f1578eea15f7d07 (diff) | |
| download | tcl-1dd5e8ff9790f2b3087139bc870d3c3b4477609b.zip tcl-1dd5e8ff9790f2b3087139bc870d3c3b4477609b.tar.gz tcl-1dd5e8ff9790f2b3087139bc870d3c3b4477609b.tar.bz2 | |
#define DTraceCmdReturn when USE_DTRACE is not defined
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 96857ac..8f6c1af 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.353 2008/08/14 02:11:50 das Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.354 2008/08/14 10:32:19 das Exp $ */ #include "tclInt.h" @@ -107,6 +107,8 @@ static int DTraceObjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static int DTraceCmdReturn(ClientData data[], Tcl_Interp *interp, int result); +#else +#define DTraceCmdReturn NULL #endif MODULE_SCOPE const TclStubs * const tclConstStubsPtr; |