diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinChan.c | 4 | ||||
| -rw-r--r-- | win/tclWinFCmd.c | 6 | ||||
| -rw-r--r-- | win/tclWinFile.c | 16 |
3 files changed, 13 insertions, 13 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 08116ef..04830d9 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.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: tclWinChan.c,v 1.18 2002/01/15 21:19:07 dgp Exp $ + * RCS: @(#) $Id: tclWinChan.c,v 1.19 2002/01/18 14:17:06 dgp Exp $ */ #include "tclWinInt.h" @@ -668,7 +668,7 @@ TclpOpenFileChannel(interp, pathPtr, modeString, permissions) Tcl_Channel channel = 0; int seekFlag, mode, channelPermissions; DWORD accessMode, createMode, shareMode, flags, consoleParams, type; - TCHAR *nativeName; + CONST TCHAR *nativeName; DCB dcb; HANDLE handle; char channelName[16 + TCL_INTEGER_SPACE]; diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index f4cd7ad..ee49af9 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.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: tclWinFCmd.c,v 1.18 2002/01/17 04:37:33 dgp Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.19 2002/01/18 14:17:06 dgp Exp $ */ #include "tclWinInt.h" @@ -1303,7 +1303,7 @@ GetWinFileAttributes( Tcl_Obj **attributePtrPtr) /* A pointer to return the object with. */ { DWORD result; - TCHAR *nativeName; + CONST TCHAR *nativeName; nativeName = Tcl_FSGetNativePath(fileName); result = (*tclWinProcs->getFileAttributesProc)(nativeName); @@ -1583,7 +1583,7 @@ SetWinFileAttributes( DWORD fileAttributes; int yesNo; int result; - TCHAR *nativeName; + CONST TCHAR *nativeName; nativeName = Tcl_FSGetNativePath(fileName); fileAttributes = (*tclWinProcs->getFileAttributesProc)(nativeName); diff --git a/win/tclWinFile.c b/win/tclWinFile.c index cf2ff04..69229bc 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.20 2002/01/17 03:03:12 dgp Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.21 2002/01/18 14:17:06 dgp Exp $ */ #include "tclWinInt.h" @@ -595,7 +595,7 @@ TclpGetUserHome(name, bufferPtr) static int NativeAccess( - TCHAR *nativePath, /* Path of file to access (UTF-8). */ + CONST TCHAR *nativePath, /* Path of file to access (UTF-8). */ int mode) /* Permission setting. */ { DWORD attr; @@ -640,7 +640,7 @@ NativeAccess( static int NativeIsExec(nativePath) - TCHAR *nativePath; + CONST TCHAR *nativePath; { CONST char *p; char *path; @@ -696,9 +696,9 @@ TclpObjChdir(pathPtr) Tcl_Obj *pathPtr; /* Path to new working directory. */ { int result; - TCHAR *nativePath; + CONST TCHAR *nativePath; - nativePath = (TCHAR *) Tcl_FSGetNativePath(pathPtr); + nativePath = (CONST TCHAR *) Tcl_FSGetNativePath(pathPtr); result = (*tclWinProcs->setCurrentDirectoryProc)(nativePath); if (result == 0) { @@ -856,7 +856,7 @@ TclpObjStat(pathPtr, statPtr) TclWinFlushDirtyChannels (); - return NativeStat((TCHAR*) Tcl_FSGetNativePath(pathPtr), statPtr); + return NativeStat((CONST TCHAR*) Tcl_FSGetNativePath(pathPtr), statPtr); } /* @@ -884,7 +884,7 @@ TclpObjStat(pathPtr, statPtr) static int NativeStat(nativePath, statPtr) - TCHAR *nativePath; /* Path of file to stat */ + CONST TCHAR *nativePath; /* Path of file to stat */ struct stat *statPtr; /* Filled with results of stat call. */ { Tcl_DString ds; @@ -1213,7 +1213,7 @@ TclpObjAccess(pathPtr, mode) Tcl_Obj *pathPtr; int mode; { - return NativeAccess((TCHAR*) Tcl_FSGetNativePath(pathPtr), mode); + return NativeAccess((CONST TCHAR*) Tcl_FSGetNativePath(pathPtr), mode); } int |