From 9fde0d3e5ad6558c526c51a8dc07fae6835cf30d Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 12 Oct 2016 17:31:48 +0000
Subject: Correct improper NULL return from initializing Tcl_InitStringRep(o,
 b, 0). Go ahead and return pointer to space where 0 bytes can be written.

---
 generic/tclObj.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tclObj.c b/generic/tclObj.c
index 387f92b..412ecfc 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -1766,8 +1766,7 @@ Tcl_InitStringRep(
 		objPtr->length = (int) numBytes;
 	    }
 	} else {
-	    objPtr->bytes = tclEmptyStringRep;
-	    return NULL;
+	    TclInitStringRep(objPtr, NULL, 0);
 	}
     } else {
 	/* objPtr->bytes != NULL bytes == NULL - Truncate */
-- 
cgit v0.12