diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-06-26 17:07:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-06-26 17:07:02 (GMT) |
| commit | 968382225704b01ee24ffa2764db83b5549b279d (patch) | |
| tree | 0debd45093f1e024dcb0b40ba968a09bc077ba48 /generic/tclTest.c | |
| parent | bf884c9bc9d2e89919144c2271c72b96a1eebbef (diff) | |
| parent | 9da2aebeaebd1ccbfa806b0c3550774abc7ad778 (diff) | |
| download | tcl-968382225704b01ee24ffa2764db83b5549b279d.zip tcl-968382225704b01ee24ffa2764db83b5549b279d.tar.gz tcl-968382225704b01ee24ffa2764db83b5549b279d.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 814d734..ac01ecf 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -44,7 +44,6 @@ DLLEXPORT int Tcltest_Init(Tcl_Interp *interp); DLLEXPORT int Tcltest_SafeInit(Tcl_Interp *interp); -EXTERN TCL_NORETURN void Tcltest_Exit(ClientData clientData); /* * Dynamic string shared by TestdcallCmd and DelCallbackProc; used to collect @@ -571,10 +570,6 @@ Tcltest_Init( return TCL_ERROR; } - - /* Finalizer */ - Tcl_SetExitProc(Tcltest_Exit); - /* * Create additional commands and math functions for testing Tcl. */ @@ -802,17 +797,6 @@ Tcltest_SafeInit( return Procbodytest_SafeInit(interp); } -TCL_NORETURN void Tcltest_Exit( - ClientData clientData -) { - int status = PTR2INT(clientData); - Tcl_Finalize(); - TclThreadTestFinalize(); - TclpExit(status); - Tcl_Panic("OS exit failed!"); -} - - /* *---------------------------------------------------------------------- * |