From bf9931fbfa4e7ff35d60d115f5f63e886305af3d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 16 Nov 2023 19:37:35 +0000
Subject: Remove "Dummy entry for stubs table backwards compatibility" code. No
 longer needed in Tcl 9.0

---
 tools/genStubs.tcl | 15 ---------------
 1 file changed, 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} {
-- 
cgit v0.12