diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-10 11:37:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-10 11:37:16 (GMT) |
| commit | 0cc51f1259bd11611fce289213ceb3ae398d2406 (patch) | |
| tree | 39c5fd9c839999d121be2adb0b8386334439eb9c | |
| parent | 462e3dd262738368000603e841b1365c4dc115b4 (diff) | |
| download | tcl-0cc51f1259bd11611fce289213ceb3ae398d2406.zip tcl-0cc51f1259bd11611fce289213ceb3ae398d2406.tar.gz tcl-0cc51f1259bd11611fce289213ceb3ae398d2406.tar.bz2 | |
Follow-up for extensions: This way, usage of Tcl_EventuallyFree() won't give warnings any more. Only do this for 8.6 and 8.7, _not_ for 9.0!
| -rw-r--r-- | generic/tclDecls.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 8a226a9..79a2f7b 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3973,6 +3973,9 @@ 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)) +# undef Tcl_EventuallyFree +# define Tcl_EventuallyFree \ + ((void (*)(void *,void *))(void *)(tclStubsPtr->tcl_EventuallyFree)) /* 132 */ #endif #if defined(_WIN32) && defined(UNICODE) |