summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-05-05 16:53:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-05-05 16:53:56 (GMT)
commit1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d (patch)
treea48fc074188493920528c19d36513ad69a510825
parent428644e1853798dec8416b023b9cfea053574e4b (diff)
downloadtcl-1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d.zip
tcl-1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d.tar.gz
tcl-1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d.tar.bz2
Tolerate NULL interps more completely.
-rw-r--r--ChangeLog2
-rw-r--r--generic/tclListObj.c12
2 files changed, 9 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index 6ace69a..3371aa7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
2011-05-05 Don Porter <dgp@users.sourceforge.net>
* generic/tclListObj.c: Stop generating string rep of dict when
- converting to list.
+ converting to list. Tolerate NULL interps more completely.
2011-05-03 Don Porter <dgp@users.sourceforge.net>
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);