diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-05-05 16:53:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-05-05 16:53:56 (GMT) |
| commit | 1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d (patch) | |
| tree | a48fc074188493920528c19d36513ad69a510825 | |
| parent | 428644e1853798dec8416b023b9cfea053574e4b (diff) | |
| download | tcl-1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d.zip tcl-1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d.tar.gz tcl-1fd1d39eedb4da8fa200dfa4e16c7e4da62ed81d.tar.bz2 | |
Tolerate NULL interps more completely.
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | generic/tclListObj.c | 12 |
2 files changed, 9 insertions, 5 deletions
@@ -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); |