From e6919d022e5a1fa46781b0ea71ada683c5ee5e85 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Wed, 22 May 2024 10:50:01 +0000
Subject: amend to [de08cf03235f3ce9], [7842f33a5cc5eed0], stop tail recursion
 in AddSimpleClassChainToCallContext if classPtr is NULL

---
 generic/tclOOCall.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c
index 5fe20b3..14e747c 100644
--- a/generic/tclOOCall.c
+++ b/generic/tclOOCall.c
@@ -1774,6 +1774,9 @@ AddSimpleClassChainToCallContext(
      */
 
   tailRecurse:
+    if (classPtr == NULL) {
+	return privateDanger;
+    }
     FOREACH(superPtr, classPtr->mixins) {
 	privateDanger |= AddSimpleClassChainToCallContext(superPtr,
 		methodNameObj, cbPtr, doneFilters, flags | TRAVERSED_MIXIN,
-- 
cgit v0.12