diff options
author | griffin <briang42@easystreet.net> | 2023-08-08 17:10:20 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2023-08-08 17:10:20 (GMT) |
commit | 0d106bd729c6d46d0806fd57f2fc799aef68a2aa (patch) | |
tree | 84feb3f1c2360975d942a63fa2bdd2a63afa04ce /generic/tclExecute.c | |
parent | 4eef7b0ff03eacf3a688630bc515eea1f4340ce4 (diff) | |
download | tcl-0d106bd729c6d46d0806fd57f2fc799aef68a2aa.zip tcl-0d106bd729c6d46d0806fd57f2fc799aef68a2aa.tar.gz tcl-0d106bd729c6d46d0806fd57f2fc799aef68a2aa.tar.bz2 |
Fix bug [30e4e9102f] - Abstract List ListIndex should return NULL when index out of range.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 38a598f..5ece319 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4692,6 +4692,10 @@ TEBCresume( goto gotError; } CACHE_STACK_INFO(); + if (objResultPtr == NULL) { + /* Index is out of range, return empty result. */ + TclNewObj(objResultPtr); + } Tcl_IncrRefCount(objResultPtr); // reference held here goto lindexDone; } |