diff options
| author | redman <redman> | 1999-04-01 21:52:52 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-04-01 21:52:52 (GMT) |
| commit | a800083e808849111e7328c9238b0604305533b9 (patch) | |
| tree | 73676a7d4aeecf5f2b48b6956a295cf22734b9bd /tools | |
| parent | cd93e3947d2f951d9efa45c8bfaf8c4893789064 (diff) | |
| download | tcl-a800083e808849111e7328c9238b0604305533b9.zip tcl-a800083e808849111e7328c9238b0604305533b9.tar.gz tcl-a800083e808849111e7328c9238b0604305533b9.tar.bz2 | |
Applied Jan's patch, fixed TCL_MEM_DEBUG.
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 58d7596..f71a010 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.3 1999/03/30 01:55:55 redman Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.2.2.4 1999/04/01 21:52:57 redman Exp $ namespace eval genStubs { # libraryName -- @@ -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 } |