diff options
| author | nijtmans <nijtmans> | 2010-02-15 22:56:19 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-02-15 22:56:19 (GMT) |
| commit | d51db74e5f9c0be32cbd0cfeeff0797a74cfd4ba (patch) | |
| tree | 140d3d78d10e4ec6405c364f7a6936a7a07086a5 /tools/genStubs.tcl | |
| parent | a0d1a202239c64ab548f9d515bba530fb475d743 (diff) | |
| download | tcl-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/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 8 |
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)]} { |