diff options
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index d78dca4..eb215c9 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.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: tclUnixFile.c,v 1.13 2001/10/29 14:25:03 dkf Exp $ + * RCS: @(#) $Id: tclUnixFile.c,v 1.14 2002/01/17 04:37:33 dgp Exp $ */ #include "tclInt.h" @@ -496,7 +496,7 @@ TclpObjAccess(pathPtr, mode) Tcl_Obj *pathPtr; /* Path of file to access */ int mode; /* Permission setting. */ { - char *path = Tcl_FSGetNativePath(pathPtr); + CONST char *path = Tcl_FSGetNativePath(pathPtr); if (path == NULL) { return -1; } else { @@ -524,7 +524,7 @@ int TclpObjChdir(pathPtr) Tcl_Obj *pathPtr; /* Path to new working directory */ { - char *path = Tcl_FSGetNativePath(pathPtr); + CONST char *path = Tcl_FSGetNativePath(pathPtr); if (path == NULL) { return -1; } else { @@ -553,7 +553,7 @@ TclpObjLstat(pathPtr, bufPtr) Tcl_Obj *pathPtr; /* Path of file to stat */ struct stat *bufPtr; /* Filled with results of stat call. */ { - char *path = Tcl_FSGetNativePath(pathPtr); + CONST char *path = Tcl_FSGetNativePath(pathPtr); if (path == NULL) { return -1; } else { @@ -685,7 +685,7 @@ TclpObjStat(pathPtr, bufPtr) Tcl_Obj *pathPtr; /* Path of file to stat */ struct stat *bufPtr; /* Filled with results of stat call. */ { - char *path = Tcl_FSGetNativePath(pathPtr); + CONST char *path = Tcl_FSGetNativePath(pathPtr); if (path == NULL) { return -1; } else { |