diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-06 08:25:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-06 08:25:18 (GMT) |
commit | 98dbefe2cc97be5b598d5dbf0287a3b332f121ea (patch) | |
tree | d0fa65dc119e5eae60511a7f375677bfd209d60b /generic | |
parent | b74823229102197226f39d91b52b146826567cf4 (diff) | |
download | tcl-98dbefe2cc97be5b598d5dbf0287a3b332f121ea.zip tcl-98dbefe2cc97be5b598d5dbf0287a3b332f121ea.tar.gz tcl-98dbefe2cc97be5b598d5dbf0287a3b332f121ea.tar.bz2 |
Additiona patch/suggestion from Gustaf. This indeed fixes the crash in oo.test. Looks good to me, so only waiting for final feedback from Gustaf and eventually feedback from other people.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclLiteral.c | 7 | ||||
-rw-r--r-- | generic/tclObj.c | 2 |
2 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index c329ed7..6b3560d 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -1163,13 +1163,6 @@ TclVerifyLocalLiteralTable( "TclVerifyLocalLiteralTable", (length>60? 60 : length), bytes, localPtr->refCount); } - if (LookupLiteralEntry((Tcl_Interp *) envPtr->iPtr, - localPtr->objPtr) == NULL) { - bytes = Tcl_GetStringFromObj(localPtr->objPtr, &length); - Tcl_Panic("%s: local literal \"%.*s\" is not global", - "TclVerifyLocalLiteralTable", - (length>60? 60 : length), bytes); - } if (localPtr->objPtr->bytes == NULL) { Tcl_Panic("%s: literal has NULL string rep", "TclVerifyLocalLiteralTable"); diff --git a/generic/tclObj.c b/generic/tclObj.c index 283c8d2..29c8e23 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4220,7 +4220,7 @@ TclSetCmdNameObj( if (objPtr->typePtr == &tclCmdNameType) { resPtr = objPtr->internalRep.twoPtrValue.ptr1; - if (resPtr->cmdPtr == cmdPtr) { + if (resPtr != NULL && resPtr->cmdPtr == cmdPtr) { return; } } |