diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-12 14:46:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-12 14:46:42 (GMT) |
| commit | 2a8151fd1a52f6e52b76fb628af9d699cc580b35 (patch) | |
| tree | b23358bc1762f52ef004dbea4f9369934b2310f0 | |
| parent | ea1d0bdda1fbfe0bcdd1b2d0d1cfb6684670693c (diff) | |
| download | tcl-2a8151fd1a52f6e52b76fb628af9d699cc580b35.zip tcl-2a8151fd1a52f6e52b76fb628af9d699cc580b35.tar.gz tcl-2a8151fd1a52f6e52b76fb628af9d699cc580b35.tar.bz2 | |
Those type-casts don't work well in C++
| -rw-r--r-- | generic/tclDecls.h | 2 |
1 files changed, 2 insertions, 0 deletions
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))) |