diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-25 09:09:52 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-25 09:09:52 (GMT) |
commit | b4acb0d3391025f104ba4829623b4fb7c0f33f07 (patch) | |
tree | 6bd095833a192086034a850a34fa2609a4b49d2f /generic | |
parent | 7a36917c207b6d97549078ee9371451a4a5272cc (diff) | |
download | tcl-b4acb0d3391025f104ba4829623b4fb7c0f33f07.zip tcl-b4acb0d3391025f104ba4829623b4fb7c0f33f07.tar.gz tcl-b4acb0d3391025f104ba4829623b4fb7c0f33f07.tar.bz2 |
Unneeded Tcl_DStringFree() (twice)
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclFileName.c | 1 | ||||
-rw-r--r-- | generic/tclPkg.c | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 5679a6c..54c583a 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1777,7 +1777,6 @@ TclGlob( if (c != '\0') { tail++; } - Tcl_DStringFree(&buffer); } else { tail = pattern; } diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 6a42a38..c82cd4d 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -538,7 +538,6 @@ PkgRequireCoreStep1( Tcl_NRAddCallback(interp, PkgRequireCoreStep2, reqPtr, INT2PTR(reqc), (void *) reqv, NULL); Tcl_NREvalObj(interp, Tcl_DStringToObj(&command), TCL_EVAL_GLOBAL); - Tcl_DStringFree(&command); return TCL_OK; } |