diff options
| author | jingham <jingham> | 1999-10-15 04:47:03 (GMT) |
|---|---|---|
| committer | jingham <jingham> | 1999-10-15 04:47:03 (GMT) |
| commit | 727440c6bc366667e62fc0ee017de993a048f378 (patch) | |
| tree | ceba955ccb6b474e65ca06f4f7a2fd431dfed310 /mac/tclMacFCmd.c | |
| parent | ed37411b40e15cb80b952338e0923f5c46b6c4fa (diff) | |
| download | tcl-727440c6bc366667e62fc0ee017de993a048f378.zip tcl-727440c6bc366667e62fc0ee017de993a048f378.tar.gz tcl-727440c6bc366667e62fc0ee017de993a048f378.tar.bz2 | |
Fix a merge error in the UTF8 conversion bug fix [Bug: 2869]
Diffstat (limited to 'mac/tclMacFCmd.c')
| -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); |