diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-22 10:51:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-22 10:51:04 (GMT) |
| commit | 90e7d603fcf06a4c1c35ebde8e4ddf74134d5844 (patch) | |
| tree | 5c72174728826ad431deabc97f7e66399f8d3fe3 /generic/tclPanic.c | |
| parent | 607975b5dcc8af44e0fe65ab9ca787ed659e79bd (diff) | |
| download | tcl-90e7d603fcf06a4c1c35ebde8e4ddf74134d5844.zip tcl-90e7d603fcf06a4c1c35ebde8e4ddf74134d5844.tar.gz tcl-90e7d603fcf06a4c1c35ebde8e4ddf74134d5844.tar.bz2 | |
Restored the possibility to define a panicproc as
low memory handler See: [#1446864]
Diffstat (limited to 'generic/tclPanic.c')
| -rw-r--r-- | generic/tclPanic.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c index 84a9136..b87a8df 100644 --- a/generic/tclPanic.c +++ b/generic/tclPanic.c @@ -102,24 +102,23 @@ Tcl_PanicVA( arg8); fprintf(stderr, "\n"); fflush(stderr); - } - /* In case the users panic proc does not abort, we do it here */ #if defined(_WIN32) || defined(__CYGWIN__) # if defined(__GNUC__) - __builtin_trap(); + __builtin_trap(); # elif defined(_WIN64) - __debugbreak(); + __debugbreak(); # elif defined(_MSC_VER) - _asm {int 3} + _asm {int 3} # else - DebugBreak(); + DebugBreak(); # endif #endif #if defined(_WIN32) - ExitProcess(1); + ExitProcess(1); #else - abort(); + abort(); #endif + } } /* |