diff options
| author | dgp <dgp@noemail.net> | 2002-01-17 04:37:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2002-01-17 04:37:32 (GMT) |
| commit | 3f36853ecfb6bbcb1991bde15129d16da8f68965 (patch) | |
| tree | 62a19bfcb6159f9beaa9ffb26dcd2b680126c7c8 /unix | |
| parent | f0abdf9b8f9092172d08b390156f98df2f135669 (diff) | |
| download | tcl-3f36853ecfb6bbcb1991bde15129d16da8f68965.zip tcl-3f36853ecfb6bbcb1991bde15129d16da8f68965.tar.gz tcl-3f36853ecfb6bbcb1991bde15129d16da8f68965.tar.bz2 | |
* More TIP 27 updates in tclIOUtil.c and tclIndexObj.c that were
overlooked before. Updated callers.
***POTENTIAL INCOMPATIBILITY***
Includes a source incompatibility in the tablePtr arguments of
the Tcl_GetIndexFromObj* routines.
FossilOrigin-Name: 28b6020550dd9e62f46b824e4c2ba2a6302657f6
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixChan.c | 4 | ||||
| -rw-r--r-- | unix/tclUnixFCmd.c | 4 | ||||
| -rw-r--r-- | unix/tclUnixFile.c | 10 |
3 files changed, 9 insertions, 9 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 534ae49..6c7e2ee 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixChan.c,v 1.25 2002/01/15 21:19:07 dgp Exp $ + * RCS: @(#) $Id: tclUnixChan.c,v 1.26 2002/01/17 04:37:33 dgp Exp $ */ #include "tclInt.h" /* Internal definitions for Tcl. */ @@ -1307,7 +1307,7 @@ TclpOpenFileChannel(interp, pathPtr, modeString, permissions) { int fd, seekFlag, mode, channelPermissions; FileState *fsPtr; - char *native, *translation; + CONST char *native, *translation; char channelName[16 + TCL_INTEGER_SPACE]; Tcl_ChannelType *channelTypePtr; #ifdef DEPRECATED diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index f2fd914..ee76818 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixFCmd.c,v 1.13 2001/09/28 11:10:56 vincentdarley Exp $ + * RCS: @(#) $Id: tclUnixFCmd.c,v 1.14 2002/01/17 04:37:33 dgp Exp $ * * Portions of this code were derived from NetBSD source code which has * the following copyright notice: @@ -110,7 +110,7 @@ enum { UNIX_PERMISSIONS_ATTRIBUTE }; -char *tclpFileAttrStrings[] = { +CONST char *tclpFileAttrStrings[] = { "-group", "-owner", "-permissions", 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 { |