summaryrefslogtreecommitdiffstats
path: root/generic/tclObj.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-10-16 22:34:18 (GMT)
committernijtmans <nijtmans>2008-10-16 22:34:18 (GMT)
commit8b464633a0f2df93912ad25af65a5724cd643da2 (patch)
treec92c0492d1db21f9b0c7f880eec5c0cd3ce36762 /generic/tclObj.c
parent2b0bd4b76e50ee9f511c827309e0078efc6f537a (diff)
downloadtcl-8b464633a0f2df93912ad25af65a5724cd643da2.zip
tcl-8b464633a0f2df93912ad25af65a5724cd643da2.tar.gz
tcl-8b464633a0f2df93912ad25af65a5724cd643da2.tar.bz2
Add "const" to many internal
const tables. No functional or API change.
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r--generic/tclObj.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c
index a92ea7e..c5fef11 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclObj.c,v 1.143 2008/10/15 06:17:03 nijtmans Exp $
+ * RCS: @(#) $Id: tclObj.c,v 1.144 2008/10/16 22:34:19 nijtmans Exp $
*/
#include "tclInt.h"
@@ -2227,7 +2227,7 @@ Tcl_GetLongFromObj(
tooLarge:
#endif
if (interp != NULL) {
- char *s = "integer value too large to represent";
+ const char *s = "integer value too large to represent";
Tcl_Obj *msg = Tcl_NewStringObj(s, -1);
Tcl_SetObjResult(interp, msg);
@@ -2526,7 +2526,7 @@ Tcl_GetWideIntFromObj(
}
}
if (interp != NULL) {
- char *s = "integer value too large to represent";
+ const char *s = "integer value too large to represent";
Tcl_Obj *msg = Tcl_NewStringObj(s, -1);
Tcl_SetObjResult(interp, msg);