diff options
| -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); } /* *------------------------------------------------------------------------- |