diff options
author | dgp <dgp@noemail.net> | 2011-05-05 16:53:56 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-05-05 16:53:56 (GMT) |
commit | 67aaecfdf85a0f3768cfbfbd69b06899183ab09c (patch) | |
tree | a48fc074188493920528c19d36513ad69a510825 /generic | |
parent | 0e167452101823c7961bcd4db968b57723742936 (diff) | |
download | tcl-67aaecfdf85a0f3768cfbfbd69b06899183ab09c.zip tcl-67aaecfdf85a0f3768cfbfbd69b06899183ab09c.tar.gz tcl-67aaecfdf85a0f3768cfbfbd69b06899183ab09c.tar.bz2 |
Tolerate NULL interps more completely.
FossilOrigin-Name: e7adc1255dc3eb70d35921783bdbb7957deadff6
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclListObj.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index a9c986b..c4061b3 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -1400,8 +1400,10 @@ TclLsetFlat( if (index < 0 || index >= elemCount) { /* ...the index points outside the sublist. */ - Tcl_SetObjResult(interp, - Tcl_NewStringObj("list index out of range", -1)); + if (interp != NULL) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("list index out of range", -1)); + } break; } @@ -1557,8 +1559,10 @@ TclListObjSetElement( (void) TclGetStringFromObj(listPtr, &length); } if (!length) { - Tcl_SetObjResult(interp, - Tcl_NewStringObj("list index out of range", -1)); + if (interp != NULL) { + Tcl_SetObjResult(interp, + Tcl_NewStringObj("list index out of range", -1)); + } return TCL_ERROR; } result = SetListFromAny(interp, listPtr); |