summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjingham <jingham>1999-10-15 04:47:03 (GMT)
committerjingham <jingham>1999-10-15 04:47:03 (GMT)
commit727440c6bc366667e62fc0ee017de993a048f378 (patch)
treeceba955ccb6b474e65ca06f4f7a2fd431dfed310
parented37411b40e15cb80b952338e0923f5c46b6c4fa (diff)
downloadtcl-727440c6bc366667e62fc0ee017de993a048f378.zip
tcl-727440c6bc366667e62fc0ee017de993a048f378.tar.gz
tcl-727440c6bc366667e62fc0ee017de993a048f378.tar.bz2
Fix a merge error in the UTF8 conversion bug fix [Bug: 2869]
-rw-r--r--mac/tclMacFCmd.c10
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);