diff options
Diffstat (limited to 'tools/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 1e67f94..159565d 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 1999/03/10 05:52:51 stanton Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.3 1999/04/16 00:47:39 stanton 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 } @@ -778,8 +778,7 @@ proc genStubs::emitInit {name textVar} { forAllStubs $name makeInit 1 text {" NULL, /* $i */\n"} - append text "\};\n\n" - append text "${capName}Stubs *${name}StubsPtr = &${name}Stubs;\n" + append text "\};\n" return } @@ -832,7 +831,7 @@ proc genStubs::emitInits {} { # None. proc genStubs::init {} { - global argv + global argv argv0 variable outDir variable interfaces @@ -850,7 +849,6 @@ proc genStubs::init {} { foreach name [lsort [array names interfaces]] { puts "Emitting $name" emitHeader $name - emitStubs $name } emitInits |