diff options
| author | redman <redman> | 1999-03-30 01:55:49 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-03-30 01:55:49 (GMT) |
| commit | d3fe9c1e7a45bbd6ab84227fdb0c8d370b4d4ccc (patch) | |
| tree | 86391fd65e99ea3af18c862bec4c521ca19de311 /tools | |
| parent | bc9499ec1c4e0e70cf8fd78b066ac21bdf0606e5 (diff) | |
| download | tcl-d3fe9c1e7a45bbd6ab84227fdb0c8d370b4d4ccc.zip tcl-d3fe9c1e7a45bbd6ab84227fdb0c8d370b4d4ccc.tar.gz tcl-d3fe9c1e7a45bbd6ab84227fdb0c8d370b4d4ccc.tar.bz2 | |
Remove the stub function definitions. Change stub macros to use
just the name of the function without any parameters (to be able to
get the address of a function).
Changed passing of tclStubsPtr to the interp (during Tcl_CreateInterp)
to pass &tclStubs to avoid problems with duplicate symbols on Solaris.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 2c95365..58d7596 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -8,7 +8,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.2.2.2 1999/03/25 23:29:19 stanton Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.2.2.3 1999/03/30 01:55:55 redman Exp $ namespace eval genStubs { # libraryName -- @@ -421,7 +421,7 @@ proc genStubs::makeMacro {name decl index} { append argList ")" } } - append text $argList " \\\n\t(${name}StubsPtr->$lfname)$argList" + append text " \\\n\t(${name}StubsPtr->$lfname)" append text " /* $index */\n#endif\n" return $text } @@ -850,7 +850,6 @@ proc genStubs::init {} { foreach name [lsort [array names interfaces]] { puts "Emitting $name" emitHeader $name - emitStubs $name } emitInits |