diff options
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index e801a2d..df64ae4 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -972,12 +972,13 @@ TestlistobjCmd( != TCL_OK) { return TCL_ERROR; } - if (objP->refCount <= 0) { + if (objP->refCount < 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "Tcl_ListObjIndex returned object with ref count <= 0", + "Tcl_ListObjIndex returned object with ref count < 0", TCL_INDEX_NONE)); /* Keep looping since we are also looping for leaks */ } + Tcl_BumpObj(objP); } break; |