summaryrefslogtreecommitdiffstats
path: root/generic/tclPanic.c
diff options
context:
space:
mode:
authorhypnotoad <yoda@etoyoc.com>2015-10-26 04:02:36 (GMT)
committerhypnotoad <yoda@etoyoc.com>2015-10-26 04:02:36 (GMT)
commit90b38da321e1b5d5885e4d4f57c8e8bc46a00793 (patch)
tree21fefd2f79c00cd95297dea6fce75902ffe07ba1 /generic/tclPanic.c
parente448db56ee02e80b29e2fc3c2d07313e592ba554 (diff)
parent3fc99c04f6169eb97c2581310c254aefc9e14d6a (diff)
downloadtcl-90b38da321e1b5d5885e4d4f57c8e8bc46a00793.zip
tcl-90b38da321e1b5d5885e4d4f57c8e8bc46a00793.tar.gz
tcl-90b38da321e1b5d5885e4d4f57c8e8bc46a00793.tar.bz2
Merged with trunk, fixes to allow builds outside of the tcl/unix|win directory
Diffstat (limited to 'generic/tclPanic.c')
-rw-r--r--generic/tclPanic.c17
1 files changed, 12 insertions, 5 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c
index 2a453b9..b032449 100644
--- a/generic/tclPanic.c
+++ b/generic/tclPanic.c
@@ -15,7 +15,7 @@
#include "tclInt.h"
#if defined(_WIN32) || defined(__CYGWIN__)
- MODULE_SCOPE void tclWinDebugPanic(const char *format, ...);
+ MODULE_SCOPE TCL_NORETURN void tclWinDebugPanic(const char *format, ...);
#endif
/*
@@ -24,9 +24,9 @@
*/
#if defined(__CYGWIN__)
-static Tcl_PanicProc *panicProc = tclWinDebugPanic;
+static TCL_NORETURN Tcl_PanicProc *panicProc = tclWinDebugPanic;
#else
-static Tcl_PanicProc *panicProc = NULL;
+static TCL_NORETURN1 Tcl_PanicProc *panicProc = NULL;
#endif
/*
@@ -47,7 +47,7 @@ static Tcl_PanicProc *panicProc = NULL;
void
Tcl_SetPanicProc(
- Tcl_PanicProc *proc)
+ TCL_NORETURN1 Tcl_PanicProc *proc)
{
#if defined(_WIN32)
/* tclWinDebugPanic only installs if there is no panicProc yet. */
@@ -141,7 +141,14 @@ Tcl_PanicVA(
*----------------------------------------------------------------------
*/
- /* ARGSUSED */
+/* ARGSUSED */
+
+/*
+ * The following comment is here so that Coverity's static analizer knows that
+ * a Tcl_Panic() call can never return and avoids lots of false positives.
+ */
+
+/* coverity[+kill] */
void
Tcl_Panic(
const char *format,