diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-03-13 20:54:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-03-13 20:54:28 (GMT) |
| commit | cfc3f536cfd30e77438a61a1d595d99ab29678ec (patch) | |
| tree | ef848e62955c4b167077dd0c609a90e641ea2e94 /generic/tclTest.c | |
| parent | ae922795baff8b720c196767781ad54b13dcb246 (diff) | |
| download | tcl-cfc3f536cfd30e77438a61a1d595d99ab29678ec.zip tcl-cfc3f536cfd30e77438a61a1d595d99ab29678ec.tar.gz tcl-cfc3f536cfd30e77438a61a1d595d99ab29678ec.tar.bz2 | |
spacing
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index be31501..321fe5a 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -532,12 +532,10 @@ Tcltest_Init( } if (Tcl_GetCommandInfo(interp, "::tcl::build-info", &info)) { -#if TCL_MAJOR_VERSION > 8 if (info.isNativeObjectProc == 2) { Tcl_CreateObjCommand2(interp, "::tcl::test::build-info", info.objProc2, (void *)version, NULL); } else -#endif Tcl_CreateObjCommand(interp, "::tcl::test::build-info", info.objProc, (void *)version, NULL); } @@ -801,12 +799,10 @@ Tcltest_SafeInit( return TCL_ERROR; } if (Tcl_GetCommandInfo(interp, "::tcl::build-info", &info)) { -#if TCL_MAJOR_VERSION > 8 if (info.isNativeObjectProc == 2) { Tcl_CreateObjCommand2(interp, "::tcl::test::build-info", info.objProc2, (void *)version, NULL); } else -#endif Tcl_CreateObjCommand(interp, "::tcl::test::build-info", info.objProc, (void *)version, NULL); } @@ -2046,12 +2042,8 @@ TestdstringCmd( */ static void SpecialFree( -#if TCL_MAJOR_VERSION > 8 - void *blockPtr /* Block to free. */ -#else - char *blockPtr /* Block to free. */ -#endif -) { + void *blockPtr) /* Block to free. */ +{ Tcl_Free(((char *)blockPtr) - 16); } |