diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-25 14:59:55 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-25 14:59:55 (GMT) |
commit | bb8b9a927b8786502e0138b340bbd8cd7ab8c156 (patch) | |
tree | af11aa5233e36439b8b6711af51d1ae1555246d9 /generic/tclEvent.c | |
parent | 12ac0ea3e53a457e944e695b85173a95e8692395 (diff) | |
parent | 6a4a4376357c5c7aec5a0a274a959d07823bda59 (diff) | |
download | tcl-bb8b9a927b8786502e0138b340bbd8cd7ab8c156.zip tcl-bb8b9a927b8786502e0138b340bbd8cd7ab8c156.tar.gz tcl-bb8b9a927b8786502e0138b340bbd8cd7ab8c156.tar.bz2 |
Fix for [ef23a85ac6]: Tcl_PanicProc - Tcl9 & NaviServer.
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 1a2f8ca..e7c09ca 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -105,7 +105,7 @@ static const char ENCODING_ERROR[] = "\n\t(encoding error in stderr)"; * non-NULL value. */ -static TCL_NORETURN1 Tcl_ExitProc *appExitPtr = NULL; +static Tcl_ExitProc *appExitPtr = NULL; typedef struct ThreadSpecificData { ExitHandler *firstExitPtr; /* First in list of all exit handlers for this @@ -888,7 +888,7 @@ Tcl_DeleteThreadExitHandler( Tcl_ExitProc * Tcl_SetExitProc( - TCL_NORETURN1 Tcl_ExitProc *proc) /* New exit handler for app or NULL */ + Tcl_ExitProc *proc) /* New exit handler for app or NULL */ { Tcl_ExitProc *prevExitProc; @@ -969,7 +969,7 @@ Tcl_Exit( int status) /* Exit status for application; typically 0 * for normal return, 1 for error return. */ { - TCL_NORETURN1 Tcl_ExitProc *currentAppExitPtr; + Tcl_ExitProc *currentAppExitPtr; Tcl_MutexLock(&exitMutex); currentAppExitPtr = appExitPtr; |