summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2001-09-28 01:21:52 (GMT)
committerdgp <dgp@users.sourceforge.net>2001-09-28 01:21:52 (GMT)
commitb32ac06e6c6eecabdceefee25539d048dcfb00fe (patch)
treeefc77c730c35b6fb82ceecf051d26b598c191f2e /win
parentbb9116d73ba9d1c0da04e53d1451fffe964ee876 (diff)
downloadtcl-b32ac06e6c6eecabdceefee25539d048dcfb00fe.zip
tcl-b32ac06e6c6eecabdceefee25539d048dcfb00fe.tar.gz
tcl-b32ac06e6c6eecabdceefee25539d048dcfb00fe.tar.bz2
* More CONST poisoning
fixes from the 2001-09-24 TIP 27 changes. CONST-ified Tcl_FSLoadFile and TclpLoadFile. Report and patch from Kevin Kenny. [Bug 465833]
Diffstat (limited to 'win')
-rw-r--r--win/tclWinFCmd.c6
-rw-r--r--win/tclWinLoad.c4
2 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 1832a76..5981ac2 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.12 2001/09/04 18:06:35 vincentdarley Exp $
+ * RCS: @(#) $Id: tclWinFCmd.c,v 1.13 2001/09/28 01:21:53 dgp Exp $
*/
#include "tclWinInt.h"
@@ -832,13 +832,13 @@ DoRemoveJustDirectory(
*/
if (TclWinGetPlatformId() != VER_PLATFORM_WIN32_NT) {
- char *path, *find;
+ CONST char *path, *find;
HANDLE handle;
WIN32_FIND_DATAA data;
Tcl_DString buffer;
int len;
- path = (char *) nativePath;
+ path = (CONST char *) nativePath;
Tcl_DStringInit(&buffer);
len = strlen(path);
diff --git a/win/tclWinLoad.c b/win/tclWinLoad.c
index 50d14c9..8fe1e31 100644
--- a/win/tclWinLoad.c
+++ b/win/tclWinLoad.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: tclWinLoad.c,v 1.8 2001/09/04 18:06:35 vincentdarley Exp $
+ * RCS: @(#) $Id: tclWinLoad.c,v 1.9 2001/09/28 01:21:53 dgp Exp $
*/
#include "tclWinInt.h"
@@ -41,7 +41,7 @@ TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr,
Tcl_Interp *interp; /* Used for error reporting. */
Tcl_Obj *pathPtr; /* Name of the file containing the desired
* code. */
- char *sym1, *sym2; /* Names of two procedures to look up in
+ CONST char *sym1, *sym2; /* Names of two procedures to look up in
* the file's symbol table. */
Tcl_PackageInitProc **proc1Ptr, **proc2Ptr;
/* Where to return the addresses corresponding