summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-22 10:51:04 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-22 10:51:04 (GMT)
commit90e7d603fcf06a4c1c35ebde8e4ddf74134d5844 (patch)
tree5c72174728826ad431deabc97f7e66399f8d3fe3 /win
parent607975b5dcc8af44e0fe65ab9ca787ed659e79bd (diff)
downloadtcl-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 'win')
-rw-r--r--win/tclWinError.c6
-rw-r--r--win/tclWinFile.c10
2 files changed, 16 insertions, 0 deletions
diff --git a/win/tclWinError.c b/win/tclWinError.c
index 63e9598..49eeed3 100644
--- a/win/tclWinError.c
+++ b/win/tclWinError.c
@@ -410,6 +410,12 @@ tclWinDebugPanic(
fprintf(stderr, "\n");
fflush(stderr);
}
+# if defined(__GNUC__)
+ __builtin_trap();
+# else
+ DebugBreak();
+# endif
+ abort();
}
#endif
/*
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 2cc14ec..4a49b6c 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -819,6 +819,16 @@ tclWinDebugPanic(
MessageBoxW(NULL, msgString, L"Fatal Error",
MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
}
+#if defined(__GNUC__)
+ __builtin_trap();
+#elif defined(_WIN64)
+ __debugbreak();
+#elif defined(_MSC_VER)
+ _asm {int 3}
+#else
+ DebugBreak();
+#endif
+ abort();
}
/*