diff options
| author | jingham <jingham@noemail.net> | 1999-10-15 04:47:03 (GMT) |
|---|---|---|
| committer | jingham <jingham@noemail.net> | 1999-10-15 04:47:03 (GMT) |
| commit | 31c5658db682f10ce4e906937e6dfc3e8550061b (patch) | |
| tree | ceba955ccb6b474e65ca06f4f7a2fd431dfed310 /mac | |
| parent | cc7bb155f82cdccb85860ae89204ed6f8e96d17f (diff) | |
| download | tcl-31c5658db682f10ce4e906937e6dfc3e8550061b.zip tcl-31c5658db682f10ce4e906937e6dfc3e8550061b.tar.gz tcl-31c5658db682f10ce4e906937e6dfc3e8550061b.tar.bz2 | |
Fix a merge error in the UTF8 conversion bug fix [Bug: 2869]
FossilOrigin-Name: d73e2a7f2876cc5056ba0571007d097105bd8ded
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tclMacFCmd.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mac/tclMacFCmd.c b/mac/tclMacFCmd.c index 181130e..a83011d 100644 --- a/mac/tclMacFCmd.c +++ b/mac/tclMacFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacFCmd.c,v 1.6 1999/10/05 22:46:14 hobbs Exp $ + * RCS: @(#) $Id: tclMacFCmd.c,v 1.7 1999/10/15 04:47:03 jingham Exp $ */ #include "tclInt.h" @@ -1202,7 +1202,7 @@ GetFileFinderAttributes( FInfo finfo; Tcl_DString pathString; - Tcl_UtfToExternalDString(NULL, path, -1, &pathString); + Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString); err = FSpLocationFromPath(Tcl_DStringLength(&pathString), Tcl_DStringValue(&pathString), &fileSpec); Tcl_DStringFree(&pathString); @@ -1281,7 +1281,7 @@ GetFileReadOnly( CInfoPBRec paramBlock; Tcl_DString pathString; - Tcl_UtfToExternalDString(NULL, path, -1, &pathString); + Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString); err = FSpLocationFromPath(Tcl_DStringLength(&pathString), Tcl_DStringValue(&pathString), &fileSpec); Tcl_DStringFree(&pathString); @@ -1346,7 +1346,7 @@ SetFileFinderAttributes( FInfo finfo; Tcl_DString pathString; - Tcl_UtfToExternalDString(NULL, path, -1, &pathString); + Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString); err = FSpLocationFromPath(Tcl_DStringLength(&pathString), Tcl_DStringValue(&pathString), &fileSpec); Tcl_DStringFree(&pathString); @@ -1439,7 +1439,7 @@ SetFileReadOnly( int hidden; Tcl_DString pathString; - Tcl_UtfToExternalDString(NULL, path, -1, &pathString); + Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString); err = FSpLocationFromPath(Tcl_DStringLength(&pathString), Tcl_DStringValue(&pathString), &fileSpec); Tcl_DStringFree(&pathString); |