From 2a8151fd1a52f6e52b76fb628af9d699cc580b35 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 12 Oct 2023 14:46:42 +0000 Subject: Those type-casts don't work well in C++ --- generic/tclDecls.h | 2 ++ 1 file changed, 2 insertions(+) diff --git a/generic/tclDecls.h b/generic/tclDecls.h index f8e9bcf..a91f718 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3973,6 +3973,7 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) # 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 */ @@ -3980,6 +3981,7 @@ extern const TclStubs *tclStubsPtr; # define Tcl_SetResult \ ((void (*)(Tcl_Interp *, char *, void *))(void *)(tclStubsPtr->tcl_SetResult)) /* 232 */ #endif +#endif #if defined(_WIN32) && defined(UNICODE) # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) -- cgit v0.12