csa = &udi->s_addrs;
/* Assert that we never come into rel_lock with hold_onto_crit being TRUE. The only exception is for online rollback
* when it is done with the actual rollback and is now in mur_close_files to release crit. At this point it will have
* hold_onto_crit set to TRUE.
*/
assert(!csa->hold_onto_crit || (process_exiting && jgbl.onlnrlbk));
if (csa->now_crit)
{
assert(0 == crit_count);
crit_count++; /* prevent interrupts */
assert(csa->nl->in_crit == process_id || csa->nl->in_crit == 0);
CRIT_TRACE(crit_ops_rw); /* see gdsbt.h for comment on placement */
csa->nl->in_crit = 0;
DEBUG_ONLY(locknl = csa->nl;) /* for DEBUG_ONLY LOCK_HIST macro */
/* As of 10/07/98, crashcnt field in mutex_struct is not changed by any function for the dummy region */
status = mutex_unlockw(reg, 0);
DEBUG_ONLY(locknl = NULL;) /* restore "locknl" to default value */
if (status != cdb_sc_normal)
{
csa->now_crit = FALSE;
crit_count = 0;
if (status == cdb_sc_critreset)
rts_error(VARLSTCNT(4) ERR_CRITRESET, 2, REG_LEN_STR(reg));
else
{
assert(status == cdb_sc_dbccerr);
rts_error(VARLSTCNT(4) ERR_DBCCERR, 2, REG_LEN_STR(reg));
}
return;
}
crit_count = 0;
error_def(ERR_CRITRESET);
error_def(ERR_DBCCERR);
udi = FILE_INFO(reg);
csa = &udi->s_addrs;
assert(!hold_onto_locks && !csa->hold_onto_crit);
if (csa->now_crit)
{
assert(0 == crit_count);
crit_count++; /* prevent interrupts */
assert(csa->nl->in_crit == process_id || csa->nl->in_crit == 0);
CRIT_TRACE(crit_ops_rw); /* see gdsbt.h for comment on placement */
csa->nl->in_crit = 0;
DEBUG_ONLY(locknl = csa->nl;) /* for DEBUG_ONLY LOCK_HIST macro */
status = mutex_unlockw(reg, crash_count);
DEBUG_ONLY(locknl = NULL;) /* restore "locknl" to default value */
if (status != cdb_sc_normal)
{
csa->now_crit = FALSE;
crit_count = 0;
if (status == cdb_sc_critreset)
rts_error(VARLSTCNT(4) ERR_CRITRESET, 2, REG_LEN_STR(reg));
else
{
assert(status == cdb_sc_dbccerr);
rts_error(VARLSTCNT(4) ERR_DBCCERR, 2, REG_LEN_STR(reg));
}
return;
}
crit_count = 0;
void ccp_reqwm_interrupt(ccp_db_header **pdb)
{
ccp_db_header *db;
sgmnt_addrs *csa;
uint4 status;
assert(lib$ast_in_prog());
db = *pdb;
csa = db->segment;
if (csa == NULL || csa->nl->ccp_state == CCST_CLOSED)
return;
switch (db->wm_iosb.cond)
{
case SS$_DEADLOCK:
ccp_signal_cont(SS$_DEADLOCK);
/* Just try again */
ccp_request_write_mode(db);
return;
case SS$_CANCEL:
/* Lock cancelled by close */
return;
case SS$_VALNOTVALID:
/* Force reads from disk */
db->wm_iosb.valblk[CCP_VALBLK_TRANS_HIST] = 0;
db->last_lk_sequence = db->master_map_start_tn
= 0;
/* Drop through ... */
case SS$_NORMAL:
if (db->wm_iosb.valblk[CCP_VALBLK_TRANS_HIST] == csa->ti->curr_tn + csa->ti->lock_sequence)
{
/* No change to current tn, do not need to update header */
if (csa->now_crit)
{
assert (csa->nl->in_crit == process_id);
csa->nl->in_crit = 0;
(void)mutex_unlockw(csa->critical, csa->critical->crashcnt, &csa->now_crit);
/***** Check error status here? *****/
}
ccp_writedb5(db);
}
else
{
if (csa->nl->in_crit == 0)
{
if (mutex_lockwim(csa->critical, csa->critical->crashcnt, &csa->now_crit) == cdb_sc_normal)
csa->nl->in_crit = process_id; /* now_crit was set by mutex_lockwim */
else
if (csa->nl->in_crit == 0) /***** Why is this re-tested? *****/
{
status = sys$setimr(0, delta_100_msec, ccp_reqwm_interrupt, &db->wmcrit_timer_id,
0);
if (status != SS$_NORMAL)
ccp_signal_cont(status); /***** Is this reasonable? *****/
return;
}
}
status = sys$qio(0, FILE_INFO(db->greg)->fab->fab$l_stv, IO$_READVBLK, &db->qio_iosb, ccp_writedb2, db,
&db->glob_sec->trans_hist, BT_SIZE(csa->hdr) + SIZEOF(th_index), TH_BLOCK, 0, 0, 0);
if (status != SS$_NORMAL)
ccp_signal_cont(status); /***** Is this reasonable? *****/
}
return;
default:
ccp_signal_cont(db->wm_iosb.cond); /***** Is this reasonable? *****/
return;
}
}
