diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-16 19:37:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-16 19:37:35 (GMT) |
| commit | 23ef4b9219d9a38e633ea4a33d3d24446a6d6623 (patch) | |
| tree | 35d9316142cfb6fb48fcfe822e324e70d01e625f | |
| parent | bde854f794edc2436b9676018f5a4352cc679e3c (diff) | |
| download | tcl-23ef4b9219d9a38e633ea4a33d3d24446a6d6623.zip tcl-23ef4b9219d9a38e633ea4a33d3d24446a6d6623.tar.gz tcl-23ef4b9219d9a38e633ea4a33d3d24446a6d6623.tar.bz2 | |
Remove "Dummy entry for stubs table backwards compatibility" code. No longer needed in Tcl 9.0
| -rw-r--r-- | tools/genStubs.tcl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 89e4ccc..b02bd9f 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -811,21 +811,6 @@ proc genStubs::forAllStubs {name slotProc onAll textVar set temp {} set plat aqua if {!$slot(unix) && !$slot(macosx)} { - if {[string range $skipString 1 2] ne "/*"} { - # genStubs.tcl previously had a bug here causing it to - # erroneously generate both a unix entry and an aqua - # entry for a given stubs table slot. To preserve - # backwards compatibility, generate a dummy stubs entry - # before every aqua entry (note that this breaks the - # correspondence between emitted entry number and - # actual position of the entry in the stubs table, e.g. - # TkIntStubs entry 113 for aqua is in fact at position - # 114 in the table, entry 114 at position 116 etc). - eval {append temp} $skipString - set temp "[string range $temp 0 end-1] /*\ - Dummy entry for stubs table backwards\ - compatibility */\n" - } if {$slot($plat)} { append temp [$slotProc $name $stubs($name,$plat,$i) $i] } elseif {$onAll} { |