diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-08 17:16:36 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-08 17:16:36 (GMT) |
commit | 795fcf4f08882df1123a1ab6228a6cdf31fbb3eb (patch) | |
tree | ce1eec15448d13d9dff53c233970313d8f68876e /generic/tclPanic.c | |
parent | b5fe898956f0d887cbda3595f970480144e89073 (diff) | |
parent | a7858d818d69719efc88a5de7dfcf85032e7540b (diff) | |
download | tcl-795fcf4f08882df1123a1ab6228a6cdf31fbb3eb.zip tcl-795fcf4f08882df1123a1ab6228a6cdf31fbb3eb.tar.gz tcl-795fcf4f08882df1123a1ab6228a6cdf31fbb3eb.tar.bz2 |
Merge 8.7
Bring back Tcl_InitSubsystems to what Tcl_InitSubsystems was: without additional parameters or additional functionality
Diffstat (limited to 'generic/tclPanic.c')
-rw-r--r-- | generic/tclPanic.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c index 1eeafaa..4fce082 100644 --- a/generic/tclPanic.c +++ b/generic/tclPanic.c @@ -32,7 +32,7 @@ static TCL_NORETURN1 Tcl_PanicProc *panicProc = NULL; /* *---------------------------------------------------------------------- * - * TclSetPanicProc -- + * Tcl_SetPanicProc -- * * Replace the default panic behavior with the specified function. * @@ -46,7 +46,7 @@ static TCL_NORETURN1 Tcl_PanicProc *panicProc = NULL; */ void -TclSetPanicProc( +Tcl_SetPanicProc( TCL_NORETURN1 Tcl_PanicProc *proc) { #if defined(_WIN32) @@ -58,6 +58,7 @@ TclSetPanicProc( else #endif panicProc = proc; + Tcl_InitSubsystems(); } /* |