diff options
Diffstat (limited to 'stay-out-of-internals-when-nice-interfaces-are-avail.patch')
| -rw-r--r-- | stay-out-of-internals-when-nice-interfaces-are-avail.patch | 37 |
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 + |