diff options
| author | das <das> | 2008-04-16 14:49:28 (GMT) |
|---|---|---|
| committer | das <das> | 2008-04-16 14:49:28 (GMT) |
| commit | afd0f9b3f6990bb1d44b22b117df3fbb4a535a85 (patch) | |
| tree | 9f4d763e4feec43980c4ccc9d7e151d0af7b0c91 /tools | |
| parent | f2cc98583dc54f92e54639280c862772682ad3ab (diff) | |
| download | tcl-afd0f9b3f6990bb1d44b22b117df3fbb4a535a85.zip tcl-afd0f9b3f6990bb1d44b22b117df3fbb4a535a85.tar.gz tcl-afd0f9b3f6990bb1d44b22b117df3fbb4a535a85.tar.bz2 | |
* generic/tclInt.h: make stubs tables 'static const' and
* generic/tclStubInit.c: export only module-scope pointers to
* generic/tclStubLib.c: the main stubs tables (for package
* tools/genStubs.tcl: initialization). [Patch 1938497]
* generic/tclBasic.c (Tcl_CreateInterp):
* generic/tclTomMathInterface.c (TclTommath_Init):
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index ab5ebbc..ec70115 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.25 2008/04/08 14:52:45 das Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.26 2008/04/16 14:49:29 das Exp $ package require Tcl 8.4 @@ -1056,7 +1056,7 @@ proc genStubs::emitInit {name textVar} { } append text "\n\};\n" } - append text "\n${capName}Stubs ${name}Stubs = \{\n" + append text "\nstatic const ${capName}Stubs ${name}Stubs = \{\n" append text " TCL_STUB_MAGIC,\n" if {[info exists hooks($name)]} { append text " &${name}StubHooks,\n" |