Tcl Source Code

Check-in [c0f71bd0ce]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Still one TCL_NORETURN1 too much
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-ef23a85ac6
Files: files | file ages | folders
SHA3-256: c0f71bd0ce68ef99c1c49994b4a3c618012002d3fc690f2ae48faf813d0e8559
User & Date: jan.nijtmans 2024-04-23 20:17:26
Context
2024-04-23
20:36
Missing "_" in __declspec check-in: 8cc1729b8b user: jan.nijtmans tags: bug-ef23a85ac6
20:17
Still one TCL_NORETURN1 too much check-in: c0f71bd0ce user: jan.nijtmans tags: bug-ef23a85ac6
20:11
Possible fix for [ef23a85ac6]: Tcl_PanicProc - Tcl9 & NaviServer check-in: c521a5fc71 user: jan.nijtmans tags: bug-ef23a85ac6
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclEvent.c.

873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
 *	Sets the application wide exit handler to the specified value.
 *
 *----------------------------------------------------------------------
 */

Tcl_ExitProc *
Tcl_SetExitProc(
    TCL_NORETURN1 Tcl_ExitProc *proc)		/* New exit handler for app or NULL */
{
    Tcl_ExitProc *prevExitProc;

    /*
     * Swap the old exit proc for the new one, saving the old one for our
     * return value.
     */







|







873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
 *	Sets the application wide exit handler to the specified value.
 *
 *----------------------------------------------------------------------
 */

Tcl_ExitProc *
Tcl_SetExitProc(
    Tcl_ExitProc *proc)		/* New exit handler for app or NULL */
{
    Tcl_ExitProc *prevExitProc;

    /*
     * Swap the old exit proc for the new one, saving the old one for our
     * return value.
     */