automatic import of tcl

1 files changed, 37 insertions, 0 deletions

diff --git a/stay-out-of-internals-when-nice-interfaces-are-avail.patch b/stay-out-of-internals-when-nice-interfaces-are-avail.patch
new file mode 100644
index 0000000..6ef9df4
--- /dev/null
+++ b/stay-out-of-internals-when-nice-interfaces-are-avail.patch
@@ -0,0 +1,37 @@
+From d8f01a421223dcf58b22e4cffef613818efde1fa Mon Sep 17 00:00:00 2001
+From: dgp <dgp@users.sourceforge.net>
+Date: Thu, 24 Mar 2016 12:59:06 +0000
+Subject: [PATCH 0238/1800] stay out of internals when nice interfaces are
+ available.
+
+---
+ generic/tclTest.c | 10 ++--------
+ 1 file changed, 2 insertions(+), 8 deletions(-)
+
+diff --git a/generic/tclTest.c b/generic/tclTest.c
+index 7c30d36e7..5bfa8f7ca 100644
+--- a/generic/tclTest.c
++++ b/generic/tclTest.c
+@@ -7012,17 +7012,11 @@ TestconcatobjCmd(
+ 
+     list1Ptr = Tcl_NewStringObj("foo bar sum", -1);
+     Tcl_ListObjLength(NULL, list1Ptr, &len);
+-    if (list1Ptr->bytes != NULL) {
+-	ckfree(list1Ptr->bytes);
+-	list1Ptr->bytes = NULL;
+-    }
++    Tcl_InvalidateStringRep(list1Ptr);
+ 
+     list2Ptr = Tcl_NewStringObj("eeny meeny", -1);
+     Tcl_ListObjLength(NULL, list2Ptr, &len);
+-    if (list2Ptr->bytes != NULL) {
+-	ckfree(list2Ptr->bytes);
+-	list2Ptr->bytes = NULL;
+-    }
++    Tcl_InvalidateStringRep(list2Ptr);
+ 
+     /*
+      * Verify that concat'ing a list obj with one or more empty strings does
+-- 
+2.19.1
+