Subject: For Tcl9, do a real Tcl_DecrRefCount

From: "jan.nijtmans" <[email-masked]>
Date: Sat, 29 Dec 2012 00:06:42 +0000

---
 generic/tclListObj.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index 97e7152..5b73a155 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -907,7 +907,11 @@ Tcl_ListObjReplace(
 	listRepPtr = AttemptNewList(interp, newMax, NULL);
 	if (listRepPtr == NULL) {
 	    for (i = 0;  i < objc;  i++) {
+#if TCL_MAJOR_VERSION > 8
+		Tcl_DecrRefCount(objv[i]);
+#else
 		objv[i]->refCount--;
+#endif
 	    }
 	    return TCL_ERROR;
 	}
-- 
cgit v0.12