diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 09:28:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 09:28:07 (GMT) |
commit | 11a46777ef00852641550567b6c0542a002b6a06 (patch) | |
tree | e5ca880f2a85abc52f037076b21a19aab52642d0 | |
parent | b3eff3a97fbc4dbdc25cefac076522a28027151e (diff) | |
parent | 5008f96987e48646b535e011b6c9f7083159e327 (diff) | |
download | tcl-11a46777ef00852641550567b6c0542a002b6a06.zip tcl-11a46777ef00852641550567b6c0542a002b6a06.tar.gz tcl-11a46777ef00852641550567b6c0542a002b6a06.tar.bz2 |
Eliminate (internal) TclpExit(), which is just the same as exit()
-rw-r--r-- | generic/tclEvent.c | 3 | ||||
-rw-r--r-- | unix/tclUnixPort.h | 2 | ||||
-rw-r--r-- | win/tclWinError.c | 2 | ||||
-rw-r--r-- | win/tclWinPort.h | 2 |
4 files changed, 2 insertions, 7 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 49467c8..334cfae 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1012,8 +1012,7 @@ Tcl_Exit( } } - TclpExit(status); - Tcl_Panic("OS exit failed!"); + exit(status); } /* diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index cdc67d2..513ffdd 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -658,8 +658,6 @@ typedef int socklen_t; *--------------------------------------------------------------------------- */ -#define TclpExit exit - #if !defined(TCL_THREADS) || TCL_THREADS # include <pthread.h> #endif /* TCL_THREADS */ diff --git a/win/tclWinError.c b/win/tclWinError.c index 3e75a85..fb1c04c 100644 --- a/win/tclWinError.c +++ b/win/tclWinError.c @@ -381,7 +381,7 @@ Tcl_WinConvertError( *---------------------------------------------------------------------- */ -void +MODULE_SCOPE void tclWinDebugPanic( const char *format, ...) { diff --git a/win/tclWinPort.h b/win/tclWinPort.h index c17cada..efd9ff2 100644 --- a/win/tclWinPort.h +++ b/win/tclWinPort.h @@ -537,8 +537,6 @@ typedef DWORD_PTR * PDWORD_PTR; * functions. */ -#define TclpExit exit - #ifndef INVALID_SET_FILE_POINTER #define INVALID_SET_FILE_POINTER 0xFFFFFFFF #endif /* INVALID_SET_FILE_POINTER */ |