diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-26 07:51:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-26 07:51:22 (GMT) |
| commit | 2b756b48f0fcb3c5117930e9ad1be22561d9728b (patch) | |
| tree | 18e0110c3a4f6b3589872553b3e0db9a7209d300 /generic/tclFileName.c | |
| parent | 8211d5bc63a57a3d51b8f6c605a9e4e4a992a6ec (diff) | |
| parent | 94c255833358445b9edae73af1ffbe1cc2c8ab42 (diff) | |
| download | tcl-drh_micro_optimization.zip tcl-drh_micro_optimization.tar.gz tcl-drh_micro_optimization.tar.bz2 | |
Merge trunkdrh_micro_optimization
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 39bac99..2136883 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1595,8 +1595,9 @@ Tcl_GlobObjCmd( } else if (dir == PATH_GENERAL) { Tcl_DString str; + Tcl_DStringInit(&str); for (i = 0; i < objc; i++) { - Tcl_DStringInit(&str); + Tcl_DStringSetLength(&str, 0); if (dir == PATH_GENERAL) { TclDStringAppendDString(&str, &prefix); } |