diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-11 09:45:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-11 09:45:45 (GMT) |
| commit | 76c89fce6cae52d0fbdbba1ff0c412f73e7985e9 (patch) | |
| tree | 42d3c2474078cdab8f39c4925c5b0237ab81b66e /generic/tclTest.c | |
| parent | a74d73bc13dd4961d02d3974912000145bff5d1a (diff) | |
| parent | a64802e7ede7f1794273c96ae87b61920c268964 (diff) | |
| download | tcl-76c89fce6cae52d0fbdbba1ff0c412f73e7985e9.zip tcl-76c89fce6cae52d0fbdbba1ff0c412f73e7985e9.tar.gz tcl-76c89fce6cae52d0fbdbba1ff0c412f73e7985e9.tar.bz2 | |
Fix [8ab8a138c9]: Functions passed to Tcl_EventuallyFree() must be declared/defined as Tcl_FreeProc
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index d05ef7d..ea23d40 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -204,7 +204,7 @@ static int ObjTraceProc(ClientData clientData, Tcl_Obj *const objv[]); static void ObjTraceDeleteProc(ClientData clientData); static void PrintParse(Tcl_Interp *interp, Tcl_Parse *parsePtr); -static void SpecialFree(char *blockPtr); +static Tcl_FreeProc SpecialFree; static int StaticInitProc(Tcl_Interp *interp); static Tcl_CmdProc TestasyncCmd; static Tcl_ObjCmdProc TestbumpinterpepochObjCmd; @@ -265,7 +265,7 @@ static Tcl_ObjCmdProc TestreturnObjCmd; static void TestregexpXflags(const char *string, int length, int *cflagsPtr, int *eflagsPtr); static Tcl_ObjCmdProc TestsaveresultCmd; -static void TestsaveresultFree(char *blockPtr); +static Tcl_FreeProc TestsaveresultFree; static Tcl_CmdProc TestsetassocdataCmd; static Tcl_CmdProc TestsetCmd; static Tcl_CmdProc Testset2Cmd; @@ -1811,9 +1811,13 @@ TestdstringCmd( */ static void SpecialFree( +#if TCL_MAJOR_VERSION > 8 + void *blockPtr /* Block to free. */ +#else char *blockPtr /* Block to free. */ +#endif ) { - ckfree(blockPtr - 16); + ckfree((char *)blockPtr - 16); } /* @@ -5489,7 +5493,11 @@ TestsaveresultCmd( static void TestsaveresultFree( +#if TCL_MAJOR_VERSION > 8 + void *blockPtr) +#else char *blockPtr) +#endif { freeCount++; } |