diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-03-24 12:59:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-03-24 12:59:06 (GMT) |
| commit | d8f01a421223dcf58b22e4cffef613818efde1fa (patch) | |
| tree | 5779e486f3560ca04ac238b1af56018726417149 | |
| parent | af138b22ab581412561847649ea0c71a86898bbb (diff) | |
| download | tcl-d8f01a421223dcf58b22e4cffef613818efde1fa.zip tcl-d8f01a421223dcf58b22e4cffef613818efde1fa.tar.gz tcl-d8f01a421223dcf58b22e4cffef613818efde1fa.tar.bz2 | |
stay out of internals when nice interfaces are available.
| -rw-r--r-- | generic/tclTest.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 7c30d36..5bfa8f7 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 |