summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 14:06:17 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-07-30 14:06:17 (GMT)
commitb06638a31cb3fb6d6671424bb6a96145d3c214bc (patch)
tree4f8bc37cfb822c78861919d9fa4611335f91a3b9 /generic
parentf9cd2ed03e8854ac2ce1e7c4c4af3a113428a7f3 (diff)
downloadtcl-b06638a31cb3fb6d6671424bb6a96145d3c214bc.zip
tcl-b06638a31cb3fb6d6671424bb6a96145d3c214bc.tar.gz
tcl-b06638a31cb3fb6d6671424bb6a96145d3c214bc.tar.bz2
eliminate the "testfinexit" command. We have the TCL_FINALIZE_ON_EXIT environment variable now, which makes "exit" do the same thing.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclTest.c57
1 files changed, 0 insertions, 57 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 680e360..b4192b2 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -313,11 +313,6 @@ static int TestexitmainloopCmd(ClientData dummy,
Tcl_Interp *interp, int argc, const char **argv);
static int TestpanicCmd(ClientData dummy,
Tcl_Interp *interp, int argc, const char **argv);
-#ifndef _WIN32
-static int TestfinexitObjCmd(ClientData dummy,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
-#endif /* _WIN32 */
static int TestparseargsCmd(ClientData dummy, Tcl_Interp *interp,
int objc, Tcl_Obj *const objv[]);
static int TestparserObjCmd(ClientData dummy,
@@ -640,9 +635,6 @@ Tcltest_Init(
Tcl_CreateObjCommand(interp, "testlocale", TestlocaleCmd, NULL,
NULL);
Tcl_CreateCommand(interp, "testpanic", TestpanicCmd, NULL, NULL);
-#ifndef _WIN32
- Tcl_CreateObjCommand(interp, "testfinexit", TestfinexitObjCmd, NULL, NULL);
-#endif /* _WIN32 */
Tcl_CreateObjCommand(interp, "testparseargs", TestparseargsCmd,NULL,NULL);
Tcl_CreateObjCommand(interp, "testparser", TestparserObjCmd,
NULL, NULL);
@@ -4556,55 +4548,6 @@ TestpanicCmd(
return TCL_OK;
}
-/*
- *----------------------------------------------------------------------
- *
- * TestfinexitObjCmd --
- *
- * Calls a variant of [exit] including the full finalization path.
- *
- * On Win32, the test suite is run with all Tcltest funcions in a dll,
- * but TclpExit cannot be called from inside a dynamically loaded dll.
- * It would mean that the dll is terminated, while there is still a
- * function on the stack which belong to the dll.
- *
- * Results:
- * Error, or doesn't return.
- *
- * Side effects:
- * Exits application.
- *
- *----------------------------------------------------------------------
- */
-
-#ifndef _WIN32
-static int
-TestfinexitObjCmd(
- ClientData dummy, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
-{
- int value;
-
- if ((objc != 1) && (objc != 2)) {
- Tcl_WrongNumArgs(interp, 1, objv, "?returnCode?");
- return TCL_ERROR;
- }
-
- if (objc == 1) {
- value = 0;
- } else if (Tcl_GetIntFromObj(interp, objv[1], &value) != TCL_OK) {
- return TCL_ERROR;
- }
- Tcl_Finalize();
- TclpExit(value);
- /*NOTREACHED*/
- return TCL_ERROR; /* Better not ever reach this! */
-}
-#endif /* _WIN32 */
-
-
static int
TestfileCmd(
ClientData dummy, /* Not used. */