summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2015-07-05 16:52:27 (GMT)
committerdgp <dgp@users.sourceforge.net>2015-07-05 16:52:27 (GMT)
commit28fa5866e5d7d7cfd06c0b3dbab330672c05b992 (patch)
treee0e701e0e09bc7d877abc181835d1d38fd4b4670 /generic
parent39d7c094ed9109b6264d265808b69f5f99841693 (diff)
downloadtcl-28fa5866e5d7d7cfd06c0b3dbab330672c05b992.zip
tcl-28fa5866e5d7d7cfd06c0b3dbab330672c05b992.tar.gz
tcl-28fa5866e5d7d7cfd06c0b3dbab330672c05b992.tar.bz2
[a0ece9d6d4] The cmd field of a CmdFrame when non-NULL must point within the
string of the corresponding codePtr->source.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 38f11f2..d12a25c 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -9904,7 +9904,6 @@ TclGetSourceFromFrame(
cfPtr->cmdObj = Tcl_NewStringObj(cfPtr->cmd, cfPtr->len);
} else {
cfPtr->cmdObj = Tcl_NewListObj(objc, objv);
- cfPtr->cmd = Tcl_GetStringFromObj(cfPtr->cmdObj, &cfPtr->len);
}
Tcl_IncrRefCount(cfPtr->cmdObj);
}