diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-04-25 12:07:45 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-04-25 12:07:45 (GMT) |
| commit | 2d0545c937ed0e491f8e155dde41c9a62bd7dc86 (patch) | |
| tree | 9287ec35f60eeed086288278741ae7b69817beda /generic/tclPathObj.c | |
| parent | eaa02eccbd4b1111d5775d38bd135ef3425da6bb (diff) | |
| download | tcl-2d0545c937ed0e491f8e155dde41c9a62bd7dc86.zip tcl-2d0545c937ed0e491f8e155dde41c9a62bd7dc86.tar.gz tcl-2d0545c937ed0e491f8e155dde41c9a62bd7dc86.tar.bz2 | |
* generic/tclUtil.c (TclDStringToObj): Added internal function to make
the fairly-common operation of converting a DString into an Obj a more
efficient one.
Diffstat (limited to 'generic/tclPathObj.c')
| -rw-r--r-- | generic/tclPathObj.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index ba07808..4f86755 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -2373,7 +2373,6 @@ SetFsPathFromAny( */ if (name[0] == '~') { - char *expandedUser; Tcl_DString temp; int split; char separator = '/'; @@ -2442,8 +2441,7 @@ SetFsPathFromAny( } } - expandedUser = Tcl_DStringValue(&temp); - transPtr = Tcl_NewStringObj(expandedUser, Tcl_DStringLength(&temp)); + transPtr = TclDStringToObj(&temp); if (split != len) { /* @@ -2488,7 +2486,6 @@ SetFsPathFromAny( transPtr = joined; } } - Tcl_DStringFree(&temp); } else { transPtr = TclJoinPath(1, &pathPtr); } |