* Vince Darley reports the 2001-09-24 TIP 27 changes left the win

        directory CONST poisoned.  These changes should fix that.

6 files changed, 24 insertions, 12 deletions

diff --git a/ChangeLog b/ChangeLog
index b83a8e4..8e541a3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2001-09-26  Don Porter  <dgp@users.sourceforge.net>
+
+	* doc/SplitPath.3 (Tcl_GetPathType):
+	* generic/tcl.decls (Tcl_GetPathType):
+	* generic/tclFileName.c (Tcl_GetPathType):
+	* win/tclWinFile.c (TclpMatchInDirectory, NativeStat):  Vince
+	Darley reports the 2001-09-24 TIP 27 changes left the win
+	directory CONST poisoned.  These changes should fix that.
+
+	* generic/tclDecls.h: make genstubs
+
 2001-09-25  Don Porter  <dgp@users.sourceforge.net>
 
 	* doc/GetInt.3:
diff --git a/doc/SplitPath.3 b/doc/SplitPath.3
index 71ebe82..165df09 100644
--- a/doc/SplitPath.3
+++ b/doc/SplitPath.3
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: SplitPath.3,v 1.3 2001/08/23 17:37:07 vincentdarley Exp $
+'\" RCS: @(#) $Id: SplitPath.3,v 1.4 2001/09/27 00:19:57 dgp Exp $
 '\" 
 .so man.macros
 .TH Tcl_SplitPath 3 7.5 Tcl "Tcl Library Procedures"
@@ -24,7 +24,7 @@ Tcl_PathType
 \fBTcl_GetPathType\fR(\fIpath\fR)
 .SH ARGUMENTS
 .AS Tcl_DString ***argvPtr
-.AP char *path in
+.AP "CONST char" *path in
 File path in a form appropriate for the current platform (see the
 \fBfilename\fR manual entry for acceptable forms for path names).
 .AP int *argcPtr out
diff --git a/generic/tcl.decls b/generic/tcl.decls
index d80e3fa..62cc523 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -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: tcl.decls,v 1.60 2001/09/25 16:23:55 dgp Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.61 2001/09/27 00:19:57 dgp Exp $
 
 library tcl
 
@@ -605,7 +605,7 @@ declare 167 unix {
 # Obsolete.  Should now use Tcl_FSGetPathType which is objectified
 # and therefore usually faster.
 declare 168 generic {
-    Tcl_PathType Tcl_GetPathType(char *path)
+    Tcl_PathType Tcl_GetPathType(CONST char *path)
 }
 declare 169 generic {
     int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr)
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 5138a50..fe42b3b 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclDecls.h,v 1.60 2001/09/25 16:23:55 dgp Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.61 2001/09/27 00:19:57 dgp Exp $
  */
 
 #ifndef _TCLDECLS
@@ -551,7 +551,7 @@ EXTERN int		Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp,
 				ClientData * filePtr));
 #endif /* UNIX */
 /* 168 */
-EXTERN Tcl_PathType	Tcl_GetPathType _ANSI_ARGS_((char * path));
+EXTERN Tcl_PathType	Tcl_GetPathType _ANSI_ARGS_((CONST char * path));
 /* 169 */
 EXTERN int		Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, 
 				Tcl_DString * dsPtr));
@@ -1716,7 +1716,7 @@ typedef struct TclStubs {
 #ifdef MAC_TCL
     void *reserved167;
 #endif /* MAC_TCL */
-    Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 168 */
+    Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char * path)); /* 168 */
     int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 169 */
     int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 170 */
     int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 3eb9a17..4c2a580 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.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: tclFileName.c,v 1.20 2001/09/04 18:06:34 vincentdarley Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.21 2001/09/27 00:19:57 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -272,7 +272,7 @@ ExtractWinRoot(path, resultPtr, offset, typePtr)
 
 Tcl_PathType
 Tcl_GetPathType(path)
-    char *path;
+    CONST char *path;
 {
     Tcl_PathType type;
     Tcl_Obj *tempObj = Tcl_NewStringObj(path,-1);
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 1cce9fd..cb4e683 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.15 2001/09/10 17:17:41 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclWinFile.c,v 1.16 2001/09/27 00:19:57 dgp Exp $
  */
 
 #include "tclWinInt.h"
@@ -121,7 +121,8 @@ TclpMatchInDirectory(interp, resultPtr, pathPtr, pattern, types)
 {
     char drivePat[] = "?:\\";
     const char *message;
-    char *dir, *root;
+    CONST char *dir;
+    char *root;
     int dirLength;
     Tcl_DString dirString;
     DWORD attr, volFlags;
@@ -887,7 +888,7 @@ NativeStat(nativePath, statPtr)
     DWORD attr;
     WCHAR nativeFullPath[MAX_PATH];
     TCHAR *nativePart;
-    char *fullPath;
+    CONST char *fullPath;
     int dev, mode;
 
     handle = (*tclWinProcs->findFirstFileProc)(nativePath, &data);