summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-10-15 06:17:03 (GMT)
committernijtmans <nijtmans>2008-10-15 06:17:03 (GMT)
commit9621a454a0bde1f84cef51026947815d4eb244b6 (patch)
tree20cca6f694fead4ac88a820249260a91c18a3387 /generic/tclCompile.c
parentde27d1ee5e8ba5ad01354e36be8914a8303bf45d (diff)
downloadtcl-9621a454a0bde1f84cef51026947815d4eb244b6.zip
tcl-9621a454a0bde1f84cef51026947815d4eb244b6.tar.gz
tcl-9621a454a0bde1f84cef51026947815d4eb244b6.tar.bz2
Add "const" to many internal
const tables, so those will be put by the C-compiler in the TEXT segment in stead of the DATA segment. This makes those table sharable in shared libraries.
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index b347018..ddf3818 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.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: tclCompile.c,v 1.158 2008/10/12 19:53:32 msofer Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.159 2008/10/15 06:17:04 nijtmans Exp $
*/
#include "tclInt.h"
@@ -441,7 +441,7 @@ static void EnterCmdWordIndex (ExtCmdLoc *eclPtr, Tcl_Obj* obj,
* procedures that can be invoked by generic object code.
*/
-Tcl_ObjType tclByteCodeType = {
+const Tcl_ObjType tclByteCodeType = {
"bytecode", /* name */
FreeByteCodeInternalRep, /* freeIntRepProc */
DupByteCodeInternalRep, /* dupIntRepProc */
@@ -2147,7 +2147,7 @@ TclFindCompiledLocal(
if (procPtr == NULL) {
/*
- * Compiling a non-body script: give it read access to the LVT in the
+ * Compiling a non-body script: give it read access to the LVT in the
* current localCache
*/
@@ -2171,7 +2171,7 @@ TclFindCompiledLocal(
}
return -1;
}
-
+
if (name != NULL) {
int localCt = procPtr->numCompiledLocals;