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 | db2ea548def3585a73e7b0c98582e68dab510a09 (patch) | |
| tree | 6bd095833a192086034a850a34fa2609a4b49d2f | |
| parent | e57511985899a4b10e86b28149306d5d6fd68dbf (diff) | |
| download | tcl-db2ea548def3585a73e7b0c98582e68dab510a09.zip tcl-db2ea548def3585a73e7b0c98582e68dab510a09.tar.gz tcl-db2ea548def3585a73e7b0c98582e68dab510a09.tar.bz2 | |
Unneeded Tcl_DStringFree() (twice)
| -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; } |