Jeremy Lorelli
721e9cc3a7
This flag causes EPICS to call abort() on assertion failures rather than suspend the executing thread. With the epicsThreadSuspendSelf() behavior, an IOC can end up in a difficult to detect error state where one or more threads has essentially crashed due to an assertion failure. This also matches the C behavior of assert(3)
65 lines
1.9 KiB
C
65 lines
1.9 KiB
C
/*************************************************************************\
|
|
* Copyright (c) 2009 UChicago Argonne LLC, as Operator of Argonne
|
|
* National Laboratory.
|
|
* Copyright (c) 2002 The Regents of the University of California, as
|
|
* Operator of Los Alamos National Laboratory.
|
|
* SPDX-License-Identifier: EPICS
|
|
* EPICS BASE is distributed subject to a Software License Agreement found
|
|
* in file LICENSE that is included with this distribution.
|
|
\*************************************************************************/
|
|
/*
|
|
* Author: Jeffrey Hill
|
|
* Date: 02-27-95
|
|
*/
|
|
|
|
#include "dbDefs.h"
|
|
#include "epicsPrint.h"
|
|
#include "epicsVersion.h"
|
|
#include "epicsAssert.h"
|
|
#include "epicsThread.h"
|
|
#include "epicsTime.h"
|
|
#include "cantProceed.h"
|
|
#include "epicsStackTrace.h"
|
|
#include "envDefs.h"
|
|
|
|
|
|
void epicsAssert (const char *pFile, const unsigned line,
|
|
const char *pExp, const char *pAuthorName)
|
|
{
|
|
epicsTimeStamp current;
|
|
int shouldAbort = 0;
|
|
|
|
errlogPrintf("\n\n\n"
|
|
"A call to 'assert(%s)'\n"
|
|
" by thread '%s' failed in %s line %u.\n",
|
|
pExp, epicsThreadGetNameSelf(), pFile, line);
|
|
|
|
epicsStackTrace();
|
|
|
|
errlogPrintf("EPICS Release %s.\n", epicsReleaseVersion);
|
|
|
|
if (epicsTimeGetCurrent(¤t) == 0) {
|
|
char date[64];
|
|
|
|
epicsTimeToStrftime(date, sizeof(date),
|
|
"%Y-%m-%d %H:%M:%S.%f %Z", ¤t);
|
|
errlogPrintf("Local time is %s\n", date);
|
|
}
|
|
|
|
if (!pAuthorName) {
|
|
pAuthorName = "the author";
|
|
}
|
|
errlogPrintf("Please E-mail this message to %s or to tech-talk@aps.anl.gov\n",
|
|
pAuthorName);
|
|
|
|
if (envGetBoolConfigParam(&EPICS_ABORT_ON_ASSERT, &shouldAbort) == 0 && shouldAbort) {
|
|
errlogPrintf("Calling abort()\n");
|
|
errlogFlush();
|
|
abort();
|
|
}
|
|
else {
|
|
errlogPrintf("Calling epicsThreadSuspendSelf()\n");
|
|
epicsThreadSuspendSelf ();
|
|
}
|
|
}
|