diff options
| author | davygrvy <davygrvy@noemail.net> | 2003-12-12 00:42:09 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@noemail.net> | 2003-12-12 00:42:09 (GMT) |
| commit | 7ec5452d6da93abb28d1a5eded1b15d2b6d2ac57 (patch) | |
| tree | 11589ea40f52df7ac5291812ecd0a2b0df0058e4 /win/winMain.c | |
| parent | 3028c402fafddfe8c50dba39e658fecdafe3a6ea (diff) | |
| download | tk-7ec5452d6da93abb28d1a5eded1b15d2b6d2ac57.zip tk-7ec5452d6da93abb28d1a5eded1b15d2b6d2ac57.tar.gz tk-7ec5452d6da93abb28d1a5eded1b15d2b6d2ac57.tar.bz2 | |
Reverted to 1.15 for two reasons. 1) problem is best addressed in Tcl's
DllMain() and 2) needs a MinGW custom assembly implimentation as
it doesn't understand SEH syntax.
FossilOrigin-Name: 569264164f3b2fa616ef2300d5e54c19f7d78ec6
Diffstat (limited to 'win/winMain.c')
| -rw-r--r-- | win/winMain.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/win/winMain.c b/win/winMain.c index 1f4392f..2d2b161 100644 --- a/win/winMain.c +++ b/win/winMain.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: winMain.c,v 1.15.2.1 2003/12/11 03:32:05 davygrvy Exp $ + * RCS: @(#) $Id: winMain.c,v 1.15.2.2 2003/12/12 00:42:10 davygrvy Exp $ */ #include <tk.h> @@ -32,7 +32,7 @@ */ static void setargv _ANSI_ARGS_((int *argcPtr, char ***argvPtr)); -static void WishPanic _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); +static Tcl_PanicProc WishPanic; #ifdef TK_TEST extern int Tktest_Init(Tcl_Interp *interp); @@ -239,12 +239,10 @@ WishPanic TCL_VARARGS_DEF(CONST char *,arg1) MessageBeep(MB_ICONEXCLAMATION); MessageBox(NULL, buf, "Fatal Error in Wish", MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND); +#ifdef _MSC_VER DebugBreak(); - __try { - ExitProcess(EXIT_FAILURE); - } __except (EXCEPTION_EXECUTE_HANDLER) { - TerminateProcess(GetCurrentProcess(), EXIT_FAILURE); - } +#endif + ExitProcess(1); } /* *------------------------------------------------------------------------- |