diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-18 22:25:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-10-18 22:25:04 (GMT) |
commit | 0b6248c50aeb2e05ea6f998675298dae0b42ad10 (patch) | |
tree | 0e0ce5c85adebfc681828a38656ecc69dd1e5b66 /generic/tclStubInit.c | |
parent | 441aa364da925dc4c66389f43005c2f9ee7e3a12 (diff) | |
parent | 8bfcffa20a688e9e8b81a15034d61328ef87b3c4 (diff) | |
download | tcl-0b6248c50aeb2e05ea6f998675298dae0b42ad10.zip tcl-0b6248c50aeb2e05ea6f998675298dae0b42ad10.tar.gz tcl-0b6248c50aeb2e05ea6f998675298dae0b42ad10.tar.bz2 |
Rebase TIP-414 to TIP-512: If Tcl_SetPanicProc doesn't have a stub entry, it can take over the function of Tcl_InitSubsystems, just by changing its return value. TIP-512 description still to be adapted accordingly.
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r-- | generic/tclStubInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index bfc0db7..ed61bbd 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -45,6 +45,7 @@ #undef Tcl_CreateHashEntry #undef Tcl_Panic #undef Tcl_FindExecutable +#undef Tcl_SetExitProc #undef Tcl_SetPanicProc #undef TclpGetPid #undef TclSockMinimumBuffers @@ -92,7 +93,6 @@ static int TclSockMinimumBuffersOld(int sock, int size) # define Tcl_CreateMathFunc 0 # define Tcl_GetMathFuncInfo 0 # define Tcl_ListMathFuncs 0 -# define Tcl_SetPanicProc 0 #else #define TclSetStartupScriptPath setStartupScriptPath static void TclSetStartupScriptPath(Tcl_Obj *path) @@ -397,6 +397,9 @@ static int uniCharNcasecmp(const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsig # define TclpGmtime 0 # define TclpLocaltime_unix 0 # define TclpGmtime_unix 0 +# define Tcl_SetExitProc 0 +# define Tcl_SetPanicProc 0 +# define Tcl_FindExecutable 0 # define Tcl_GetUnicode 0 #else /* TCL_NO_DEPRECATED */ # define Tcl_SeekOld seekOld @@ -418,6 +421,7 @@ static int uniCharNcasecmp(const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsig # define TclGetCommandFullName Tcl_GetCommandFullName # define TclpLocaltime_unix TclpLocaltime # define TclpGmtime_unix TclpGmtime +# define Tcl_SetPanicProc (const char *(*)(TCL_NORETURN1 Tcl_PanicProc *))TclSetPanicProc static int seekOld( |