summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-10-04 11:34:19 (GMT)
committernijtmans <nijtmans>2008-10-04 11:34:19 (GMT)
commitcf24f0cc5f58ca91c49d46e631feeaf536162fb0 (patch)
treed1a4fd536b1f555cbb9dd514c151884c46c26c26
parent67aa8715c3ab84a6c636b90a48b5a565c1dcc162 (diff)
downloadtcl-cf24f0cc5f58ca91c49d46e631feeaf536162fb0.zip
tcl-cf24f0cc5f58ca91c49d46e631feeaf536162fb0.tar.gz
tcl-cf24f0cc5f58ca91c49d46e631feeaf536162fb0.tar.bz2
* 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.
-rw-r--r--ChangeLog10
-rw-r--r--doc/RegConfig.34
-rw-r--r--generic/tcl.decls4
-rw-r--r--generic/tclConfig.c4
-rw-r--r--generic/tclDecls.h6
-rw-r--r--generic/tclPkgConfig.c4
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},