From 6f7ca1db34f65411ee5779dcab9c0a0255adb713 Mon Sep 17 00:00:00 2001
From: gahr <gahr@gahr.ch>
Date: Fri, 4 Nov 2016 14:21:04 +0000
Subject: [824752f10e] Avoid calling Tcl_SetObjResult if interp is NULL

---
 generic/tclListObj.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index c4b5cfc..22f1960 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -855,8 +855,11 @@ Tcl_ListObjReplace(
     }
 
     if (objc > LIST_MAX - (numElems - count)) {
-	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
-		"max length of a Tcl list (%d elements) exceeded", LIST_MAX));
+	if (interp != NULL) {
+	    Tcl_SetObjResult(interp, Tcl_ObjPrintf(
+		    "max length of a Tcl list (%d elements) exceeded",
+		    LIST_MAX));
+	}
 	return TCL_ERROR;
     }
     isShared = (listRepPtr->refCount > 1);
-- 
cgit v0.12