summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-02-15 22:56:19 (GMT)
committernijtmans <nijtmans>2010-02-15 22:56:19 (GMT)
commitd51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba (patch)
tree140d3d78d10e4ec6405c364f7a6936a7a07086a5 /tools
parenta0d1a202239c64ab548f9d515bba530fb475d743 (diff)
downloadtcl-d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba.zip
tcl-d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba.tar.gz
tcl-d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba.tar.bz2
reverted earlier rename from tcl*Stubs to
tcl*ConstStubs, it's not necessary at all. tclEnsemble.c: Fix signed-unsigned mismatch make tclWinProcs "const" Add first part of mslu support, See [Feature Request #2819611]
Diffstat (limited to 'tools')
-rw-r--r--tools/genStubs.tcl8
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 613d62f..7a77314 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -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: genStubs.tcl,v 1.38 2010/02/09 14:08:53 ferrieux Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.39 2010/02/15 22:56:20 nijtmans Exp $
package require Tcl 8.4
@@ -983,7 +983,7 @@ proc genStubs::emitInit {name textVar} {
append text "\nstatic const ${capName}StubHooks ${name}StubHooks = \{\n"
set sep " "
foreach sub $hooks($name) {
- append text $sep "&${sub}ConstStubs"
+ append text $sep "&${sub}Stubs"
set sep ",\n "
}
append text "\n\};\n"
@@ -998,9 +998,9 @@ proc genStubs::emitInit {name textVar} {
}
if {$root} {
- append text "\nconst ${capName}Stubs ${name}ConstStubs = \{\n"
+ append text "\nconst ${capName}Stubs ${name}Stubs = \{\n"
} else {
- append text "\nstatic const ${capName}Stubs ${name}ConstStubs = \{\n"
+ append text "\nstatic const ${capName}Stubs ${name}Stubs = \{\n"
}
append text " TCL_STUB_MAGIC,\n"
if {[info exists hooks($name)]} {