diff options
| author | das <das@noemail.net> | 2002-01-18 03:22:30 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2002-01-18 03:22:30 (GMT) |
| commit | b085f2a616dbbc1d5df680017311a3ddaba2e29e (patch) | |
| tree | 1dc5faca8a9c13b94076efdffe995dc3ebfe4dca /mac/tclMacFCmd.c | |
| parent | 28522d4ed546cb7bf9c3719df007f0a93424cdc6 (diff) | |
| download | tcl-b085f2a616dbbc1d5df680017311a3ddaba2e29e.zip tcl-b085f2a616dbbc1d5df680017311a3ddaba2e29e.tar.gz tcl-b085f2a616dbbc1d5df680017311a3ddaba2e29e.tar.bz2 | |
* generic/tclThreadTest.c:
* mac/tclMacChan.c:
* mac/tclMacFCmd.c:
* mac/tclMacFile.c:
* mac/tclMacLoad.c:
* mac/tclMacResource.c: TIP 27 CONSTification broke the mac
build in a number of places.
FossilOrigin-Name: 07c625a70c1fc0e3b59bea26efef040c319a8bbe
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 723eb5d..27196f5 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.12 2002/01/17 04:37:33 dgp Exp $ + * RCS: @(#) $Id: tclMacFCmd.c,v 1.13 2002/01/18 03:22:40 das Exp $ */ #include "tclInt.h" @@ -1163,7 +1163,7 @@ GetFileFinderAttributes( OSErr err; FSSpec fileSpec; FInfo finfo; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), @@ -1241,7 +1241,7 @@ GetFileReadOnly( OSErr err; FSSpec fileSpec; CInfoPBRec paramBlock; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), @@ -1305,7 +1305,7 @@ SetFileFinderAttributes( OSErr err; FSSpec fileSpec; FInfo finfo; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), @@ -1397,7 +1397,7 @@ SetFileReadOnly( FSSpec fileSpec; HParamBlockRec paramBlock; int hidden; - char *native; + CONST char *native; native=Tcl_FSGetNativePath(fileName); err = FSpLocationFromPath(strlen(native), |