diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-29 10:51:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-29 10:51:05 (GMT) |
| commit | 92836928886971778f2a78bc2588eae383419b07 (patch) | |
| tree | bbdcccf47d8a9b09543a3a56d1653934043bdc11 /generic/tcl.h | |
| parent | 4bd227bc12b1ef9858d4bcabb100b79a3da8fdd6 (diff) | |
| parent | 017b8b10b611c4b8dbcbeaadc07559ace4a5e346 (diff) | |
| download | tcl-92836928886971778f2a78bc2588eae383419b07.zip tcl-92836928886971778f2a78bc2588eae383419b07.tar.gz tcl-92836928886971778f2a78bc2588eae383419b07.tar.bz2 | |
rebase
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 a833218..848b5d0 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2397,6 +2397,11 @@ const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, int exact); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); +#if defined(_WIN32) || defined(__CYGWIN__) + void Tcl_ConsolePanic(const char *format, ...); +#else +# define Tcl_ConsolePanic ((Tcl_PanicProc *)0) +#endif /* * When not using stubs, make it a macro. @@ -2417,7 +2422,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, |