diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-12 15:20:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-12 15:20:40 (GMT) |
commit | 830088187a0558fe12fec8d7691a3d4cfa030ebb (patch) | |
tree | dbf55a30b53458116aca5310fd66520442766a68 /generic/tclDecls.h | |
parent | af0441257350948ae892cc9c2dc798eea0a62d2c (diff) | |
parent | e6a868c242fb7ad99bf71d9d57597761e1fec9ab (diff) | |
download | tcl-830088187a0558fe12fec8d7691a3d4cfa030ebb.zip tcl-830088187a0558fe12fec8d7691a3d4cfa030ebb.tar.gz tcl-830088187a0558fe12fec8d7691a3d4cfa030ebb.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclDecls.h')
-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 65444fa..78eba87 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -4149,6 +4149,7 @@ 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 */ @@ -4156,6 +4157,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) # if defined(TCL_NO_DEPRECATED) |