diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-18 12:10:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-18 12:10:26 (GMT) |
| commit | 450b6f46c96b96bec44fb0bc119e3d11f3434f4a (patch) | |
| tree | 5f4ccb4d3df569fcd06e804ff1b5ebd8a72505bb /unix/tclUnixFCmd.c | |
| parent | 4d9fc11c2ffbcc95218111734c64397df0dfcf63 (diff) | |
| parent | edcac92c086fa48aff50db9763afecbed00c2a37 (diff) | |
| download | tcl-450b6f46c96b96bec44fb0bc119e3d11f3434f4a.zip tcl-450b6f46c96b96bec44fb0bc119e3d11f3434f4a.tar.gz tcl-450b6f46c96b96bec44fb0bc119e3d11f3434f4a.tar.bz2 | |
merge novem
Diffstat (limited to 'unix/tclUnixFCmd.c')
| -rw-r--r-- | unix/tclUnixFCmd.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index bb67171..6aee70f 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -1507,7 +1507,7 @@ SetGroupAttribute( const char *string; size_t length; - string = Tcl_GetString(attributePtr); + string = TclGetString(attributePtr); length = attributePtr->length; native = Tcl_UtfToExternalDString(NULL, string, length, &ds); @@ -1575,7 +1575,7 @@ SetOwnerAttribute( const char *string; size_t length; - string = Tcl_GetString(attributePtr); + string = TclGetString(attributePtr); length = attributePtr->length; native = Tcl_UtfToExternalDString(NULL, string, length, &ds); @@ -1948,7 +1948,7 @@ TclpObjNormalizePath( const char *currentPathEndPosition; size_t pathLen; char cur; - const char *path = Tcl_GetString(pathPtr); + const char *path = TclGetString(pathPtr); Tcl_DString ds; const char *nativePath; #ifndef NO_REALPATH @@ -2186,7 +2186,7 @@ TclUnixOpenTemporaryFile( */ if (dirObj) { - string = Tcl_GetString(dirObj); + string = TclGetString(dirObj); len = dirObj->length; Tcl_UtfToExternalDString(NULL, string, len, &template); } else { @@ -2197,7 +2197,7 @@ TclUnixOpenTemporaryFile( TclDStringAppendLiteral(&template, "/"); if (basenameObj) { - string = Tcl_GetString(basenameObj); + string = TclGetString(basenameObj); len = basenameObj->length; Tcl_UtfToExternalDString(NULL, string, len, &tmp); TclDStringAppendDString(&template, &tmp); @@ -2210,7 +2210,7 @@ TclUnixOpenTemporaryFile( #ifdef HAVE_MKSTEMPS if (extensionObj) { - string = Tcl_GetString(extensionObj); + string = TclGetString(extensionObj); len = extensionObj->length; Tcl_UtfToExternalDString(NULL, string, len, &tmp); TclDStringAppendDString(&template, &tmp); |