Linux/Unix编程

开发平台：

Unix_Linux

53c7xx.c：源码内容

void *real; /* Real address */
int size; /* Size of *tmp */
struct NCR53c7x0_cmd *tmp;
unsigned long flags;
if (hostdata->options & OPTION_DEBUG_ALLOCATION)
printk ("scsi%d : num_cmds = %d, can_queue = %dn"
" target = %d, lun = %d, %sn",
host->host_no, hostdata->num_cmds, host->can_queue,
cmd->target, cmd->lun, (hostdata->cmd_allocated[cmd->target] &
(1 << cmd->lun)) ? "already allocated" : "not allocated");
/*
* If we have not yet reserved commands for this I_T_L nexus, and
* the device exists (as indicated by permanent Scsi_Cmnd structures
* being allocated under 1.3.x, or being outside of scan_scsis in
* 1.2.x), do so now.
*/
if (!(hostdata->cmd_allocated[cmd->target] & (1 << cmd->lun)) &&
cmd->device && cmd->device->has_cmdblocks) {
if ((hostdata->extra_allocate + hostdata->num_cmds) < host->can_queue)
hostdata->extra_allocate += host->cmd_per_lun;
hostdata->cmd_allocated[cmd->target] |= (1 << cmd->lun);
}
for (; hostdata->extra_allocate > 0 ; --hostdata->extra_allocate,
++hostdata->num_cmds) {
/* historically, kmalloc has returned unaligned addresses; pad so we
have enough room to ROUNDUP */
size = hostdata->max_cmd_size + sizeof (void *);
#ifdef FORCE_DSA_ALIGNMENT
/*
* 53c710 rev.0 doesn't have an add-with-carry instruction.
* Ensure we allocate enough memory to force alignment.
*/
size += 256;
#endif
/* FIXME: for ISA bus '7xx chips, we need to or GFP_DMA in here */
if (size > 4096) {
printk (KERN_ERR "53c7xx: allocate_cmd size > 4Kn");
return NULL;
}
real = (void *)get_free_page(GFP_ATOMIC);
if (real == 0)
return NULL;
memset(real, 0, 4096);
cache_push(virt_to_phys(real), 4096);
cache_clear(virt_to_phys(real), 4096);
kernel_set_cachemode(real, 4096, IOMAP_NOCACHE_SER);
tmp = ROUNDUP(real, void *);
#ifdef FORCE_DSA_ALIGNMENT
{
if (((u32)tmp & 0xff) > CmdPageStart)
tmp = (struct NCR53c7x0_cmd *)((u32)tmp + 255);
tmp = (struct NCR53c7x0_cmd *)(((u32)tmp & ~0xff) + CmdPageStart);
#if 0
printk ("scsi: size = %d, real = %p, tmp set to 0x%08xn",
size, real, (u32)tmp);
#endif
}
#endif
tmp->real = real;
tmp->size = size;
tmp->free = ((void (*)(void *, int)) my_free_page);
save_flags (flags);
cli();
tmp->next = hostdata->free;
hostdata->free = tmp;
restore_flags (flags);
}
save_flags(flags);
cli();
tmp = (struct NCR53c7x0_cmd *) hostdata->free;
if (tmp) {
hostdata->free = tmp->next;
}
restore_flags(flags);
if (!tmp)
printk ("scsi%d : can't allocate command for target %d lun %dn",
host->host_no, cmd->target, cmd->lun);
return tmp;
}
/*
* Function static struct NCR53c7x0_cmd *create_cmd (Scsi_Cmnd *cmd)
*
*
* Purpose : allocate a NCR53c7x0_cmd structure, initialize it based on the
* Scsi_Cmnd structure passed in cmd, including dsa and Linux field
* initialization, and dsa code relocation.
*
* Inputs : cmd - SCSI command
*
* Returns : NCR53c7x0_cmd structure corresponding to cmd,
* NULL on failure.
*/
static struct NCR53c7x0_cmd *
create_cmd (Scsi_Cmnd *cmd) {
NCR53c7x0_local_declare();
struct Scsi_Host *host = cmd->host;
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
struct NCR53c7x0_cmd *tmp; /* NCR53c7x0_cmd structure for this command */
int datain, /* Number of instructions per phase */
dataout;
int data_transfer_instructions, /* Count of dynamic instructions */
i; /* Counter */
u32 *cmd_datain, /* Address of datain/dataout code */
*cmd_dataout; /* Incremented as we assemble */
#ifdef notyet
unsigned char *msgptr; /* Current byte in select message */
int msglen; /* Length of whole select message */
#endif
unsigned long flags;
u32 exp_select_indirect; /* Used in sanity check */
NCR53c7x0_local_setup(cmd->host);
if (!(tmp = allocate_cmd (cmd)))
return NULL;
/*
* Copy CDB and initialised result fields from Scsi_Cmnd to NCR53c7x0_cmd.
* We do this because NCR53c7x0_cmd may have a special cache mode
* selected to cope with lack of bus snooping, etc.
*/
memcpy(tmp->cmnd, cmd->cmnd, 12);
tmp->result = cmd->result;
/*
* Decide whether we need to generate commands for DATA IN,
* DATA OUT, neither, or both based on the SCSI command
*/
switch (cmd->cmnd[0]) {
/* These commands do DATA IN */
case INQUIRY:
case MODE_SENSE:
case READ_6:
case READ_10:
case READ_CAPACITY:
case REQUEST_SENSE:
case READ_BLOCK_LIMITS:
case READ_TOC:
datain = 2 * (cmd->use_sg ? cmd->use_sg : 1) + 3;
dataout = 0;
break;
/* These commands do DATA OUT */
case MODE_SELECT:
case WRITE_6:
case WRITE_10:
#if 0
printk("scsi%d : command is ", host->host_no);
print_command(cmd->cmnd);
#endif
#if 0
printk ("scsi%d : %d scatter/gather segmentsn", host->host_no,
cmd->use_sg);
#endif
datain = 0;
dataout = 2 * (cmd->use_sg ? cmd->use_sg : 1) + 3;
#if 0
hostdata->options |= OPTION_DEBUG_INTR;
#endif
break;
/*
* These commands do no data transfer, we should force an
* interrupt if a data phase is attempted on them.
*/
case TEST_UNIT_READY:
case ALLOW_MEDIUM_REMOVAL:
case START_STOP:
datain = dataout = 0;
break;
/*
* We don't know about these commands, so generate code to handle
* both DATA IN and DATA OUT phases. More efficient to identify them
* and add them to the above cases.
*/
default:
printk("scsi%d : datain+dataout for command ", host->host_no);
print_command(cmd->cmnd);
datain = dataout = 2 * (cmd->use_sg ? cmd->use_sg : 1) + 3;
}
/*
* New code : so that active pointers work correctly regardless
* of where the saved data pointer is at, we want to immediately
* enter the dynamic code after selection, and on a non-data
* phase perform a CALL to the non-data phase handler, with
* returns back to this address.
*
* If a phase mismatch is encountered in the middle of a
* Block MOVE instruction, we want to _leave_ that instruction
* unchanged as the current case is, modify a temporary buffer,
* and point the active pointer (TEMP) at that.
*
* Furthermore, we want to implement a saved data pointer,
* set by the SAVE_DATA_POINTERs message.
*
* So, the data transfer segments will change to
* CALL data_transfer, WHEN NOT data phase
* MOVE x, x, WHEN data phase
* ( repeat )
* JUMP other_transfer
*/
data_transfer_instructions = datain + dataout;
/*
* When we perform a request sense, we overwrite various things,
* including the data transfer code. Make sure we have enough
* space to do that.
*/
if (data_transfer_instructions < 2)
data_transfer_instructions = 2;
/*
* The saved data pointer is set up so that a RESTORE POINTERS message
* will start the data transfer over at the beginning.
*/
tmp->saved_data_pointer = virt_to_bus (hostdata->script) +
hostdata->E_data_transfer;
/*
* Initialize Linux specific fields.
*/
tmp->cmd = cmd;
tmp->next = NULL;
tmp->flags = 0;
tmp->dsa_next_addr = virt_to_bus(tmp->dsa) + hostdata->dsa_next -
hostdata->dsa_start;
tmp->dsa_addr = virt_to_bus(tmp->dsa) - hostdata->dsa_start;
/*
* Calculate addresses of dynamic code to fill in DSA
*/
tmp->data_transfer_start = tmp->dsa + (hostdata->dsa_end -
hostdata->dsa_start) / sizeof(u32);
tmp->data_transfer_end = tmp->data_transfer_start +
2 * data_transfer_instructions;
cmd_datain = datain ? tmp->data_transfer_start : NULL;
cmd_dataout = dataout ? (datain ? cmd_datain + 2 * datain : tmp->
data_transfer_start) : NULL;
/*
* Fill in the NCR53c7x0_cmd structure as follows
* dsa, with fixed up DSA code
* datain code
* dataout code
*/
/* Copy template code into dsa and perform all necessary fixups */
if (hostdata->dsa_fixup)
hostdata->dsa_fixup(tmp);
patch_dsa_32(tmp->dsa, dsa_next, 0, 0);
/*
* XXX is this giving 53c710 access to the Scsi_Cmnd in some way?
* Do we need to change it for caching reasons?
*/
patch_dsa_32(tmp->dsa, dsa_cmnd, 0, virt_to_bus(cmd));
if (hostdata->options & OPTION_DEBUG_SYNCHRONOUS) {
exp_select_indirect = ((1 << cmd->target) << 16) |
(hostdata->sync[cmd->target].sxfer_sanity << 8);
if (hostdata->sync[cmd->target].select_indirect !=
exp_select_indirect) {
printk ("scsi%d : sanity check failed select_indirect=0x%xn",
host->host_no, hostdata->sync[cmd->target].select_indirect);
FATAL(host);
}
}
patch_dsa_32(tmp->dsa, dsa_select, 0,
hostdata->sync[cmd->target].select_indirect);
/*
* Right now, we'll do the WIDE and SYNCHRONOUS negotiations on
* different commands; although it should be trivial to do them
* both at the same time.
*/
if (hostdata->initiate_wdtr & (1 << cmd->target)) {
memcpy ((void *) (tmp->select + 1), (void *) wdtr_message,
sizeof(wdtr_message));
patch_dsa_32(tmp->dsa, dsa_msgout, 0, 1 + sizeof(wdtr_message));
save_flags(flags);
cli();
hostdata->initiate_wdtr &= ~(1 << cmd->target);
restore_flags(flags);
} else if (hostdata->initiate_sdtr & (1 << cmd->target)) {
memcpy ((void *) (tmp->select + 1), (void *) sdtr_message,
sizeof(sdtr_message));
patch_dsa_32(tmp->dsa, dsa_msgout, 0, 1 + sizeof(sdtr_message));
tmp->flags |= CMD_FLAG_SDTR;
save_flags(flags);
cli();
hostdata->initiate_sdtr &= ~(1 << cmd->target);
restore_flags(flags);
}
#if 1
else if (!(hostdata->talked_to & (1 << cmd->target)) &&
!(hostdata->options & OPTION_NO_ASYNC)) {
memcpy ((void *) (tmp->select + 1), (void *) async_message,
sizeof(async_message));
patch_dsa_32(tmp->dsa, dsa_msgout, 0, 1 + sizeof(async_message));
tmp->flags |= CMD_FLAG_SDTR;
}
#endif
else
patch_dsa_32(tmp->dsa, dsa_msgout, 0, 1);
hostdata->talked_to |= (1 << cmd->target);
tmp->select[0] = (hostdata->options & OPTION_DISCONNECT) ?
IDENTIFY (1, cmd->lun) : IDENTIFY (0, cmd->lun);
patch_dsa_32(tmp->dsa, dsa_msgout, 1, virt_to_bus(tmp->select));
patch_dsa_32(tmp->dsa, dsa_cmdout, 0, cmd->cmd_len);
patch_dsa_32(tmp->dsa, dsa_cmdout, 1, virt_to_bus(tmp->cmnd));
patch_dsa_32(tmp->dsa, dsa_dataout, 0, cmd_dataout ?
virt_to_bus (cmd_dataout)
: virt_to_bus (hostdata->script) + hostdata->E_other_transfer);
patch_dsa_32(tmp->dsa, dsa_datain, 0, cmd_datain ?
virt_to_bus (cmd_datain)
: virt_to_bus (hostdata->script) + hostdata->E_other_transfer);
/*
* XXX - need to make endian aware, should use separate variables
* for both status and message bytes.
*/
patch_dsa_32(tmp->dsa, dsa_msgin, 0, 1);
/*
* FIXME : these only works for little endian. We probably want to
* provide message and status fields in the NCR53c7x0_cmd
* structure, and assign them to cmd->result when we're done.
*/
#ifdef BIG_ENDIAN
patch_dsa_32(tmp->dsa, dsa_msgin, 1, virt_to_bus(&tmp->result) + 2);
patch_dsa_32(tmp->dsa, dsa_status, 0, 1);
patch_dsa_32(tmp->dsa, dsa_status, 1, virt_to_bus(&tmp->result) + 3);
#else
patch_dsa_32(tmp->dsa, dsa_msgin, 1, virt_to_bus(&tmp->result) + 1);
patch_dsa_32(tmp->dsa, dsa_status, 0, 1);
patch_dsa_32(tmp->dsa, dsa_status, 1, virt_to_bus(&tmp->result));
#endif
patch_dsa_32(tmp->dsa, dsa_msgout_other, 0, 1);
patch_dsa_32(tmp->dsa, dsa_msgout_other, 1,
virt_to_bus(&(hostdata->NCR53c7xx_msg_nop)));
/*
* Generate code for zero or more of the DATA IN, DATA OUT phases
* in the format
*
* CALL data_transfer, WHEN NOT phase
* MOVE first buffer length, first buffer address, WHEN phase
* ...
* MOVE last buffer length, last buffer address, WHEN phase
* JUMP other_transfer
*/
/*
* See if we're getting to data transfer by generating an unconditional
* interrupt.
*/
#if 0
if (datain) {
cmd_datain[0] = 0x98080000;
cmd_datain[1] = 0x03ffd00d;
cmd_datain += 2;
}
#endif
/*
* XXX - I'm undecided whether all of this nonsense is faster
* in the long run, or whether I should just go and implement a loop
* on the NCR chip using table indirect mode?
*
* In any case, this is how it _must_ be done for 53c700/700-66 chips,
* so this stays even when we come up with something better.
*
* When we're limited to 1 simultaneous command, no overlapping processing,
* we're seeing 630K/sec, with 7% CPU usage on a slow Syquest 45M
* drive.
*
* Not bad, not good. We'll see.
*/
tmp->bounce.len = 0; /* Assume aligned buffer */
for (i = 0; cmd->use_sg ? (i < cmd->use_sg) : !i; cmd_datain += 4,
cmd_dataout += 4, ++i) {
u32 vbuf = cmd->use_sg ?
(u32)(((struct scatterlist *)cmd->buffer)[i].address) :
(u32)(cmd->request_buffer);
u32 bbuf = virt_to_bus((void *)vbuf);
u32 count = cmd->use_sg ?
((struct scatterlist *)cmd->buffer)[i].length :
cmd->request_bufflen;
/*
* If we have buffers which are not aligned with 16 byte cache
* lines, then we just hope nothing accesses the other parts of
* those cache lines while the transfer is in progress. That would
* fill the cache, and subsequent reads of the dma data would pick
* up the wrong thing.
* XXX We need a bounce buffer to handle that correctly.
*/
if (((bbuf & 15) || (count & 15)) && (datain || dataout))
{
/* Bounce buffer needed */
if (cmd->use_sg)
printk ("53c7xx: Non-aligned buffer with use_sgn");
else if (datain && dataout)
printk ("53c7xx: Non-aligned buffer with datain && dataoutn");
else if (count > 256)
printk ("53c7xx: Non-aligned transfer > 256 bytesn");
else
{
if (datain)
{
tmp->bounce.len = count;
tmp->bounce.addr = vbuf;
bbuf = virt_to_bus(tmp->bounce.buf);
tmp->bounce.buf[0] = 0xff;
tmp->bounce.buf[1] = 0xfe;
tmp->bounce.buf[2] = 0xfd;
tmp->bounce.buf[3] = 0xfc;
}
if (dataout)
{
memcpy ((void *)tmp->bounce.buf, (void *)vbuf, count);
bbuf = virt_to_bus(tmp->bounce.buf);
}
}
}
if (datain) {
cache_clear(virt_to_phys((void *)vbuf), count);
/* CALL other_in, WHEN NOT DATA_IN */
cmd_datain[0] = ((DCMD_TYPE_TCI | DCMD_TCI_OP_CALL |
DCMD_TCI_IO) << 24) |
DBC_TCI_WAIT_FOR_VALID | DBC_TCI_COMPARE_PHASE;
cmd_datain[1] = virt_to_bus (hostdata->script) +
hostdata->E_other_in;
/* MOVE count, buf, WHEN DATA_IN */
cmd_datain[2] = ((DCMD_TYPE_BMI | DCMD_BMI_OP_MOVE_I | DCMD_BMI_IO)
<< 24) | count;
cmd_datain[3] = bbuf;
#if 0
print_insn (host, cmd_datain, "dynamic ", 1);
print_insn (host, cmd_datain + 2, "dynamic ", 1);
#endif
}
if (dataout) {
cache_push(virt_to_phys((void *)vbuf), count);
/* CALL other_out, WHEN NOT DATA_OUT */
cmd_dataout[0] = ((DCMD_TYPE_TCI | DCMD_TCI_OP_CALL) << 24) |
DBC_TCI_WAIT_FOR_VALID | DBC_TCI_COMPARE_PHASE;
cmd_dataout[1] = virt_to_bus(hostdata->script) +
hostdata->E_other_out;
/* MOVE count, buf, WHEN DATA+OUT */
cmd_dataout[2] = ((DCMD_TYPE_BMI | DCMD_BMI_OP_MOVE_I) << 24)
| count;
cmd_dataout[3] = bbuf;
#if 0
print_insn (host, cmd_dataout, "dynamic ", 1);
print_insn (host, cmd_dataout + 2, "dynamic ", 1);
#endif
}
}
/*
* Install JUMP instructions after the data transfer routines to return
* control to the do_other_transfer routines.
*/
if (datain) {
cmd_datain[0] = ((DCMD_TYPE_TCI | DCMD_TCI_OP_JUMP) << 24) |
DBC_TCI_TRUE;
cmd_datain[1] = virt_to_bus(hostdata->script) +
hostdata->E_other_transfer;
#if 0
print_insn (host, cmd_datain, "dynamic jump ", 1);
#endif
cmd_datain += 2;
}
#if 0
if (datain) {
cmd_datain[0] = 0x98080000;
cmd_datain[1] = 0x03ffdeed;
cmd_datain += 2;
}
#endif
if (dataout) {
cmd_dataout[0] = ((DCMD_TYPE_TCI | DCMD_TCI_OP_JUMP) << 24) |
DBC_TCI_TRUE;
cmd_dataout[1] = virt_to_bus(hostdata->script) +
hostdata->E_other_transfer;
#if 0
print_insn (host, cmd_dataout, "dynamic jump ", 1);
#endif
cmd_dataout += 2;
}
return tmp;
}
/*
* Function : int NCR53c7xx_queue_command (Scsi_Cmnd *cmd,
* void (*done)(Scsi_Cmnd *))
*
* Purpose : enqueues a SCSI command
*
* Inputs : cmd - SCSI command, done - function called on completion, with
* a pointer to the command descriptor.
*
* Returns : 0
*
* Side effects :
* cmd is added to the per instance driver issue_queue, with major
* twiddling done to the host specific fields of cmd. If the
* process_issue_queue coroutine isn't running, it is restarted.
*
* NOTE : we use the host_scribble field of the Scsi_Cmnd structure to
* hold our own data, and pervert the ptr field of the SCp field
* to create a linked list.
*/
int
NCR53c7xx_queue_command (Scsi_Cmnd *cmd, void (* done)(Scsi_Cmnd *)) {
struct Scsi_Host *host = cmd->host;
struct NCR53c7x0_hostdata *hostdata =
(struct NCR53c7x0_hostdata *) host->hostdata[0];
unsigned long flags;
Scsi_Cmnd *tmp;
cmd->scsi_done = done;
cmd->host_scribble = NULL;
cmd->SCp.ptr = NULL;
cmd->SCp.buffer = NULL;
#ifdef VALID_IDS
/* Ignore commands on invalid IDs */
if (!hostdata->valid_ids[cmd->target]) {
printk("scsi%d : ignoring target %d lun %dn", host->host_no,
cmd->target, cmd->lun);
cmd->result = (DID_BAD_TARGET << 16);
done(cmd);
return 0;
}
#endif
save_flags(flags);
cli();
if ((hostdata->options & (OPTION_DEBUG_INIT_ONLY|OPTION_DEBUG_PROBE_ONLY))
|| ((hostdata->options & OPTION_DEBUG_TARGET_LIMIT) &&
!(hostdata->debug_lun_limit[cmd->target] & (1 << cmd->lun)))
#ifdef LINUX_1_2
|| cmd->target > 7
#else
|| cmd->target > host->max_id
#endif
|| cmd->target == host->this_id
|| hostdata->state == STATE_DISABLED) {
printk("scsi%d : disabled or bad target %d lun %dn", host->host_no,
cmd->target, cmd->lun);
cmd->result = (DID_BAD_TARGET << 16);
done(cmd);
restore_flags (flags);
return 0;
}
if ((hostdata->options & OPTION_DEBUG_NCOMMANDS_LIMIT) &&
(hostdata->debug_count_limit == 0)) {
printk("scsi%d : maximum commands exceededn", host->host_no);
cmd->result = (DID_BAD_TARGET << 16);
done(cmd);
restore_flags (flags);
return 0;
}
if (hostdata->options & OPTION_DEBUG_READ_ONLY) {
switch (cmd->cmnd[0]) {
case WRITE_6:
case WRITE_10:
printk("scsi%d : WRITE attempted with NO_WRITE debugging flag setn",
host->host_no);
cmd->result = (DID_BAD_TARGET << 16);
done(cmd);
restore_flags (flags);
return 0;
}
}
if ((hostdata->options & OPTION_DEBUG_TARGET_LIMIT) &&
hostdata->debug_count_limit != -1)
--hostdata->debug_count_limit;
cmd->result = 0xffff; /* The NCR will overwrite message
and status with valid data */
cmd->host_scribble = (unsigned char *) tmp = create_cmd (cmd);
/*
* REQUEST SENSE commands are inserted at the head of the queue
* so that we do not clear the contingent allegiance condition
* they may be looking at.
*/
if (!(hostdata->issue_queue) || (cmd->cmnd[0] == REQUEST_SENSE)) {
cmd->SCp.ptr = (unsigned char *) hostdata->issue_queue;
hostdata->issue_queue = cmd;
} else {
for (tmp = (Scsi_Cmnd *) hostdata->issue_queue; tmp->SCp.ptr;
tmp = (Scsi_Cmnd *) tmp->SCp.ptr);
tmp->SCp.ptr = (unsigned char *) cmd;
}
restore_flags (flags);
run_process_issue_queue();
return 0;
}
/*
* Function : void to_schedule_list (struct Scsi_Host *host,
* struct NCR53c7x0_hostdata * hostdata, Scsi_Cmnd *cmd)
*
* Purpose : takes a SCSI command which was just removed from the
* issue queue, and deals with it by inserting it in the first
* free slot in the schedule list or by terminating it immediately.
*
* Inputs :
* host - SCSI host adapter; hostdata - hostdata structure for
* this adapter; cmd - a pointer to the command; should have
* the host_scribble field initialized to point to a valid
*
* Side effects :
* cmd is added to the per instance schedule list, with minor
* twiddling done to the host specific fields of cmd.
*
*/
static __inline__ void
to_schedule_list (struct Scsi_Host *host, struct NCR53c7x0_hostdata *hostdata,
struct NCR53c7x0_cmd *cmd) {
NCR53c7x0_local_declare();
Scsi_Cmnd *tmp = cmd->cmd;
unsigned long flags;
/* dsa start is negative, so subtraction is used */
volatile u32 *ncrcurrent;
int i;
NCR53c7x0_local_setup(host);
#if 0
printk("scsi%d : new dsa is 0x%lx (virt 0x%p)n", host->host_no,
virt_to_bus(hostdata->dsa), hostdata->dsa);
#endif
save_flags(flags);
cli();
/*
* Work around race condition : if an interrupt fired and we
* got disabled forget about this command.
*/
if (hostdata->state == STATE_DISABLED) {
printk("scsi%d : driver disabledn", host->host_no);
tmp->result = (DID_BAD_TARGET << 16);
cmd->next = (struct NCR53c7x0_cmd *) hostdata->free;
hostdata->free = cmd;
tmp->scsi_done(tmp);
restore_flags (flags);
return;
}
for (i = host->can_queue, ncrcurrent = hostdata->schedule;
i > 0 && ncrcurrent[0] != hostdata->NOP_insn;
--i, ncrcurrent += 2 /* JUMP instructions are two words */);
if (i > 0) {
++hostdata->busy[tmp->target][tmp->lun];
cmd->next = hostdata->running_list;
hostdata->running_list = cmd;
/* Restore this instruction to a NOP once the command starts */
cmd->dsa [(hostdata->dsa_jump_dest - hostdata->dsa_start) /
sizeof(u32)] = (u32) virt_to_bus ((void *)ncrcurrent);
/* Replace the current jump operand. */
ncrcurrent[1] =
virt_to_bus ((void *) cmd->dsa) + hostdata->E_dsa_code_begin -
hostdata->E_dsa_code_template;
/* Replace the NOP instruction with a JUMP */
ncrcurrent[0] = ((DCMD_TYPE_TCI|DCMD_TCI_OP_JUMP) << 24) |
DBC_TCI_TRUE;
} else {
printk ("scsi%d: no free slotn", host->host_no);
disable(host);
tmp->result = (DID_ERROR << 16);
cmd->next = (struct NCR53c7x0_cmd *) hostdata->free;
hostdata->free = cmd;
tmp->scsi_done(tmp);
restore_flags (flags);
return;
}
/*
* If the NCR chip is in an idle state, start it running the scheduler
* immediately. Otherwise, signal the chip to jump to schedule as
* soon as it is idle.
*/
if (hostdata->idle) {
hostdata->idle = 0;
hostdata->state = STATE_RUNNING;
NCR53c7x0_write32 (DSP_REG, virt_to_bus ((void *)hostdata->schedule));
if (hostdata->options & OPTION_DEBUG_TRACE)
NCR53c7x0_write8 (DCNTL_REG, hostdata->saved_dcntl |
DCNTL_SSM | DCNTL_STD);
} else {
NCR53c7x0_write8(hostdata->istat, ISTAT_10_SIGP);
}
restore_flags(flags);
}
/*
* Function : busyp (struct Scsi_Host *host, struct NCR53c7x0_hostdata
* *hostdata, Scsi_Cmnd *cmd)
*
* Purpose : decide if we can pass the given SCSI command on to the
* device in question or not.
*
* Returns : non-zero when we're busy, 0 when we aren't.
*/
static __inline__ int
busyp (struct Scsi_Host *host, struct NCR53c7x0_hostdata *hostdata,
Scsi_Cmnd *cmd) {
/* FIXME : in the future, this needs to accommodate SCSI-II tagged
queuing, and we may be able to play with fairness here a bit.
*/
return hostdata->busy[cmd->target][cmd->lun];
}
/*
* Function : process_issue_queue (void)
*
* Purpose : transfer commands from the issue queue to NCR start queue
* of each NCR53c7/8xx in the system, avoiding kernel stack
* overflows when the scsi_done() function is invoked recursively.
*
* NOTE : process_issue_queue exits with interrupts *disabled*, so the
* caller must reenable them if it desires.
*
* NOTE : process_issue_queue should be called from both
* NCR53c7x0_queue_command() and from the interrupt handler
* after command completion in case NCR53c7x0_queue_command()
* isn't invoked again but we've freed up resources that are
* needed.
*/
static void
process_issue_queue (unsigned long flags) {
Scsi_Cmnd *tmp, *prev;
struct Scsi_Host *host;
struct NCR53c7x0_hostdata *hostdata;
int done;
/*
* We run (with interrupts disabled) until we're sure that none of
* the host adapters have anything that can be done, at which point
* we set process_issue_queue_running to 0 and exit.
*
* Interrupts are enabled before doing various other internal
* instructions, after we've decided that we need to run through
* the loop again.
*
*/
do {
cli(); /* Freeze request queues */
done = 1;
for (host = first_host; host && host->hostt == the_template;
host = host->next) {
hostdata = (struct NCR53c7x0_hostdata *) host->hostdata[0];
cli();
if (hostdata->issue_queue) {
if (hostdata->state == STATE_DISABLED) {
tmp = (Scsi_Cmnd *) hostdata->issue_queue;
hostdata->issue_queue = (Scsi_Cmnd *) tmp->SCp.ptr;
tmp->result = (DID_BAD_TARGET << 16);
if (tmp->host_scribble) {
((struct NCR53c7x0_cmd *)tmp->host_scribble)->next =
hostdata->free;
hostdata->free =
(struct NCR53c7x0_cmd *)tmp->host_scribble;
tmp->host_scribble = NULL;
}
tmp->scsi_done (tmp);
done = 0;
} else
for (tmp = (Scsi_Cmnd *) hostdata->issue_queue,
prev = NULL; tmp; prev = tmp, tmp = (Scsi_Cmnd *)
tmp->SCp.ptr)
if (!tmp->host_scribble ||
!busyp (host, hostdata, tmp)) {
if (prev)
prev->SCp.ptr = tmp->SCp.ptr;
else
hostdata->issue_queue = (Scsi_Cmnd *)
tmp->SCp.ptr;
tmp->SCp.ptr = NULL;
if (tmp->host_scribble) {
if (hostdata->options & OPTION_DEBUG_QUEUES)
printk ("scsi%d : moving command for target %d lun %d to start listn",
host->host_no, tmp->target, tmp->lun);
to_schedule_list (host, hostdata,
(struct NCR53c7x0_cmd *)
tmp->host_scribble);
} else {
if (((tmp->result & 0xff) == 0xff) ||
((tmp->result & 0xff00) == 0xff00)) {
printk ("scsi%d : danger Will Robinson!n",
host->host_no);
tmp->result = DID_ERROR << 16;
disable (host);
}
tmp->scsi_done(tmp);
}
done = 0;
} /* if target/lun is not busy */
} /* if hostdata->issue_queue */
if (!done)
restore_flags (flags);
} /* for host */
} while (!done);
process_issue_queue_running = 0;
}
/*
* Function : static void intr_scsi (struct Scsi_Host *host,
* struct NCR53c7x0_cmd *cmd)
*
* Purpose : handle all SCSI interrupts, indicated by the setting
* of the SIP bit in the ISTAT register.
*
* Inputs : host, cmd - host and NCR command causing the interrupt, cmd
* may be NULL.
*/
static void
intr_scsi (struct Scsi_Host *host, struct NCR53c7x0_cmd *cmd) {
NCR53c7x0_local_declare();
struct NCR53c7x0_hostdata *hostdata =
(struct NCR53c7x0_hostdata *) host->hostdata[0];
unsigned char sstat0_sist0, sist1, /* Registers */
fatal; /* Did a fatal interrupt
occur ? */
NCR53c7x0_local_setup(host);
fatal = 0;
sstat0_sist0 = NCR53c7x0_read8(SSTAT0_REG);
sist1 = 0;
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : SIST0 0x%0x, SIST1 0x%0xn", host->host_no,
sstat0_sist0, sist1);
/* 250ms selection timeout */
if (sstat0_sist0 & SSTAT0_700_STO) {
fatal = 1;
if (hostdata->options & OPTION_DEBUG_INTR) {
printk ("scsi%d : Selection Timeoutn", host->host_no);
if (cmd) {
printk("scsi%d : target %d, lun %d, command ",
host->host_no, cmd->cmd->target, cmd->cmd->lun);
print_command (cmd->cmd->cmnd);
printk("scsi%d : dsp = 0x%x (virt 0x%p)n", host->host_no,
NCR53c7x0_read32(DSP_REG),
bus_to_virt(NCR53c7x0_read32(DSP_REG)));
} else {
printk("scsi%d : no commandn", host->host_no);
}
}
/*
* XXX - question : how do we want to handle the Illegal Instruction
* interrupt, which may occur before or after the Selection Timeout
* interrupt?
*/
if (1) {
hostdata->idle = 1;
hostdata->expecting_sto = 0;
if (hostdata->test_running) {
hostdata->test_running = 0;
hostdata->test_completed = 3;
} else if (cmd) {
abnormal_finished(cmd, DID_BAD_TARGET << 16);
}
#if 0
hostdata->intrs = 0;
#endif
}
}
/*
* FIXME : in theory, we can also get a UDC when a STO occurs.
*/
if (sstat0_sist0 & SSTAT0_UDC) {
fatal = 1;
if (cmd) {
printk("scsi%d : target %d lun %d unexpected disconnectn",
host->host_no, cmd->cmd->target, cmd->cmd->lun);
print_lots (host);
abnormal_finished(cmd, DID_ERROR << 16);
} else
printk("scsi%d : unexpected disconnect (no command)n",
host->host_no);
hostdata->dsp = (u32 *) hostdata->schedule;
hostdata->dsp_changed = 1;
}
/* SCSI PARITY error */
if (sstat0_sist0 & SSTAT0_PAR) {
fatal = 1;
if (cmd && cmd->cmd) {
printk("scsi%d : target %d lun %d parity error.n",
host->host_no, cmd->cmd->target, cmd->cmd->lun);
abnormal_finished (cmd, DID_PARITY << 16);
} else
printk("scsi%d : parity errorn", host->host_no);
/* Should send message out, parity error */
/* XXX - Reduce synchronous transfer rate! */
hostdata->dsp = hostdata->script + hostdata->E_initiator_abort /
sizeof(u32);
hostdata->dsp_changed = 1;
/* SCSI GROSS error */
}
if (sstat0_sist0 & SSTAT0_SGE) {
fatal = 1;
printk("scsi%d : gross error, saved2_dsa = 0x%xn", host->host_no,
(unsigned int)hostdata->saved2_dsa);
print_lots (host);
/*
* A SCSI gross error may occur when we have
*
* - A synchronous offset which causes the SCSI FIFO to be overwritten.
*
* - A REQ which causes the maximum synchronous offset programmed in
* the SXFER register to be exceeded.
*
* - A phase change with an outstanding synchronous offset.
*
* - Residual data in the synchronous data FIFO, with a transfer
* other than a synchronous receive is started.$#
*/
/* XXX Should deduce synchronous transfer rate! */
hostdata->dsp = hostdata->script + hostdata->E_initiator_abort /
sizeof(u32);
hostdata->dsp_changed = 1;
/* Phase mismatch */
}
if (sstat0_sist0 & SSTAT0_MA) {
fatal = 1;
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : SSTAT0_MAn", host->host_no);
intr_phase_mismatch (host, cmd);
}
#if 0
if (sstat0_sist0 & SIST0_800_RSL)
printk ("scsi%d : Oh no Mr. Bill!n", host->host_no);
#endif
/*
* If a fatal SCSI interrupt occurs, we must insure that the DMA and
* SCSI FIFOs were flushed.
*/
if (fatal) {
if (!hostdata->dstat_valid) {
hostdata->dstat = NCR53c7x0_read8(DSTAT_REG);
hostdata->dstat_valid = 1;
}
if (!(hostdata->dstat & DSTAT_DFE)) {
printk ("scsi%d : DMA FIFO not emptyn", host->host_no);
/*
* Really need to check this code for 710 RGH.
* Havn't seen any problems, but maybe we should FLUSH before
* clearing sometimes.
*/
NCR53c7x0_write8 (CTEST8_REG, CTEST8_10_CLF);
while (NCR53c7x0_read8 (CTEST8_REG) & CTEST8_10_CLF)
;
hostdata->dstat |= DSTAT_DFE;
}
}
}
#ifdef CYCLIC_TRACE
/*
* The following implements a cyclic log of instructions executed, if you turn
* TRACE on. It will also print the log for you. Very useful when debugging
* 53c710 support, possibly not really needed any more.
*/
u32 insn_log[4096];
u32 insn_log_index = 0;
void log1 (u32 i)
{
insn_log[insn_log_index++] = i;
if (insn_log_index == 4096)
insn_log_index = 0;
}
void log_insn (u32 *ip)
{
log1 ((u32)ip);
log1 (*ip);
log1 (*(ip+1));
if (((*ip >> 24) & DCMD_TYPE_MASK) == DCMD_TYPE_MMI)
log1 (*(ip+2));
}
void dump_log(void)
{
int cnt = 0;
int i = insn_log_index;
int size;
struct Scsi_Host *host = first_host;
while (cnt < 4096) {
printk ("%08x (+%6x): ", insn_log[i], (insn_log[i] - (u32)&(((struct NCR53c7x0_hostdata *)host->hostdata[0])->script))/4);
if (++i == 4096)
i = 0;
cnt++;
if (((insn_log[i] >> 24) & DCMD_TYPE_MASK) == DCMD_TYPE_MMI)
size = 3;
else
size = 2;
while (size--) {
printk ("%08x ", insn_log[i]);
if (++i == 4096)
i = 0;
cnt++;
}
printk ("n");
}
}
#endif
/*
* Function : static void NCR53c7x0_intfly (struct Scsi_Host *host)
*
* Purpose : Scan command queue for specified host, looking for completed
* commands.
*
* Inputs : Scsi_Host pointer.
*
* This is called from the interrupt handler, when a simulated INTFLY
* interrupt occurs.
*/
static void
NCR53c7x0_intfly (struct Scsi_Host *host)
{
NCR53c7x0_local_declare();
struct NCR53c7x0_hostdata *hostdata; /* host->hostdata[0] */
struct NCR53c7x0_cmd *cmd, /* command which halted */
**cmd_prev_ptr;
unsigned long flags;
char search_found = 0; /* Got at least one ? */
hostdata = (struct NCR53c7x0_hostdata *) host->hostdata[0];
NCR53c7x0_local_setup(host);
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : INTFLYn", host->host_no);
/*
* Traverse our list of running commands, and look
* for those with valid (non-0xff ff) status and message
* bytes encoded in the result which signify command
* completion.
*/
save_flags(flags);
cli();
restart:
for (cmd_prev_ptr = (struct NCR53c7x0_cmd **)&(hostdata->running_list),
cmd = (struct NCR53c7x0_cmd *) hostdata->running_list; cmd ;
cmd_prev_ptr = (struct NCR53c7x0_cmd **) &(cmd->next),
cmd = (struct NCR53c7x0_cmd *) cmd->next)
{
Scsi_Cmnd *tmp;
if (!cmd) {
printk("scsi%d : very weird.n", host->host_no);
break;
}
if (!(tmp = cmd->cmd)) {
printk("scsi%d : weird. NCR53c7x0_cmd has no Scsi_Cmndn",
host->host_no);
continue;
}
/* Copy the result over now; may not be complete,
* but subsequent tests may as well be done on
* cached memory.
*/
tmp->result = cmd->result;
if (((tmp->result & 0xff) == 0xff) ||
((tmp->result & 0xff00) == 0xff00))
continue;
search_found = 1;
if (cmd->bounce.len)
memcpy ((void *)cmd->bounce.addr,
(void *)cmd->bounce.buf, cmd->bounce.len);
/* Important - remove from list _before_ done is called */
if (cmd_prev_ptr)
*cmd_prev_ptr = (struct NCR53c7x0_cmd *) cmd->next;
--hostdata->busy[tmp->target][tmp->lun];
cmd->next = hostdata->free;
hostdata->free = cmd;
tmp->host_scribble = NULL;
if (hostdata->options & OPTION_DEBUG_INTR) {
printk ("scsi%d : command complete : pid %lu, id %d,lun %d result 0x%x ",
host->host_no, tmp->pid, tmp->target, tmp->lun, tmp->result);
print_command (tmp->cmnd);
}
tmp->scsi_done(tmp);
goto restart;
}
restore_flags(flags);
if (!search_found) {
printk ("scsi%d : WARNING : INTFLY with no completed commands.n",
host->host_no);
} else {
run_process_issue_queue();
}
return;
}
/*
* Function : static void NCR53c7x0_intr (int irq, void *dev_id, struct pt_regs * regs)
*
* Purpose : handle NCR53c7x0 interrupts for all NCR devices sharing
* the same IRQ line.
*
* Inputs : Since we're using the SA_INTERRUPT interrupt handler
* semantics, irq indicates the interrupt which invoked
* this handler.
*
* On the 710 we simualte an INTFLY with a script interrupt, and the
* script interrupt handler will call back to this function.
*/
static void
NCR53c7x0_intr (int irq, void *dev_id, struct pt_regs * regs) {
NCR53c7x0_local_declare();
struct Scsi_Host *host; /* Host we are looking at */
unsigned char istat; /* Values of interrupt regs */
struct NCR53c7x0_hostdata *hostdata; /* host->hostdata[0] */
struct NCR53c7x0_cmd *cmd; /* command which halted */
u32 *dsa; /* DSA */
#ifdef NCR_DEBUG
char buf[80]; /* Debugging sprintf buffer */
size_t buflen; /* Length of same */
#endif
host = (struct Scsi_Host *)dev_id;
hostdata = (struct NCR53c7x0_hostdata *) host->hostdata[0];
NCR53c7x0_local_setup(host);
/*
* Only read istat once per loop, since reading it again will unstack
* interrupts
*/
while ((istat = NCR53c7x0_read8(hostdata->istat)) & (ISTAT_SIP|ISTAT_DIP)) {
hostdata->dsp_changed = 0;
hostdata->dstat_valid = 0;
hostdata->state = STATE_HALTED;
if (NCR53c7x0_read8 (SSTAT2_REG) & SSTAT2_FF_MASK)
printk ("scsi%d : SCSI FIFO not emptyn", host->host_no);
/*
* NCR53c700 and NCR53c700-66 change the current SCSI
* process, hostdata->ncrcurrent, in the Linux driver so
* cmd = hostdata->ncrcurrent.
*
* With other chips, we must look through the commands
* executing and find the command structure which
* corresponds to the DSA register.
*/
if (hostdata->options & OPTION_700) {
cmd = (struct NCR53c7x0_cmd *) hostdata->ncrcurrent;
} else {
dsa = bus_to_virt(NCR53c7x0_read32(DSA_REG));
for (cmd = (struct NCR53c7x0_cmd *) hostdata->running_list;
cmd && (dsa + (hostdata->dsa_start / sizeof(u32))) != cmd->dsa;
cmd = (struct NCR53c7x0_cmd *)(cmd->next))
;
}
if (hostdata->options & OPTION_DEBUG_INTR) {
if (cmd) {
printk("scsi%d : interrupt for pid %lu, id %d, lun %d ",
host->host_no, cmd->cmd->pid, (int) cmd->cmd->target,
(int) cmd->cmd->lun);
print_command (cmd->cmd->cmnd);
} else {
printk("scsi%d : no active commandn", host->host_no);
}
}
if (istat & ISTAT_SIP) {
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : ISTAT_SIPn", host->host_no);
intr_scsi (host, cmd);
}
if (istat & ISTAT_DIP) {
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : ISTAT_DIPn", host->host_no);
intr_dma (host, cmd);
}
if (!hostdata->dstat_valid) {
hostdata->dstat = NCR53c7x0_read8(DSTAT_REG);
hostdata->dstat_valid = 1;
}
if (!(hostdata->dstat & DSTAT_DFE)) {
printk ("scsi%d : DMA FIFO not emptyn", host->host_no);
/* Really need to check this out for 710 RGH */
NCR53c7x0_write8 (CTEST8_REG, CTEST8_10_CLF);
while (NCR53c7x0_read8 (CTEST8_REG) & CTEST8_10_CLF)
;
hostdata->dstat |= DSTAT_DFE;
}
if (!hostdata->idle && hostdata->state == STATE_HALTED) {
if (!hostdata->dsp_changed)
hostdata->dsp = (u32 *)bus_to_virt(NCR53c7x0_read32(DSP_REG));
#if 0
printk("scsi%d : new dsp is 0x%lx (virt 0x%p)n",
host->host_no, virt_to_bus(hostdata->dsp), hostdata->dsp);
#endif
hostdata->state = STATE_RUNNING;
NCR53c7x0_write32 (DSP_REG, virt_to_bus(hostdata->dsp));
if (hostdata->options & OPTION_DEBUG_TRACE) {
#ifdef CYCLIC_TRACE
log_insn (hostdata->dsp);
#else
print_insn (host, hostdata->dsp, "t ", 1);
#endif
NCR53c7x0_write8 (DCNTL_REG,
hostdata->saved_dcntl | DCNTL_SSM | DCNTL_STD);
}
}
}
}
/*
* Function : static int abort_connected (struct Scsi_Host *host)
*
* Purpose : Assuming that the NCR SCSI processor is currently
* halted, break the currently established nexus. Clean
* up of the NCR53c7x0_cmd and Scsi_Cmnd structures should
* be done on receipt of the abort interrupt.
*
* Inputs : host - SCSI host
*
*/
static int
abort_connected (struct Scsi_Host *host) {
#ifdef NEW_ABORT
NCR53c7x0_local_declare();
#endif
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
/* FIXME : this probably should change for production kernels; at the
least, counter should move to a per-host structure. */
static int counter = 5;
#ifdef NEW_ABORT
int sstat, phase, offset;
u32 *script;
NCR53c7x0_local_setup(host);
#endif
if (--counter <= 0) {
disable(host);
return 0;
}
printk ("scsi%d : DANGER : abort_connected() called n",
host->host_no);
#ifdef NEW_ABORT
/*
* New strategy : Rather than using a generic abort routine,
* we'll specifically try to source or sink the appropriate
* amount of data for the phase we're currently in (taking into
* account the current synchronous offset)
*/
sstat = (NCR53c8x0_read8 (SSTAT2_REG);
offset = OFFSET (sstat & SSTAT2_FF_MASK) >> SSTAT2_FF_SHIFT;
phase = sstat & SSTAT2_PHASE_MASK;
/*
* SET ATN
* MOVE source_or_sink, WHEN CURRENT PHASE
* < repeat for each outstanding byte >
* JUMP send_abort_message
*/
script = hostdata->abort_script = kmalloc (
8 /* instruction size */ * (
1 /* set ATN */ +
(!offset ? 1 : offset) /* One transfer per outstanding byte */ +
1 /* send abort message */),
GFP_ATOMIC);
#else /* def NEW_ABORT */
hostdata->dsp = hostdata->script + hostdata->E_initiator_abort /
sizeof(u32);
#endif /* def NEW_ABORT */
hostdata->dsp_changed = 1;
/* XXX - need to flag the command as aborted after the abort_connected
code runs
*/
return 0;
}
/*
* Function : static int datapath_residual (Scsi_Host *host)
*
* Purpose : return residual data count of what's in the chip.
*
* Inputs : host - SCSI host
*/
static int
datapath_residual (struct Scsi_Host *host) {
NCR53c7x0_local_declare();
int count, synchronous, sstat;
unsigned int ddir;
NCR53c7x0_local_setup(host);
/* COMPAT : the 700 and 700-66 need to use DFIFO_00_BO_MASK */
count = ((NCR53c7x0_read8 (DFIFO_REG) & DFIFO_10_BO_MASK) -
(NCR53c7x0_read32 (DBC_REG) & DFIFO_10_BO_MASK)) & DFIFO_10_BO_MASK;
synchronous = NCR53c7x0_read8 (SXFER_REG) & SXFER_MO_MASK;
/* COMPAT : DDIR is elsewhere on non-'8xx chips. */
ddir = NCR53c7x0_read8 (CTEST0_REG_700) & CTEST0_700_DDIR;
if (ddir) {
/* Receive */
if (synchronous)
count += (NCR53c7x0_read8 (SSTAT2_REG) & SSTAT2_FF_MASK) >> SSTAT2_FF_SHIFT;
else
if (NCR53c7x0_read8 (SSTAT1_REG) & SSTAT1_ILF)
++count;
} else {
/* Send */
sstat = NCR53c7x0_read8 (SSTAT1_REG);
if (sstat & SSTAT1_OLF)
++count;
if (synchronous && (sstat & SSTAT1_ORF))
++count;
}
return count;
}
/*
* Function : static const char * sbcl_to_phase (int sbcl)_
*
* Purpose : Convert SBCL register to user-parsable phase representation
*
* Inputs : sbcl - value of sbcl register
*/
static const char *
sbcl_to_phase (int sbcl) {
switch (sbcl & SBCL_PHASE_MASK) {
case SBCL_PHASE_DATAIN:
return "DATAIN";
case SBCL_PHASE_DATAOUT:
return "DATAOUT";
case SBCL_PHASE_MSGIN:
return "MSGIN";
case SBCL_PHASE_MSGOUT:
return "MSGOUT";
case SBCL_PHASE_CMDOUT:
return "CMDOUT";
case SBCL_PHASE_STATIN:
return "STATUSIN";
default:
return "unknown";
}
}
/*
* Function : static const char * sstat2_to_phase (int sstat)_
*
* Purpose : Convert SSTAT2 register to user-parsable phase representation
*
* Inputs : sstat - value of sstat register
*/
static const char *
sstat2_to_phase (int sstat) {
switch (sstat & SSTAT2_PHASE_MASK) {
case SSTAT2_PHASE_DATAIN:
return "DATAIN";
case SSTAT2_PHASE_DATAOUT:
return "DATAOUT";
case SSTAT2_PHASE_MSGIN:
return "MSGIN";
case SSTAT2_PHASE_MSGOUT:
return "MSGOUT";
case SSTAT2_PHASE_CMDOUT:
return "CMDOUT";
case SSTAT2_PHASE_STATIN:
return "STATUSIN";
default:
return "unknown";
}
}
/*
* Function : static void intr_phase_mismatch (struct Scsi_Host *host,
* struct NCR53c7x0_cmd *cmd)
*
* Purpose : Handle phase mismatch interrupts
*
* Inputs : host, cmd - host and NCR command causing the interrupt, cmd
* may be NULL.
*
* Side effects : The abort_connected() routine is called or the NCR chip
* is restarted, jumping to the command_complete entry point, or
* patching the address and transfer count of the current instruction
* and calling the msg_in entry point as appropriate.
*/
static void
intr_phase_mismatch (struct Scsi_Host *host, struct NCR53c7x0_cmd *cmd) {
NCR53c7x0_local_declare();
u32 dbc_dcmd, *dsp, *dsp_next;
unsigned char dcmd, sbcl;
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
int residual;
enum {ACTION_ABORT, ACTION_ABORT_PRINT, ACTION_CONTINUE} action =
ACTION_ABORT_PRINT;
const char *where = NULL;
NCR53c7x0_local_setup(host);
/*
* Corrective action is based on where in the SCSI SCRIPT(tm) the error
* occurred, as well as which SCSI phase we are currently in.
*/
dsp_next = bus_to_virt(NCR53c7x0_read32(DSP_REG));
/*
* Fetch the current instruction, and remove the operands for easier
* interpretation.
*/
dbc_dcmd = NCR53c7x0_read32(DBC_REG);
dcmd = (dbc_dcmd & 0xff000000) >> 24;
/*
* Like other processors, the NCR adjusts the instruction pointer before
* instruction decode. Set the DSP address back to what it should
* be for this instruction based on its size (2 or 3 32 bit words).
*/
dsp = dsp_next - NCR53c7x0_insn_size(dcmd);
/*
* Read new SCSI phase from the SBCL lines. Since all of our code uses
* a WHEN conditional instead of an IF conditional, we don't need to
* wait for a new REQ.
*/
sbcl = NCR53c7x0_read8(SBCL_REG) & SBCL_PHASE_MASK;
if (!cmd) {
action = ACTION_ABORT_PRINT;
where = "no current command";
/*
* The way my SCSI SCRIPTS(tm) are architected, recoverable phase
* mismatches should only occur where we're doing a multi-byte
* BMI instruction. Specifically, this means
*
* - select messages (a SCSI-I target may ignore additional messages
* after the IDENTIFY; any target may reject a SDTR or WDTR)
*
* - command out (targets may send a message to signal an error
* condition, or go into STATUSIN after they've decided
* they don't like the command.
*
* - reply_message (targets may reject a multi-byte message in the
* middle)
*
* - data transfer routines (command completion with buffer space
* left, disconnect message, or error message)
*/
} else if (((dsp >= cmd->data_transfer_start &&
dsp < cmd->data_transfer_end)) || dsp == (cmd->residual + 2)) {
if ((dcmd & (DCMD_TYPE_MASK|DCMD_BMI_OP_MASK|DCMD_BMI_INDIRECT|
DCMD_BMI_MSG|DCMD_BMI_CD)) == (DCMD_TYPE_BMI|
DCMD_BMI_OP_MOVE_I)) {
residual = datapath_residual (host);
if (hostdata->options & OPTION_DEBUG_DISCONNECT)
printk ("scsi%d : handling residual transfer (+ %d bytes from DMA FIFO)n",
host->host_no, residual);
/*
* The first instruction is a CALL to the alternate handler for
* this data transfer phase, so we can do calls to
* munge_msg_restart as we would if control were passed
* from normal dynamic code.
*/
if (dsp != cmd->residual + 2) {
cmd->residual[0] = ((DCMD_TYPE_TCI | DCMD_TCI_OP_CALL |
((dcmd & DCMD_BMI_IO) ? DCMD_TCI_IO : 0)) << 24) |
DBC_TCI_WAIT_FOR_VALID | DBC_TCI_COMPARE_PHASE;
cmd->residual[1] = virt_to_bus(hostdata->script)
+ ((dcmd & DCMD_BMI_IO)
? hostdata->E_other_in : hostdata->E_other_out);
}
/*
* The second instruction is the a data transfer block
* move instruction, reflecting the pointer and count at the
* time of the phase mismatch.
*/
cmd->residual[2] = dbc_dcmd + residual;
cmd->residual[3] = NCR53c7x0_read32(DNAD_REG) - residual;
/*
* The third and final instruction is a jump to the instruction
* which follows the instruction which had to be 'split'
*/
if (dsp != cmd->residual + 2) {
cmd->residual[4] = ((DCMD_TYPE_TCI|DCMD_TCI_OP_JUMP)
<< 24) | DBC_TCI_TRUE;
cmd->residual[5] = virt_to_bus(dsp_next);
}
/*
* For the sake of simplicity, transfer control to the
* conditional CALL at the start of the residual buffer.
*/
hostdata->dsp = cmd->residual;
hostdata->dsp_changed = 1;
action = ACTION_CONTINUE;
} else {
where = "non-BMI dynamic DSA code";
action = ACTION_ABORT_PRINT;
}
} else if (dsp == (hostdata->script + hostdata->E_select_msgout / 4 + 2)) {
/* RGH 290697: Added +2 above, to compensate for the script
* instruction which disables the selection timer. */
/* Release ATN */
NCR53c7x0_write8 (SOCL_REG, 0);
switch (sbcl) {
/*
* Some devices (SQ555 come to mind) grab the IDENTIFY message
* sent on selection, and decide to go into COMMAND OUT phase
* rather than accepting the rest of the messages or rejecting
* them. Handle these devices gracefully.
*/
case SBCL_PHASE_CMDOUT:
hostdata->dsp = dsp + 2 /* two _words_ */;
hostdata->dsp_changed = 1;
printk ("scsi%d : target %d ignored SDTR and went into COMMAND OUTn",
host->host_no, cmd->cmd->target);
cmd->flags &= ~CMD_FLAG_SDTR;
action = ACTION_CONTINUE;
break;
case SBCL_PHASE_MSGIN:
hostdata->dsp = hostdata->script + hostdata->E_msg_in /
sizeof(u32);
hostdata->dsp_changed = 1;
action = ACTION_CONTINUE;
break;
default:
where="select message out";
action = ACTION_ABORT_PRINT;
}
/*
* Some SCSI devices will interpret a command as they read the bytes
* off the SCSI bus, and may decide that the command is Bogus before
* they've read the entire command off the bus.
*/
} else if (dsp == hostdata->script + hostdata->E_cmdout_cmdout / sizeof
(u32)) {
hostdata->dsp = hostdata->script + hostdata->E_data_transfer /
sizeof (u32);
hostdata->dsp_changed = 1;
action = ACTION_CONTINUE;
/* FIXME : we need to handle message reject, etc. within msg_respond. */
#ifdef notyet
} else if (dsp == hostdata->script + hostdata->E_reply_message) {
switch (sbcl) {
/* Any other phase mismatches abort the currently executing command. */
#endif
} else {
where = "unknown location";
action = ACTION_ABORT_PRINT;
}
/* Flush DMA FIFO */
if (!hostdata->dstat_valid) {
hostdata->dstat = NCR53c7x0_read8(DSTAT_REG);
hostdata->dstat_valid = 1;
}
if (!(hostdata->dstat & DSTAT_DFE)) {
/* Really need to check this out for 710 RGH */
NCR53c7x0_write8 (CTEST8_REG, CTEST8_10_CLF);
while (NCR53c7x0_read8 (CTEST8_REG) & CTEST8_10_CLF);
hostdata->dstat |= DSTAT_DFE;
}
switch (action) {
case ACTION_ABORT_PRINT:
printk("scsi%d : %s : unexpected phase %s.n",
host->host_no, where ? where : "unknown location",
sbcl_to_phase(sbcl));
print_lots (host);
/* Fall through to ACTION_ABORT */
case ACTION_ABORT:
abort_connected (host);
break;
case ACTION_CONTINUE:
break;
}
#if 0
if (hostdata->dsp_changed) {
printk("scsi%d: new dsp 0x%pn", host->host_no, hostdata->dsp);
print_insn (host, hostdata->dsp, "", 1);
}
#endif
}
/*
* Function : static void intr_bf (struct Scsi_Host *host,
* struct NCR53c7x0_cmd *cmd)
*
* Purpose : handle BUS FAULT interrupts
*
* Inputs : host, cmd - host and NCR command causing the interrupt, cmd
* may be NULL.
*/
static void
intr_bf (struct Scsi_Host *host, struct NCR53c7x0_cmd *cmd) {
NCR53c7x0_local_declare();
u32 *dsp,
*next_dsp, /* Current dsp */
*dsa,
dbc_dcmd; /* DCMD (high eight bits) + DBC */
char *reason = NULL;
/* Default behavior is for a silent error, with a retry until we've
exhausted retries. */
enum {MAYBE, ALWAYS, NEVER} retry = MAYBE;
int report = 0;
NCR53c7x0_local_setup(host);
dbc_dcmd = NCR53c7x0_read32 (DBC_REG);
next_dsp = bus_to_virt (NCR53c7x0_read32(DSP_REG));
dsp = next_dsp - NCR53c7x0_insn_size ((dbc_dcmd >> 24) & 0xff);
/* FIXME - check chip type */
dsa = bus_to_virt (NCR53c7x0_read32(DSA_REG));
/*
* Bus faults can be caused by either a Bad Address or
* Target Abort. We should check the Received Target Abort
* bit of the PCI status register and Master Abort Bit.
*
* - Master Abort bit indicates that no device claimed
* the address with DEVSEL within five clocks
*
* - Target Abort bit indicates that a target claimed it,
* but changed its mind once it saw the byte enables.
*
*/
/* 53c710, not PCI system */
report = 1;
reason = "Unknown";
#ifndef notyet
report = 1;
#endif
if (report && reason)
{
printk(KERN_ALERT "scsi%d : BUS FAULT reason = %sn",
host->host_no, reason ? reason : "unknown");
print_lots (host);
}
#ifndef notyet
retry = NEVER;
#endif
/*
* TODO : we should attempt to recover from any spurious bus
* faults. After X retries, we should figure that things are
* sufficiently wedged, and call NCR53c7xx_reset.
*
* This code should only get executed once we've decided that we
* cannot retry.
*/
if (retry == NEVER) {
printk(KERN_ALERT " mail richard@sleepie.demon.co.ukn");
FATAL (host);
}
}
/*
* Function : static void intr_dma (struct Scsi_Host *host,
* struct NCR53c7x0_cmd *cmd)
*
* Purpose : handle all DMA interrupts, indicated by the setting
* of the DIP bit in the ISTAT register.
*
* Inputs : host, cmd - host and NCR command causing the interrupt, cmd
* may be NULL.
*/
static void
intr_dma (struct Scsi_Host *host, struct NCR53c7x0_cmd *cmd) {
NCR53c7x0_local_declare();
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
unsigned char dstat; /* DSTAT */
u32 *dsp,
*next_dsp, /* Current dsp */
*dsa,
dbc_dcmd; /* DCMD (high eight bits) + DBC */
int tmp;
unsigned long flags;
NCR53c7x0_local_setup(host);
if (!hostdata->dstat_valid) {
hostdata->dstat = NCR53c7x0_read8(DSTAT_REG);
hostdata->dstat_valid = 1;
}
dstat = hostdata->dstat;
if (hostdata->options & OPTION_DEBUG_INTR)
printk("scsi%d : DSTAT=0x%xn", host->host_no, (int) dstat);
dbc_dcmd = NCR53c7x0_read32 (DBC_REG);
next_dsp = bus_to_virt(NCR53c7x0_read32(DSP_REG));
dsp = next_dsp - NCR53c7x0_insn_size ((dbc_dcmd >> 24) & 0xff);
/* XXX - check chip type */
dsa = bus_to_virt(NCR53c7x0_read32(DSA_REG));
/*
* DSTAT_ABRT is the aborted interrupt. This is set whenever the
* SCSI chip is aborted.
*
* With NCR53c700 and NCR53c700-66 style chips, we should only
* get this when the chip is currently running the accept
* reselect/select code and we have set the abort bit in the
* ISTAT register.
*
*/
if (dstat & DSTAT_ABRT) {
#if 0
/* XXX - add code here to deal with normal abort */
if ((hostdata->options & OPTION_700) && (hostdata->state ==
STATE_ABORTING)) {
} else
#endif
{
printk(KERN_ALERT "scsi%d : unexpected abort interrupt atn"
" ", host->host_no);
print_insn (host, dsp, KERN_ALERT "s ", 1);
FATAL (host);
}
}
/*
* DSTAT_SSI is the single step interrupt. Should be generated
* whenever we have single stepped or are tracing.
*/
if (dstat & DSTAT_SSI) {
if (hostdata->options & OPTION_DEBUG_TRACE) {
/* Don't print instr. until we write DSP at end of intr function */
} else if (hostdata->options & OPTION_DEBUG_SINGLE) {
print_insn (host, dsp, "s ", 0);
save_flags(flags);
cli();
/* XXX - should we do this, or can we get away with writing dsp? */
NCR53c7x0_write8 (DCNTL_REG, (NCR53c7x0_read8(DCNTL_REG) &
~DCNTL_SSM) | DCNTL_STD);
restore_flags(flags);
} else {
printk(KERN_ALERT "scsi%d : unexpected single step interrupt atn"
" ", host->host_no);
print_insn (host, dsp, KERN_ALERT "", 1);
printk(KERN_ALERT " mail drew@PoohSticks.ORGn");
FATAL (host);
}
}
/*
* DSTAT_IID / DSTAT_OPC (same bit, same meaning, only the name
* is different) is generated whenever an illegal instruction is
* encountered.
*
* XXX - we may want to emulate INTFLY here, so we can use
* the same SCSI SCRIPT (tm) for NCR53c710 through NCR53c810
* chips.
*/
if (dstat & DSTAT_OPC) {
/*
* Ascertain if this IID interrupts occurred before or after a STO
* interrupt. Since the interrupt handling code now leaves
* DSP unmodified until _after_ all stacked interrupts have been
* processed, reading the DSP returns the original DSP register.
* This means that if dsp lies between the select code, and
* message out following the selection code (where the IID interrupt
* would have to have occurred by due to the implicit wait for REQ),
* we have an IID interrupt resulting from a STO condition and
* can ignore it.
*/
if (((dsp >= (hostdata->script + hostdata->E_select / sizeof(u32))) &&
(dsp <= (hostdata->script + hostdata->E_select_msgout /
sizeof(u32) + 8))) || (hostdata->test_running == 2)) {
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : ignoring DSTAT_IID for SSTAT_STOn",
host->host_no);
if (hostdata->expecting_iid) {
hostdata->expecting_iid = 0;
hostdata->idle = 1;
if (hostdata->test_running == 2) {
hostdata->test_running = 0;
hostdata->test_completed = 3;
} else if (cmd)
abnormal_finished (cmd, DID_BAD_TARGET << 16);
} else {
hostdata->expecting_sto = 1;
}
/*
* We can't guarantee we'll be able to execute the WAIT DISCONNECT
* instruction within the 3.4us of bus free and arbitration delay
* that a target can RESELECT in and assert REQ after we've dropped
* ACK. If this happens, we'll get an illegal instruction interrupt.
* Doing away with the WAIT DISCONNECT instructions broke everything,
* so instead I'll settle for moving one WAIT DISCONNECT a few
* instructions closer to the CLEAR ACK before it to minimize the
* chances of this happening, and handle it if it occurs anyway.
*
* Simply continue with what we were doing, and control should
* be transferred to the schedule routine which will ultimately
* pass control onto the reselection or selection (not yet)
* code.
*/
} else if (dbc_dcmd == 0x48000000 && (NCR53c7x0_read8 (SBCL_REG) &
SBCL_REQ)) {
if (!(hostdata->options & OPTION_NO_PRINT_RACE))
{
printk("scsi%d: REQ before WAIT DISCONNECT IIDn",
host->host_no);
hostdata->options |= OPTION_NO_PRINT_RACE;
}
} else {
printk(KERN_ALERT "scsi%d : illegal instructionn", host->host_no);
print_lots (host);
printk(KERN_ALERT " mail Richard@sleepie.demon.co.uk with ALLn"
" boot messages and diagnostic outputn");
FATAL (host);
}
}
/*
* DSTAT_BF are bus fault errors. DSTAT_800_BF is valid for 710 also.
*/
if (dstat & DSTAT_800_BF) {
intr_bf (host, cmd);
}
/*
* DSTAT_SIR interrupts are generated by the execution of
* the INT instruction. Since the exact values available
* are determined entirely by the SCSI script running,
* and are local to a particular script, a unique handler
* is called for each script.
*/
if (dstat & DSTAT_SIR) {
if (hostdata->options & OPTION_DEBUG_INTR)
printk ("scsi%d : DSTAT_SIRn", host->host_no);
switch ((tmp = hostdata->dstat_sir_intr (host, cmd))) {
case SPECIFIC_INT_NOTHING:
case SPECIFIC_INT_RESTART:
break;
case SPECIFIC_INT_ABORT:
abort_connected(host);
break;
case SPECIFIC_INT_PANIC:
printk(KERN_ALERT "scsi%d : failure at ", host->host_no);
print_insn (host, dsp, KERN_ALERT "", 1);
printk(KERN_ALERT " dstat_sir_intr() returned SPECIFIC_INT_PANICn");
FATAL (host);
break;
case SPECIFIC_INT_BREAK:
intr_break (host, cmd);
break;
default:
printk(KERN_ALERT "scsi%d : failure at ", host->host_no);
print_insn (host, dsp, KERN_ALERT "", 1);
printk(KERN_ALERT" dstat_sir_intr() returned unknown value %dn",
tmp);
FATAL (host);
}
}
}
/*
* Function : static int print_insn (struct Scsi_Host *host,
* u32 *insn, int kernel)
*
* Purpose : print numeric representation of the instruction pointed
* to by insn to the debugging or kernel message buffer
* as appropriate.
*
* If desired, a user level program can interpret this
* information.
*
* Inputs : host, insn - host, pointer to instruction, prefix -
* string to prepend, kernel - use printk instead of debugging buffer.
*
* Returns : size, in u32s, of instruction printed.
*/
/*
* FIXME: should change kernel parameter so that it takes an ENUM
* specifying severity - either KERN_ALERT or KERN_PANIC so
* all panic messages are output with the same severity.
*/
static int
print_insn (struct Scsi_Host *host, const u32 *insn,
const char *prefix, int kernel) {
char buf[160], /* Temporary buffer and pointer. ICKY
arbitrary length. */
*tmp;
unsigned char dcmd; /* dcmd register for *insn */
int size;
/*
* Check to see if the instruction pointer is not bogus before
* indirecting through it; avoiding red-zone at start of
* memory.
*
* FIXME: icky magic needs to happen here on non-intel boxes which
* don't have kernel memory mapped in like this. Might be reasonable
* to use vverify()?
*/
if (virt_to_phys((void *)insn) < PAGE_SIZE ||
virt_to_phys((void *)(insn + 8)) > virt_to_phys(high_memory) ||
((((dcmd = (insn[0] >> 24) & 0xff) & DCMD_TYPE_MMI) == DCMD_TYPE_MMI) &&
virt_to_phys((void *)(insn + 12)) > virt_to_phys(high_memory))) {
size = 0;
sprintf (buf, "%s%p: address out of rangen",
prefix, insn);
} else {
/*
* FIXME : (void *) cast in virt_to_bus should be unnecessary, because
* it should take const void * as argument.
*/
#if !defined(CONFIG_MVME16x) && !defined(CONFIG_BVME6000)
sprintf(buf, "%s0x%lx (virt 0x%p) : 0x%08x 0x%08x (virt 0x%p)",
(prefix ? prefix : ""), virt_to_bus((void *) insn), insn,
insn[0], insn[1], bus_to_virt (insn[1]));
#else
/* Remove virtual addresses to reduce output, as they are the same */
sprintf(buf, "%s0x%x (+%x) : 0x%08x 0x%08x",
(prefix ? prefix : ""), (u32)insn, ((u32)insn -
(u32)&(((struct NCR53c7x0_hostdata *)host->hostdata[0])->script))/4,
insn[0], insn[1]);
#endif
tmp = buf + strlen(buf);
if ((dcmd & DCMD_TYPE_MASK) == DCMD_TYPE_MMI) {
#if !defined(CONFIG_MVME16x) && !defined(CONFIG_BVME6000)
sprintf (tmp, " 0x%08x (virt 0x%p)n", insn[2],
bus_to_virt(insn[2]));
#else
/* Remove virtual addr to reduce output, as it is the same */
sprintf (tmp, " 0x%08xn", insn[2]);
#endif
size = 3;
} else {
sprintf (tmp, "n");
size = 2;
}
}
if (kernel)
printk ("%s", buf);
#ifdef NCR_DEBUG
else {
size_t len = strlen(buf);
debugger_kernel_write(host, buf, len);
}
#endif
return size;
}
/*
* Function : int NCR53c7xx_abort (Scsi_Cmnd *cmd)
*
* Purpose : Abort an errant SCSI command, doing all necessary
* cleanup of the issue_queue, running_list, shared Linux/NCR
* dsa issue and reconnect queues.
*
* Inputs : cmd - command to abort, code - entire result field
*
* Returns : 0 on success, -1 on failure.
*/
int
NCR53c7xx_abort (Scsi_Cmnd *cmd) {
NCR53c7x0_local_declare();
struct Scsi_Host *host = cmd->host;
struct NCR53c7x0_hostdata *hostdata = host ? (struct NCR53c7x0_hostdata *)
host->hostdata[0] : NULL;
unsigned long flags;
struct NCR53c7x0_cmd *curr, **prev;
Scsi_Cmnd *me, **last;
#if 0
static long cache_pid = -1;
#endif
if (!host) {
printk ("Bogus SCSI command pid %ld; no host structuren",
cmd->pid);
return SCSI_ABORT_ERROR;
} else if (!hostdata) {
printk ("Bogus SCSI host %d; no hostdatan", host->host_no);
return SCSI_ABORT_ERROR;
}
NCR53c7x0_local_setup(host);
/*
* CHECK : I don't think that reading ISTAT will unstack any interrupts,
* since we need to write the INTF bit to clear it, and SCSI/DMA
* interrupts don't clear until we read SSTAT/SIST and DSTAT registers.
*
* See that this is the case. Appears to be correct on the 710, at least.
*
* I suspect that several of our failures may be coming from a new fatal
* interrupt (possibly due to a phase mismatch) happening after we've left
* the interrupt handler, but before the PIC has had the interrupt condition
* cleared.
*/
if (NCR53c7x0_read8(hostdata->istat) & (ISTAT_DIP|ISTAT_SIP)) {
printk ("scsi%d : dropped interrupt for command %ldn", host->host_no,
cmd->pid);
NCR53c7x0_intr (host->irq, NULL, NULL);
return SCSI_ABORT_BUSY;
}
save_flags(flags);
cli();
#if 0
if (cache_pid == cmd->pid)
panic ("scsi%d : bloody fetus %dn", host->host_no, cmd->pid);
else
cache_pid = cmd->pid;
#endif
/*
* The command could be hiding in the issue_queue. This would be very
* nice, as commands can't be moved from the high level driver's issue queue
* into the shared queue until an interrupt routine is serviced, and this
* moving is atomic.
*
* If this is the case, we don't have to worry about anything - we simply
* pull the command out of the old queue, and call it aborted.
*/
for (me = (Scsi_Cmnd *) hostdata->issue_queue,
last = (Scsi_Cmnd **) &(hostdata->issue_queue);
me && me != cmd; last = (Scsi_Cmnd **)&(me->SCp.ptr),
me = (Scsi_Cmnd *)me->SCp.ptr);
if (me) {
*last = (Scsi_Cmnd *) me->SCp.ptr;
if (me->host_scribble) {
((struct NCR53c7x0_cmd *)me->host_scribble)->next = hostdata->free;
hostdata->free = (struct NCR53c7x0_cmd *) me->host_scribble;
me->host_scribble = NULL;
}
cmd->result = DID_ABORT << 16;
cmd->scsi_done(cmd);
printk ("scsi%d : found command %ld in Linux issue queuen",
host->host_no, me->pid);
restore_flags(flags);
run_process_issue_queue();
return SCSI_ABORT_SUCCESS;
}
/*
* That failing, the command could be in our list of already executing
* commands. If this is the case, drastic measures are called for.
*/
for (curr = (struct NCR53c7x0_cmd *) hostdata->running_list,
prev = (struct NCR53c7x0_cmd **) &(hostdata->running_list);
curr && curr->cmd != cmd; prev = (struct NCR53c7x0_cmd **)
&(curr->next), curr = (struct NCR53c7x0_cmd *) curr->next);
if (curr) {
if ((curr->result & 0xff) != 0xff && (curr->result & 0xff00) != 0xff00) {
cmd->result = curr->result;
if (prev)
*prev = (struct NCR53c7x0_cmd *) curr->next;
curr->next = (struct NCR53c7x0_cmd *) hostdata->free;
cmd->host_scribble = NULL;
hostdata->free = curr;
cmd->scsi_done(cmd);
printk ("scsi%d : found finished command %ld in running listn",
host->host_no, cmd->pid);
restore_flags(flags);
return SCSI_ABORT_NOT_RUNNING;
} else {
printk ("scsi%d : DANGER : command running, can not abort.n",
cmd->host->host_no);
restore_flags(flags);
return SCSI_ABORT_BUSY;
}
}
/*
* And if we couldn't find it in any of our queues, it must have been
* a dropped interrupt.
*/
curr = (struct NCR53c7x0_cmd *) cmd->host_scribble;
if (curr) {
curr->next = hostdata->free;
hostdata->free = curr;
cmd->host_scribble = NULL;
}
if (curr == NULL || ((curr->result & 0xff00) == 0xff00) ||
((curr->result & 0xff) == 0xff)) {
printk ("scsi%d : did this command ever run?n", host->host_no);
cmd->result = DID_ABORT << 16;
} else {
printk ("scsi%d : probably lost INTFLY, normal completionn",
host->host_no);
cmd->result = curr->result;
/*
* FIXME : We need to add an additional flag which indicates if a
* command was ever counted as BUSY, so if we end up here we can
* decrement the busy count if and only if it is necessary.
*/
--hostdata->busy[cmd->target][cmd->lun];
}
restore_flags(flags);
cmd->scsi_done(cmd);
/*
* We need to run process_issue_queue since termination of this command
* may allow another queued command to execute first?
*/
return SCSI_ABORT_NOT_RUNNING;
}
/*
* Function : int NCR53c7xx_reset (Scsi_Cmnd *cmd)
*
* Purpose : perform a hard reset of the SCSI bus and NCR
* chip.
*
* Inputs : cmd - command which caused the SCSI RESET
*
* Returns : 0 on success.
*/
int
NCR53c7xx_reset (Scsi_Cmnd *cmd, unsigned int reset_flags) {
NCR53c7x0_local_declare();
unsigned long flags;
int found = 0;
struct NCR53c7x0_cmd * c;
Scsi_Cmnd *tmp;
/*
* When we call scsi_done(), it's going to wake up anything sleeping on the
* resources which were in use by the aborted commands, and we'll start to
* get new commands.
*
* We can't let this happen until after we've re-initialized the driver
* structures, and can't reinitialize those structures until after we've
* dealt with their contents.
*
* So, we need to find all of the commands which were running, stick
* them on a linked list of completed commands (we'll use the host_scribble
* pointer), do our reinitialization, and then call the done function for
* each command.
*/
Scsi_Cmnd *nuke_list = NULL;
struct Scsi_Host *host = cmd->host;
struct NCR53c7x0_hostdata *hostdata =
(struct NCR53c7x0_hostdata *) host->hostdata[0];
NCR53c7x0_local_setup(host);
save_flags(flags);
cli();
ncr_halt (host);
print_lots (host);
dump_events (host, 30);
ncr_scsi_reset (host);
for (tmp = nuke_list = return_outstanding_commands (host, 1 /* free */,
0 /* issue */ ); tmp; tmp = (Scsi_Cmnd *) tmp->SCp.buffer)
if (tmp == cmd) {
found = 1;
break;
}
/*
* If we didn't find the command which caused this reset in our running
* list, then we've lost it. See that it terminates normally anyway.
*/
if (!found) {
c = (struct NCR53c7x0_cmd *) cmd->host_scribble;
if (c) {
cmd->host_scribble = NULL;
c->next = hostdata->free;
hostdata->free = c;
} else
printk ("scsi%d: lost command %ldn", host->host_no, cmd->pid);
cmd->SCp.buffer = (struct scatterlist *) nuke_list;
nuke_list = cmd;
}
NCR53c7x0_driver_init (host);
hostdata->soft_reset (host);
if (hostdata->resets == 0)
disable(host);
else if (hostdata->resets != -1)
--hostdata->resets;
restore_flags(flags);
for (; nuke_list; nuke_list = tmp) {
tmp = (Scsi_Cmnd *) nuke_list->SCp.buffer;
nuke_list->result = DID_RESET << 16;
nuke_list->scsi_done (nuke_list);
}
restore_flags(flags);
return SCSI_RESET_SUCCESS;
}
/*
* The NCR SDMS bios follows Annex A of the SCSI-CAM draft, and
* therefore shares the scsicam_bios_param function.
*/
/*
* Function : int insn_to_offset (Scsi_Cmnd *cmd, u32 *insn)
*
* Purpose : convert instructions stored at NCR pointer into data
* pointer offset.
*
* Inputs : cmd - SCSI command; insn - pointer to instruction. Either current
* DSP, or saved data pointer.
*
* Returns : offset on success, -1 on failure.
*/
static int
insn_to_offset (Scsi_Cmnd *cmd, u32 *insn) {
struct NCR53c7x0_hostdata *hostdata =
(struct NCR53c7x0_hostdata *) cmd->host->hostdata[0];
struct NCR53c7x0_cmd *ncmd =
(struct NCR53c7x0_cmd *) cmd->host_scribble;
int offset = 0, buffers;
struct scatterlist *segment;
char *ptr;
int found = 0;
/*
* With the current code implementation, if the insn is inside dynamically
* generated code, the data pointer will be the instruction preceding
* the next transfer segment.
*/
if (!check_address ((unsigned long) ncmd, sizeof (struct NCR53c7x0_cmd)) &&
((insn >= ncmd->data_transfer_start &&
insn < ncmd->data_transfer_end) ||
(insn >= ncmd->residual &&
insn < (ncmd->residual +
sizeof(ncmd->residual))))) {
ptr = bus_to_virt(insn[3]);
if ((buffers = cmd->use_sg)) {
for (offset = 0,
segment = (struct scatterlist *) cmd->buffer;
buffers && !((found = ((ptr >= segment->address) &&
(ptr < (segment->address + segment->length)))));
--buffers, offset += segment->length, ++segment)
#if 0
printk("scsi%d: comparing 0x%p to 0x%pn",
cmd->host->host_no, saved, segment->address);
#else
;
#endif
offset += ptr - segment->address;
} else {
found = 1;
offset = ptr - (char *) (cmd->request_buffer);
}
} else if ((insn >= hostdata->script +
hostdata->E_data_transfer / sizeof(u32)) &&
(insn <= hostdata->script +
hostdata->E_end_data_transfer / sizeof(u32))) {
found = 1;
offset = 0;
}
return found ? offset : -1;
}
/*
* Function : void print_progress (Scsi_Cmnd *cmd)
*
* Purpose : print the current location of the saved data pointer
*
* Inputs : cmd - command we are interested in
*
*/
static void
print_progress (Scsi_Cmnd *cmd) {
NCR53c7x0_local_declare();
struct NCR53c7x0_cmd *ncmd =
(struct NCR53c7x0_cmd *) cmd->host_scribble;
int offset, i;
char *where;
u32 *ptr;
NCR53c7x0_local_setup (cmd->host);
if (check_address ((unsigned long) ncmd,sizeof (struct NCR53c7x0_cmd)) == 0)
{
printk("nNCR53c7x0_cmd fields:n");
printk(" bounce.len=0x%x, addr=0x%0x, buf[]=0x%02x %02x %02x %02xn",
ncmd->bounce.len, ncmd->bounce.addr, ncmd->bounce.buf[0],
ncmd->bounce.buf[1], ncmd->bounce.buf[2], ncmd->bounce.buf[3]);
printk(" result=%04x, cdb[0]=0x%02xn", ncmd->result, ncmd->cmnd[0]);
}
for (i = 0; i < 2; ++i) {
if (check_address ((unsigned long) ncmd,
sizeof (struct NCR53c7x0_cmd)) == -1)
continue;
if (!i) {
where = "saved";
ptr = bus_to_virt(ncmd->saved_data_pointer);
} else {
where = "active";
ptr = bus_to_virt (NCR53c7x0_read32 (DSP_REG) -
NCR53c7x0_insn_size (NCR53c7x0_read8 (DCMD_REG)) *
sizeof(u32));
}
offset = insn_to_offset (cmd, ptr);
if (offset != -1)
printk ("scsi%d : %s data pointer at offset %dn",
cmd->host->host_no, where, offset);
else {
int size;
printk ("scsi%d : can't determine %s data pointer offsetn",
cmd->host->host_no, where);
if (ncmd) {
size = print_insn (cmd->host,
bus_to_virt(ncmd->saved_data_pointer), "", 1);
print_insn (cmd->host,
bus_to_virt(ncmd->saved_data_pointer) + size * sizeof(u32),
"", 1);
}
}
}
}
static void
print_dsa (struct Scsi_Host *host, u32 *dsa, const char *prefix) {
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
int i, len;
char *ptr;
Scsi_Cmnd *cmd;
if (check_address ((unsigned long) dsa, hostdata->dsa_end -
hostdata->dsa_start) == -1) {
printk("scsi%d : bad dsa virt 0x%pn", host->host_no, dsa);
return;
}
printk("%sscsi%d : dsa at phys 0x%lx (virt 0x%p)n"
" + %d : dsa_msgout length = %u, data = 0x%x (virt 0x%p)n" ,
prefix ? prefix : "",
host->host_no, virt_to_bus (dsa), dsa, hostdata->dsa_msgout,
dsa[hostdata->dsa_msgout / sizeof(u32)],
dsa[hostdata->dsa_msgout / sizeof(u32) + 1],
bus_to_virt (dsa[hostdata->dsa_msgout / sizeof(u32) + 1]));
/*
* Only print messages if they're sane in length so we don't
* blow the kernel printk buffer on something which won't buy us
* anything.
*/
if (dsa[hostdata->dsa_msgout / sizeof(u32)] <
sizeof (hostdata->free->select))
for (i = dsa[hostdata->dsa_msgout / sizeof(u32)],
ptr = bus_to_virt (dsa[hostdata->dsa_msgout / sizeof(u32) + 1]);
i > 0 && !check_address ((unsigned long) ptr, 1);
ptr += len, i -= len) {
printk(" ");
len = print_msg (ptr);
printk("n");
if (!len)
break;
}
printk(" + %d : select_indirect = 0x%xn",
hostdata->dsa_select, dsa[hostdata->dsa_select / sizeof(u32)]);
cmd = (Scsi_Cmnd *) bus_to_virt(dsa[hostdata->dsa_cmnd / sizeof(u32)]);
printk(" + %d : dsa_cmnd = 0x%x ", hostdata->dsa_cmnd,
(u32) virt_to_bus(cmd));
/* XXX Maybe we should access cmd->host_scribble->result here. RGH */
if (cmd) {
printk(" result = 0x%x, target = %d, lun = %d, cmd = ",
cmd->result, cmd->target, cmd->lun);
print_command(cmd->cmnd);
} else
printk("n");
printk(" + %d : dsa_next = 0x%xn", hostdata->dsa_next,
dsa[hostdata->dsa_next / sizeof(u32)]);
if (cmd) {
printk("scsi%d target %d : sxfer_sanity = 0x%x, scntl3_sanity = 0x%xn"
" script : ",
host->host_no, cmd->target,
hostdata->sync[cmd->target].sxfer_sanity,
hostdata->sync[cmd->target].scntl3_sanity);
for (i = 0; i < (sizeof(hostdata->sync[cmd->target].script) / 4); ++i)
printk ("0x%x ", hostdata->sync[cmd->target].script[i]);
printk ("n");
print_progress (cmd);
}
}
/*
* Function : void print_queues (Scsi_Host *host)
*
* Purpose : print the contents of the NCR issue and reconnect queues
*
* Inputs : host - SCSI host we are interested in
*
*/
static void
print_queues (struct Scsi_Host *host) {
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
u32 *dsa, *next_dsa;
volatile u32 *ncrcurrent;
int left;
Scsi_Cmnd *cmd, *next_cmd;
unsigned long flags;
printk ("scsi%d : issue queuen", host->host_no);
for (left = host->can_queue, cmd = (Scsi_Cmnd *) hostdata->issue_queue;
left >= 0 && cmd;
cmd = next_cmd) {
next_cmd = (Scsi_Cmnd *) cmd->SCp.ptr;
save_flags(flags);
cli();
if (cmd->host_scribble) {
if (check_address ((unsigned long) (cmd->host_scribble),
sizeof (cmd->host_scribble)) == -1)
printk ("scsi%d: scsi pid %ld bad pointer to NCR53c7x0_cmdn",
host->host_no, cmd->pid);
/* print_dsa does sanity check on address, no need to check */
else
print_dsa (host, ((struct NCR53c7x0_cmd *) cmd->host_scribble)
-> dsa, "");
} else
printk ("scsi%d : scsi pid %ld for target %d lun %d has no NCR53c7x0_cmdn",
host->host_no, cmd->pid, cmd->target, cmd->lun);
restore_flags(flags);
}
if (left <= 0) {
printk ("scsi%d : loop detected in issue queuen",
host->host_no);
}
/*
* Traverse the NCR reconnect and start DSA structures, printing out
* each element until we hit the end or detect a loop. Currently,
* the reconnect structure is a linked list; and the start structure
* is an array. Eventually, the reconnect structure will become a
* list as well, since this simplifies the code.
*/
printk ("scsi%d : schedule dsa array :n", host->host_no);
for (left = host->can_queue, ncrcurrent = hostdata->schedule;
left > 0; ncrcurrent += 2, --left)
if (ncrcurrent[0] != hostdata->NOP_insn)
/* FIXME : convert pointer to dsa_begin to pointer to dsa. */
print_dsa (host, bus_to_virt (ncrcurrent[1] -
(hostdata->E_dsa_code_begin -
hostdata->E_dsa_code_template)), "");
printk ("scsi%d : end schedule dsa arrayn", host->host_no);
printk ("scsi%d : reconnect_dsa_head :n", host->host_no);
for (left = host->can_queue,
dsa = bus_to_virt (hostdata->reconnect_dsa_head);
left >= 0 && dsa;
dsa = next_dsa) {
save_flags (flags);
cli();
if (check_address ((unsigned long) dsa, sizeof(dsa)) == -1) {
printk ("scsi%d: bad DSA pointer 0x%p", host->host_no,
dsa);
next_dsa = NULL;
}
else
{
next_dsa = bus_to_virt(dsa[hostdata->dsa_next / sizeof(u32)]);
print_dsa (host, dsa, "");
}
restore_flags(flags);
}
printk ("scsi%d : end reconnect_dsa_headn", host->host_no);
if (left < 0)
printk("scsi%d: possible loop in ncr reconnect listn",
host->host_no);
}
static void
print_lots (struct Scsi_Host *host) {
NCR53c7x0_local_declare();
struct NCR53c7x0_hostdata *hostdata =
(struct NCR53c7x0_hostdata *) host->hostdata[0];
u32 *dsp_next, *dsp, *dsa, dbc_dcmd;
unsigned char dcmd, sbcl;
int i, size;
NCR53c7x0_local_setup(host);
if ((dsp_next = bus_to_virt(NCR53c7x0_read32 (DSP_REG)))) {
dbc_dcmd = NCR53c7x0_read32(DBC_REG);
dcmd = (dbc_dcmd & 0xff000000) >> 24;
dsp = dsp_next - NCR53c7x0_insn_size(dcmd);
dsa = bus_to_virt(NCR53c7x0_read32(DSA_REG));
sbcl = NCR53c7x0_read8 (SBCL_REG);
/*
* For the 53c710, the following will report value 0 for SCNTL3
* and STEST0 - we don't have these registers.
*/
printk ("scsi%d : DCMD|DBC=0x%x, DNAD=0x%x (virt 0x%p)n"
" DSA=0x%lx (virt 0x%p)n"
" DSPS=0x%x, TEMP=0x%x (virt 0x%p), DMODE=0x%xn"
" SXFER=0x%x, SCNTL3=0x%xn"
" %s%s%sphase=%s, %d bytes in SCSI FIFOn"
" SCRATCH=0x%x, saved2_dsa=0x%0lxn",
host->host_no, dbc_dcmd, NCR53c7x0_read32(DNAD_REG),
bus_to_virt(NCR53c7x0_read32(DNAD_REG)),
virt_to_bus(dsa), dsa,
NCR53c7x0_read32(DSPS_REG), NCR53c7x0_read32(TEMP_REG),
bus_to_virt (NCR53c7x0_read32(TEMP_REG)),
(int) NCR53c7x0_read8(hostdata->dmode),
(int) NCR53c7x0_read8(SXFER_REG),
((hostdata->chip / 100) == 8) ?
(int) NCR53c7x0_read8(SCNTL3_REG_800) : 0,
(sbcl & SBCL_BSY) ? "BSY " : "",
(sbcl & SBCL_SEL) ? "SEL " : "",
(sbcl & SBCL_REQ) ? "REQ " : "",
sstat2_to_phase(NCR53c7x0_read8 (((hostdata->chip / 100) == 8) ?
SSTAT1_REG : SSTAT2_REG)),
(NCR53c7x0_read8 ((hostdata->chip / 100) == 8 ?
SSTAT1_REG : SSTAT2_REG) & SSTAT2_FF_MASK) >> SSTAT2_FF_SHIFT,
((hostdata->chip / 100) == 8) ? NCR53c7x0_read8 (STEST0_REG_800) :
NCR53c7x0_read32(SCRATCHA_REG_800),
hostdata->saved2_dsa);
printk ("scsi%d : DSP 0x%lx (virt 0x%p) ->n", host->host_no,
virt_to_bus(dsp), dsp);
for (i = 6; i > 0; --i, dsp += size)
size = print_insn (host, dsp, "", 1);
if (NCR53c7x0_read8 (SCNTL1_REG) & SCNTL1_CON) {
if ((hostdata->chip / 100) == 8)
printk ("scsi%d : connected (SDID=0x%x, SSID=0x%x)n",
host->host_no, NCR53c7x0_read8 (SDID_REG_800),
NCR53c7x0_read8 (SSID_REG_800));
else
printk ("scsi%d : connected (SDID=0x%x)n",
host->host_no, NCR53c7x0_read8 (SDID_REG_700));
print_dsa (host, dsa, "");
}
#if 1
print_queues (host);
#endif
}
}
/*
* Function : static int shutdown (struct Scsi_Host *host)
*
* Purpose : does a clean (we hope) shutdown of the NCR SCSI
* chip. Use prior to dumping core, unloading the NCR driver,
*
* Returns : 0 on success
*/
static int
shutdown (struct Scsi_Host *host) {
NCR53c7x0_local_declare();
unsigned long flags;
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
NCR53c7x0_local_setup(host);
save_flags (flags);
cli();
/* Get in a state where we can reset the SCSI bus */
ncr_halt (host);
ncr_scsi_reset (host);
hostdata->soft_reset(host);
disable (host);
restore_flags (flags);
return 0;
}
/*
* Function : void ncr_scsi_reset (struct Scsi_Host *host)
*
* Purpose : reset the SCSI bus.
*/
static void
ncr_scsi_reset (struct Scsi_Host *host) {
NCR53c7x0_local_declare();
unsigned long flags;
NCR53c7x0_local_setup(host);
save_flags (flags);
cli();
NCR53c7x0_write8(SCNTL1_REG, SCNTL1_RST);
udelay(25); /* Minimum amount of time to assert RST */
NCR53c7x0_write8(SCNTL1_REG, 0);
restore_flags (flags);
}
/*
* Function : void hard_reset (struct Scsi_Host *host)
*
*/
static void
hard_reset (struct Scsi_Host *host) {
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
unsigned long flags;
save_flags (flags);
cli();
ncr_scsi_reset(host);
NCR53c7x0_driver_init (host);
if (hostdata->soft_reset)
hostdata->soft_reset (host);
restore_flags(flags);
}
/*
* Function : Scsi_Cmnd *return_outstanding_commands (struct Scsi_Host *host,
* int free, int issue)
*
* Purpose : return a linked list (using the SCp.buffer field as next,
* so we don't perturb hostdata. We don't use a field of the
* NCR53c7x0_cmd structure since we may not have allocated one
* for the command causing the reset.) of Scsi_Cmnd structures that
* had propogated below the Linux issue queue level. If free is set,
* free the NCR53c7x0_cmd structures which are associated with
* the Scsi_Cmnd structures, and clean up any internal
* NCR lists that the commands were on. If issue is set,
* also return commands in the issue queue.
*
* Returns : linked list of commands
*
* NOTE : the caller should insure that the NCR chip is halted
* if the free flag is set.
*/
static Scsi_Cmnd *
return_outstanding_commands (struct Scsi_Host *host, int free, int issue) {
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
struct NCR53c7x0_cmd *c;
int i;
u32 *ncrcurrent;
Scsi_Cmnd *list = NULL, *tmp;
for (c = (struct NCR53c7x0_cmd *) hostdata->running_list; c;
c = (struct NCR53c7x0_cmd *) c->next) {
if (c->cmd->SCp.buffer) {
printk ("scsi%d : loop detected in running list!n", host->host_no);
break;
} else {
printk ("Duh? Bad things happening in the NCR drivern");
break;
}
c->cmd->SCp.buffer = (struct scatterlist *) list;
list = c->cmd;
if (free) {
c->next = hostdata->free;
hostdata->free = c;
}
}
if (free) {
for (i = 0, ncrcurrent = (u32 *) hostdata->schedule;
i < host->can_queue; ++i, ncrcurrent += 2) {
ncrcurrent[0] = hostdata->NOP_insn;
ncrcurrent[1] = 0xdeadbeef;
}
hostdata->ncrcurrent = NULL;
}
if (issue) {
for (tmp = (Scsi_Cmnd *) hostdata->issue_queue; tmp; tmp = tmp->next) {
if (tmp->SCp.buffer) {
printk ("scsi%d : loop detected in issue queue!n",
host->host_no);
break;
}
tmp->SCp.buffer = (struct scatterlist *) list;
list = tmp;
}
if (free)
hostdata->issue_queue = NULL;
}
return list;
}
/*
* Function : static int disable (struct Scsi_Host *host)
*
* Purpose : disables the given NCR host, causing all commands
* to return a driver error. Call this so we can unload the
* module during development and try again. Eventually,
* we should be able to find clean workarounds for these
* problems.
*
* Inputs : host - hostadapter to twiddle
*
* Returns : 0 on success.
*/
static int
disable (struct Scsi_Host *host) {
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
unsigned long flags;
Scsi_Cmnd *nuke_list, *tmp;
save_flags(flags);
cli();
if (hostdata->state != STATE_HALTED)
ncr_halt (host);
nuke_list = return_outstanding_commands (host, 1 /* free */, 1 /* issue */);
hard_reset (host);
hostdata->state = STATE_DISABLED;
restore_flags(flags);
printk ("scsi%d : nuking commandsn", host->host_no);
for (; nuke_list; nuke_list = tmp) {
tmp = (Scsi_Cmnd *) nuke_list->SCp.buffer;
nuke_list->result = DID_ERROR << 16;
nuke_list->scsi_done(nuke_list);
}
printk ("scsi%d : done. n", host->host_no);
printk (KERN_ALERT "scsi%d : disabled. Unload and reloadn",
host->host_no);
return 0;
}
/*
* Function : static int ncr_halt (struct Scsi_Host *host)
*
* Purpose : halts the SCSI SCRIPTS(tm) processor on the NCR chip
*
* Inputs : host - SCSI chip to halt
*
* Returns : 0 on success
*/
static int
ncr_halt (struct Scsi_Host *host) {
NCR53c7x0_local_declare();
unsigned long flags;
unsigned char istat, tmp;
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
int stage;
NCR53c7x0_local_setup(host);
save_flags(flags);
cli();
/* Stage 0 : eat all interrupts
Stage 1 : set ABORT
Stage 2 : eat all but abort interrupts
Stage 3 : eat all interrupts
*/
for (stage = 0;;) {
if (stage == 1) {
NCR53c7x0_write8(hostdata->istat, ISTAT_ABRT);
++stage;
}
istat = NCR53c7x0_read8 (hostdata->istat);
if (istat & ISTAT_SIP) {
tmp = NCR53c7x0_read8(SSTAT0_REG);
} else if (istat & ISTAT_DIP) {
tmp = NCR53c7x0_read8(DSTAT_REG);
if (stage == 2) {
if (tmp & DSTAT_ABRT) {
NCR53c7x0_write8(hostdata->istat, 0);
++stage;
} else {
printk(KERN_ALERT "scsi%d : could not halt NCR chipn",
host->host_no);
disable (host);
}
}
}
if (!(istat & (ISTAT_SIP|ISTAT_DIP))) {
if (stage == 0)
++stage;
else if (stage == 3)
break;
}
}
hostdata->state = STATE_HALTED;
restore_flags(flags);
#if 0
print_lots (host);
#endif
return 0;
}
/*
* Function: event_name (int event)
*
* Purpose: map event enum into user-readable strings.
*/
static const char *
event_name (int event) {
switch (event) {
case EVENT_NONE: return "none";
case EVENT_ISSUE_QUEUE: return "to issue queue";
case EVENT_START_QUEUE: return "to start queue";
case EVENT_SELECT: return "selected";
case EVENT_DISCONNECT: return "disconnected";
case EVENT_RESELECT: return "reselected";
case EVENT_COMPLETE: return "completed";
case EVENT_IDLE: return "idle";
case EVENT_SELECT_FAILED: return "select failed";
case EVENT_BEFORE_SELECT: return "before select";
case EVENT_RESELECT_FAILED: return "reselect failed";
default: return "unknown";
}
}
/*
* Function : void dump_events (struct Scsi_Host *host, count)
*
* Purpose : print last count events which have occurred.
*/
static void
dump_events (struct Scsi_Host *host, int count) {
struct NCR53c7x0_hostdata *hostdata = (struct NCR53c7x0_hostdata *)
host->hostdata[0];
struct NCR53c7x0_event event;
int i;
unsigned long flags;
if (hostdata->events) {
if (count > hostdata->event_size)
count = hostdata->event_size;
for (i = hostdata->event_index; count > 0;
i = (i ? i - 1 : hostdata->event_size -1), --count) {
save_flags(flags);
/*
* By copying the event we're currently examining with interrupts
* disabled, we can do multiple printk(), etc. operations and
* still be guaranteed that they're happening on the same
* event structure.
*/
cli();
#if 0
event = hostdata->events[i];
#else
memcpy ((void *) &event, (void *) &(hostdata->events[i]),
sizeof(event));
#endif
restore_flags(flags);
printk ("scsi%d : %s event %d at %ld secs %ld usecs target %d lun %dn",
host->host_no, event_name (event.event), count,
(long) event.time.tv_sec, (long) event.time.tv_usec,
event.target, event.lun);
if (event.dsa)
printk (" event for dsa 0x%lx (virt 0x%p)n",
virt_to_bus(event.dsa), event.dsa);
if (event.pid != -1) {
printk (" event for pid %ld ", event.pid);
print_command (event.cmnd);
}
}
}
}
/*
* Function: check_address
*
* Purpose: Check to see if a possibly corrupt pointer will fault the
* kernel.
*
* Inputs: addr - address; size - size of area
*
* Returns: 0 if area is OK, -1 on error.
*
* NOTES: should be implemented in terms of vverify on kernels
* that have it.
*/
static int
check_address (unsigned long addr, int size) {
return (virt_to_phys((void *)addr) < PAGE_SIZE || virt_to_phys((void *)(addr + size)) > virt_to_phys(high_memory) ? -1 : 0);
}
#ifdef MODULE
int
NCR53c7x0_release(struct Scsi_Host *host) {
struct NCR53c7x0_hostdata *hostdata =
(struct NCR53c7x0_hostdata *) host->hostdata[0];
struct NCR53c7x0_cmd *cmd, *tmp;
shutdown (host);
if (host->irq != IRQ_NONE)
{
int irq_count;
struct Scsi_Host *tmp;
for (irq_count = 0, tmp = first_host; tmp; tmp = tmp->next)
if (tmp->hostt == the_template && tmp->irq == host->irq)
++irq_count;
if (irq_count == 1)
free_irq(host->irq, NULL);
}
if (host->dma_channel != DMA_NONE)
free_dma(host->dma_channel);
if (host->io_port)
release_region(host->io_port, host->n_io_port);
for (cmd = (struct NCR53c7x0_cmd *) hostdata->free; cmd; cmd = tmp,
--hostdata->num_cmds) {
tmp = (struct NCR53c7x0_cmd *) cmd->next;
/*
* If we're going to loop, try to stop it to get a more accurate
* count of the leaked commands.
*/
cmd->next = NULL;
if (cmd->free)
cmd->free ((void *) cmd->real, cmd->size);
}
if (hostdata->num_cmds)
printk ("scsi%d : leaked %d NCR53c7x0_cmd structuresn",
host->host_no, hostdata->num_cmds);
if (hostdata->events)
vfree ((void *)hostdata->events);
/* XXX This assumes default cache mode to be IOMAP_FULL_CACHING, which
* XXX may be invalid (CONFIG_060_WRITETHROUGH)
*/
kernel_set_cachemode((u32)hostdata, 8192, IOMAP_FULL_CACHING);
free_pages ((u32)hostdata, 1);
return 1;
}
#endif /* def MODULE */