diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-08 11:04:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-08 11:04:34 (GMT) |
| commit | 15f27ca8f22cf02047544fa5d06f227d9f1d14f8 (patch) | |
| tree | e6ce49deb69fd3115a9a2055b3272390e65bedb0 /generic/tcl.h | |
| parent | 413fe66650f5b1467098f19daeee0c8843bebc4c (diff) | |
| parent | b5273bc1fa5f55149f34824435b65ea807794abc (diff) | |
| download | tcl-15f27ca8f22cf02047544fa5d06f227d9f1d14f8.zip tcl-15f27ca8f22cf02047544fa5d06f227d9f1d14f8.tar.gz tcl-15f27ca8f22cf02047544fa5d06f227d9f1d14f8.tar.bz2 | |
Rebase to trunk
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index da9b292..086985a 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2407,6 +2407,11 @@ const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, int exact, int magic); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); +#if defined(_WIN32) + TCL_NORETURN void Tcl_ConsolePanic(const char *format, ...); +#else +# define Tcl_ConsolePanic ((Tcl_PanicProc *)0) +#endif #ifdef USE_TCL_STUBS #define Tcl_InitStubs(interp, version, exact) \ @@ -2425,7 +2430,7 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, */ #define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \ - ((Tcl_CreateInterp)())) + ((Tcl_SetPanicProc(Tcl_ConsolePanic), Tcl_CreateInterp)())) EXTERN void Tcl_MainEx(int argc, char **argv, Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); EXTERN const char * Tcl_PkgInitStubsCheck(Tcl_Interp *interp, |