138 lines
5.8 KiB
C
138 lines
5.8 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2013 Fidelity Information Services, Inc *
|
|
* *
|
|
* This source code contains the intellectual property *
|
|
* of its copyright holder(s), and is made available *
|
|
* under a license. If you do not know the terms of *
|
|
* the license, please stop and do not read further. *
|
|
* *
|
|
****************************************************************/
|
|
|
|
/* Perform necessary functions for signal handling that was deferred */
|
|
#include "mdef.h"
|
|
|
|
#include "gtm_stdlib.h" /* for exit() */
|
|
|
|
#include <signal.h>
|
|
|
|
#include "error.h"
|
|
#include "gtmsiginfo.h"
|
|
#include "gtmimagename.h"
|
|
#include "send_msg.h"
|
|
#include "gtmio.h"
|
|
#include "have_crit.h"
|
|
#include "deferred_signal_handler.h"
|
|
#include "gtmmsg.h"
|
|
#ifdef DEBUG
|
|
#include "wcs_sleep.h"
|
|
#include "wbox_test_init.h"
|
|
#include "gt_timer.h"
|
|
#include "io.h"
|
|
#endif
|
|
|
|
GBLREF int4 exi_condition;
|
|
GBLREF void (*call_on_signal)();
|
|
GBLREF int forced_exit_err;
|
|
GBLREF uint4 process_id;
|
|
GBLREF gtmsiginfo_t signal_info;
|
|
GBLREF gtmImageName gtmImageNames[];
|
|
GBLREF enum gtmImageTypes image_type;
|
|
GBLREF boolean_t exit_handler_active;
|
|
GBLREF boolean_t gtm_quiet_halt;
|
|
GBLREF volatile int4 gtmMallocDepth; /* Recursion indicator */
|
|
GBLREF intrpt_state_t intrpt_ok_state;
|
|
|
|
error_def(ERR_FORCEDHALT);
|
|
error_def(ERR_KILLBYSIG);
|
|
error_def(ERR_KILLBYSIGSINFO1);
|
|
error_def(ERR_KILLBYSIGSINFO2);
|
|
error_def(ERR_KILLBYSIGSINFO3);
|
|
error_def(ERR_KILLBYSIGUINFO);
|
|
|
|
void deferred_signal_handler(void)
|
|
{
|
|
void (*signal_routine)();
|
|
DCL_THREADGBL_ACCESS;
|
|
|
|
SETUP_THREADGBL_ACCESS;
|
|
/* To avoid nested calls to this routine, progress the forced_exit state. */
|
|
SET_FORCED_EXIT_STATE_ALREADY_EXITING;
|
|
|
|
if (exit_handler_active)
|
|
{
|
|
assert(FALSE); /* at this point in time (June 2003) there is no way we know of to get here, hence the assert */
|
|
return; /* since anyway we are exiting currently, resume exit handling instead of reissuing another one */
|
|
}
|
|
/* For signals that get a delayed response so we can get out of crit, we also delay the messages.
|
|
* This routine will output those delayed messages from the appropriate structures to both the
|
|
* user and the system console.
|
|
*/
|
|
/* note can't use switch here because ERR_xxx are not defined as constants */
|
|
if (ERR_KILLBYSIG == forced_exit_err)
|
|
{
|
|
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(6) ERR_KILLBYSIG, 4, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal);
|
|
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(6) ERR_KILLBYSIG, 4, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal);
|
|
} else if (ERR_KILLBYSIGUINFO == forced_exit_err)
|
|
{
|
|
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(8) ERR_KILLBYSIGUINFO, 6, GTMIMAGENAMETXT(image_type), process_id,
|
|
signal_info.signal, signal_info.send_pid, signal_info.send_uid);
|
|
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(8) ERR_KILLBYSIGUINFO, 6, GTMIMAGENAMETXT(image_type), process_id,
|
|
signal_info.signal, signal_info.send_pid, signal_info.send_uid);
|
|
} else if (ERR_KILLBYSIGSINFO1 == forced_exit_err)
|
|
{
|
|
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(8) ERR_KILLBYSIGSINFO1, 6, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal, signal_info.int_iadr, signal_info.bad_vadr);
|
|
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(8) ERR_KILLBYSIGSINFO1, 6, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal, signal_info.int_iadr, signal_info.bad_vadr);
|
|
} else if (ERR_KILLBYSIGSINFO2 == forced_exit_err)
|
|
{
|
|
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(7) ERR_KILLBYSIGSINFO2, 5, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal, signal_info.int_iadr);
|
|
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(7) ERR_KILLBYSIGSINFO2, 5, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal, signal_info.int_iadr);
|
|
} else if (ERR_KILLBYSIGSINFO3 == forced_exit_err)
|
|
{
|
|
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(7) ERR_KILLBYSIGSINFO3, 5, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal, signal_info.bad_vadr);
|
|
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(7) ERR_KILLBYSIGSINFO3, 5, GTMIMAGENAMETXT(image_type),
|
|
process_id, signal_info.signal, signal_info.bad_vadr);
|
|
} else if (ERR_FORCEDHALT != forced_exit_err || !gtm_quiet_halt)
|
|
{ /* No HALT messages if quiet halt is requested */
|
|
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(1) forced_exit_err);
|
|
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(1) forced_exit_err);
|
|
}
|
|
assert(OK_TO_INTERRUPT);
|
|
/* Signal intent to exit BEFORE driving condition handlers. This avoids checks that will otherwise fail (for example
|
|
* if mdb_condition_handler/preemptive_db_clnup gets called below, that could invoke the RESET_GV_TARGET macro which in turn
|
|
* would assert that gv_target->gd_csa is equal to cs_addrs. This could not be true in case we were in mainline code
|
|
* that was interrupted by the flush timer for a different region which in turn was interrupted by an external signal
|
|
* that would drive us to exit. Setting the "process_exiting" variable causes those csa checks to pass.
|
|
*/
|
|
SET_PROCESS_EXITING_TRUE;
|
|
# ifdef DEBUG
|
|
if (gtm_white_box_test_case_enabled && (WBTEST_DEFERRED_TIMERS == gtm_white_box_test_case_number)
|
|
&& (2 == gtm_white_box_test_case_count))
|
|
{
|
|
DEFER_INTERRUPTS(INTRPT_NO_TIMER_EVENTS);
|
|
DBGFPF((stderr, "DEFERRED_SIGNAL_HANDLER: will sleep for 20 seconds\n"));
|
|
LONG_SLEEP(20);
|
|
DBGFPF((stderr, "DEFERRED_SIGNAL_HANDLER: done sleeping\n"));
|
|
ENABLE_INTERRUPTS(INTRPT_NO_TIMER_EVENTS);
|
|
}
|
|
# endif
|
|
/* If any special routines are registered to be driven on a signal, drive them now */
|
|
if ((0 != exi_condition) && (NULL != call_on_signal))
|
|
{
|
|
signal_routine = call_on_signal;
|
|
call_on_signal = NULL; /* So we don't recursively call ourselves */
|
|
(*signal_routine)();
|
|
}
|
|
/* Note, we do not drive create_fatal_error zshow_dmp() in this routine since any deferrable signals are
|
|
* by definition not fatal.
|
|
*/
|
|
exit(-exi_condition);
|
|
}
|