diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-08 14:57:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-08 14:57:44 (GMT) |
commit | 8615597984a22e3bb59d7b48a14f9ab1ddb97b19 (patch) | |
tree | a7446487b66592dc58a984ce346bc1b2df201fbb /generic/tcl.h | |
parent | 47d3e9dbac2ab2524764539223eb014693787e58 (diff) | |
parent | a333bbaa120b022ca9f4a3c85add5c67546740b8 (diff) | |
download | tcl-8615597984a22e3bb59d7b48a14f9ab1ddb97b19.zip tcl-8615597984a22e3bb59d7b48a14f9ab1ddb97b19.tar.gz tcl-8615597984a22e3bb59d7b48a14f9ab1ddb97b19.tar.bz2 |
rebase TIP [http://tip.tcl.tk/425|425] implementation
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 ab54078..5c981a8 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, |