* doc/RegConfig.3: CONSTified the configuration argument

	* generic/tcl.decls:		of Tcl_RegisterConfig.
	* generic/tclConfig.c
	* generic/tclPkgConfig.c
	* ChangeLog
	* generic/tclDecls.h:		regenerated
	This change complies with TIP #27.

6 files changed, 21 insertions, 11 deletions

diff --git a/ChangeLog b/ChangeLog
index 79d990f..0c6ad63 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,15 @@
 2008-10-4  Jan Nijtmans  <nijtmans@users.sf.net>
 
+	* doc/RegConfig.3:			CONSTified the configuration argument
+	* generic/tcl.decls:		of Tcl_RegisterConfig.
+	* generic/tclConfig.c
+	* generic/tclPkgConfig.c
+	* ChangeLog
+	* generic/tclDecls.h:		regenerated
+	This change complies with TIP #27.
+
+2008-10-4  Jan Nijtmans  <nijtmans@users.sf.net>
+
 	* doc/GetIndex.3:			CONSTified the tablePtr argument
 	* generic/tcl.decls:		of Tcl_GetIndexFromObj.
 	* generic/tclIndexObj.c
diff --git a/doc/RegConfig.3 b/doc/RegConfig.3
index 51d4df2..19a7c7a 100644
--- a/doc/RegConfig.3
+++ b/doc/RegConfig.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: RegConfig.3,v 1.10 2008/08/27 20:29:48 dgp Exp $
+'\" RCS: @(#) $Id: RegConfig.3,v 1.11 2008/10/04 11:34:19 nijtmans Exp $
 .so man.macros
 .TH Tcl_RegisterConfig 3 8.4 Tcl "Tcl Library Procedures"
 .BS
@@ -27,7 +27,7 @@ registered for. Must not be NULL.
 Contains the name of the package registering the embedded
 configuration as ASCII string. This means that this information is in
 UTF-8 too. Must not be NULL.
-.AP Tcl_Config *configuration in
+.AP "const Tcl_Config" *configuration in
 Refers to an array of Tcl_Config entries containing the information
 embedded in the binary library. Must not be NULL. The end of the array
 is signaled by either a key identical to NULL, or a key referring to
diff --git a/generic/tcl.decls b/generic/tcl.decls
index 8f9f46a..adcd936 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -12,7 +12,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.148 2008/10/04 11:04:43 nijtmans Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.149 2008/10/04 11:34:19 nijtmans Exp $
 
 library tcl
 
@@ -1804,7 +1804,7 @@ declare 504 generic {
 # New export due to TIP#59
 declare 505 generic {
     void Tcl_RegisterConfig(Tcl_Interp* interp, CONST char* pkgName,
-	    Tcl_Config* configuration, CONST char* valEncoding)
+	    CONST Tcl_Config* configuration, CONST char* valEncoding)
 }
 
 # Transferred from tclInt.decls due to TIP #139
diff --git a/generic/tclConfig.c b/generic/tclConfig.c
index e0ee15a..2380430 100644
--- a/generic/tclConfig.c
+++ b/generic/tclConfig.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: tclConfig.c,v 1.22 2008/08/07 22:29:09 nijtmans Exp $
+ * RCS: @(#) $Id: tclConfig.c,v 1.23 2008/10/04 11:34:19 nijtmans Exp $
  */
 
 #include "tclInt.h"
@@ -73,7 +73,7 @@ Tcl_RegisterConfig(
     const char *pkgName,	/* Name of the package registering the
 				 * embedded configuration. ASCII, thus in
 				 * UTF-8 too. */
-    Tcl_Config *configuration,	/* Embedded configuration. */
+    const Tcl_Config *configuration,	/* Embedded configuration. */
     const char *valEncoding)	/* Name of the encoding used to store the
 				 * configuration values, ASCII, thus UTF-8. */
 {
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index f015e4c..68c220c 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.150 2008/10/04 11:04:43 nijtmans Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.151 2008/10/04 11:34:20 nijtmans Exp $
  */
 
 #ifndef _TCLDECLS
@@ -3063,7 +3063,7 @@ EXTERN Tcl_Obj *	Tcl_DbNewDictObj (CONST char * file, int line);
 /* 505 */
 EXTERN void		Tcl_RegisterConfig (Tcl_Interp* interp, 
 				CONST char* pkgName, 
-				Tcl_Config* configuration, 
+				CONST Tcl_Config* configuration, 
 				CONST char* valEncoding);
 #endif
 #ifndef Tcl_CreateNamespace_TCL_DECLARED
@@ -4221,7 +4221,7 @@ typedef struct TclStubs {
     int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *CONST * keyv); /* 502 */
     Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
     Tcl_Obj * (*tcl_DbNewDictObj) (CONST char * file, int line); /* 504 */
-    void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, Tcl_Config* configuration, CONST char* valEncoding); /* 505 */
+    void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, CONST Tcl_Config* configuration, CONST char* valEncoding); /* 505 */
     Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 506 */
     void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 507 */
     int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 508 */
diff --git a/generic/tclPkgConfig.c b/generic/tclPkgConfig.c
index 10ddc58..72a9b6b 100644
--- a/generic/tclPkgConfig.c
+++ b/generic/tclPkgConfig.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: tclPkgConfig.c,v 1.4 2005/11/07 15:14:09 dkf Exp $
+ * RCS: @(#) $Id: tclPkgConfig.c,v 1.5 2008/10/04 11:34:19 nijtmans Exp $
  */
 
 /* Note, the definitions in this module are influenced by the following C
@@ -90,7 +90,7 @@
 #  define CFG_PROFILED		"0"
 #endif
 
-static Tcl_Config cfg[] = {
+static Tcl_Config const cfg[] = {
     {"debug",			CFG_DEBUG},
     {"threaded",		CFG_THREADED},
     {"profiled",		CFG_PROFILED},