summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-08-14 10:49:39 (GMT)
committerdas <das>2008-08-14 10:49:39 (GMT)
commit9ee70ad9a7f0ed70053101eea7e8d08924f7532b (patch)
tree83f364bffd23a0049ff1283d808b41ee2333c0a0
parentca670c5a70a7fe17949373baed14393af713d227 (diff)
downloadtcl-9ee70ad9a7f0ed70053101eea7e8d08924f7532b.zip
tcl-9ee70ad9a7f0ed70053101eea7e8d08924f7532b.tar.gz
tcl-9ee70ad9a7f0ed70053101eea7e8d08924f7532b.tar.bz2
remove overlooked old TCL_DTRACE_PROC_ENTRY
-rw-r--r--generic/tclProc.c10
1 files changed, 1 insertions, 9 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 8d1c9d7..d763fde 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclProc.c,v 1.160 2008/08/14 02:11:51 das Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.161 2008/08/14 10:49:39 das Exp $
*/
#include "tclInt.h"
@@ -1786,14 +1786,6 @@ TclNRInterpProcCore(
procPtr->refCount++;
codePtr = procPtr->bodyPtr->internalRep.otherValuePtr;
- if (TCL_DTRACE_PROC_ENTRY_ENABLED()) {
- int l;
-
- l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 2 : 1;
- TCL_DTRACE_PROC_ENTRY(TclGetString(procNameObj),
- iPtr->varFramePtr->objc - l,
- (Tcl_Obj **)(iPtr->varFramePtr->objv + l));
- }
TclNRAddCallback(interp, InterpProcNR2, procNameObj, errorProc,
NULL, NULL);