Final fix for [8ab8a138c9]: functions passed to Tcl_EventuallyFree() …

…must be declared/defined as Tcl_FreeProc. Don't try to suppress the warning any more, as it even confuses UBSan more than that it helps
tcltk · Oct 26, 2023 · c0a8070 · c0a8070
1 parent bbb4020
commit c0a8070
Show file tree

Hide file tree

Showing 2 changed files with 89 additions and 97 deletions.
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
@@ -4149,14 +4149,6 @@ extern const TclStubs *tclStubsPtr;
 #   define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
 #   define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
 	    (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
-#ifndef __cplusplus
-#   undef Tcl_EventuallyFree
-#   define Tcl_EventuallyFree \
-	   ((void (*)(void *,void *))(void *)(tclStubsPtr->tcl_EventuallyFree)) /* 132 */
-#   undef Tcl_SetResult
-#   define Tcl_SetResult \
-	   ((void (*)(Tcl_Interp *, char *, void *))(void *)(tclStubsPtr->tcl_SetResult)) /* 232 */
-#endif
 #endif
 
 #if defined(_WIN32) && defined(UNICODE)