From b4158a11d306e5ad55207efc9b0c21ba2b2b7a7b Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 25 Sep 2023 20:01:16 +0000
Subject: Prevent TclGetByteArrayFromObj() et al being called directly through
 the stub table. See (hijacked) ticket [1468052732]

---
 generic/tclDecls.h | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 5b8b4d5..b74a2a8 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -4258,6 +4258,20 @@ extern const TclStubs *tclStubsPtr;
 #   define Tcl_GetMaster Tcl_GetParent
 #endif
 
+#ifdef TCL_USE_STUBS
+    /* Protect those 10 functions, being usable through the stub table */
+#   undef TclGetStringFromObj
+#   undef TclGetBytesFromObj
+#   undef TclGetUnicodeFromObj
+#   undef TclListObjGetElements
+#   undef TclListObjLength
+#   undef TclDictObjSize
+#   undef TclSplitList
+#   undef TclSplitPath
+#   undef TclFSSplitPath
+#   undef TclParseArgsObjv
+#endif
+
 #if TCL_MAJOR_VERSION < 9
     /* TIP #627 for 8.7 */
 #   undef Tcl_CreateObjCommand2
-- 
cgit v0.12