c7306c0287
Signed-off-by: Alan Cox <alan@redhat.com> Signed-off-by: Linus Torvalds <torvalds@osdl.org>
467 lines
14 KiB
C
467 lines
14 KiB
C
/*
|
|
** -----------------------------------------------------------------------------
|
|
**
|
|
** Perle Specialix driver for Linux
|
|
** Ported from existing RIO Driver for SCO sources.
|
|
*
|
|
* (C) 1990 - 2000 Specialix International Ltd., Byfleet, Surrey, UK.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
**
|
|
** Module : rioinit.c
|
|
** SID : 1.3
|
|
** Last Modified : 11/6/98 10:33:43
|
|
** Retrieved : 11/6/98 10:33:49
|
|
**
|
|
** ident @(#)rioinit.c 1.3
|
|
**
|
|
** -----------------------------------------------------------------------------
|
|
*/
|
|
#ifdef SCCS_LABELS
|
|
static char *_rioinit_c_sccs_ = "@(#)rioinit.c 1.3";
|
|
#endif
|
|
|
|
#include <linux/config.h>
|
|
#include <linux/module.h>
|
|
#include <linux/slab.h>
|
|
#include <linux/errno.h>
|
|
#include <linux/delay.h>
|
|
#include <asm/io.h>
|
|
#include <asm/system.h>
|
|
#include <asm/string.h>
|
|
#include <asm/semaphore.h>
|
|
#include <asm/uaccess.h>
|
|
|
|
#include <linux/termios.h>
|
|
#include <linux/serial.h>
|
|
|
|
#include <linux/generic_serial.h>
|
|
|
|
|
|
#include "linux_compat.h"
|
|
#include "typdef.h"
|
|
#include "pkt.h"
|
|
#include "daemon.h"
|
|
#include "rio.h"
|
|
#include "riospace.h"
|
|
#include "top.h"
|
|
#include "cmdpkt.h"
|
|
#include "map.h"
|
|
#include "riotypes.h"
|
|
#include "rup.h"
|
|
#include "port.h"
|
|
#include "riodrvr.h"
|
|
#include "rioinfo.h"
|
|
#include "func.h"
|
|
#include "errors.h"
|
|
#include "pci.h"
|
|
|
|
#include "parmmap.h"
|
|
#include "unixrup.h"
|
|
#include "board.h"
|
|
#include "host.h"
|
|
#include "error.h"
|
|
#include "phb.h"
|
|
#include "link.h"
|
|
#include "cmdblk.h"
|
|
#include "route.h"
|
|
#include "control.h"
|
|
#include "cirrus.h"
|
|
#include "rioioctl.h"
|
|
#include "rio_linux.h"
|
|
|
|
#undef bcopy
|
|
#define bcopy rio_pcicopy
|
|
|
|
int RIOPCIinit(struct rio_info *p, int Mode);
|
|
|
|
static int RIOScrub(int, BYTE *, int);
|
|
|
|
|
|
/**
|
|
** RIOAssignAT :
|
|
**
|
|
** Fill out the fields in the p->RIOHosts structure now we know we know
|
|
** we have a board present.
|
|
**
|
|
** bits < 0 indicates 8 bit operation requested,
|
|
** bits > 0 indicates 16 bit operation.
|
|
*/
|
|
int
|
|
RIOAssignAT(p, Base, virtAddr, mode)
|
|
struct rio_info * p;
|
|
int Base;
|
|
caddr_t virtAddr;
|
|
int mode;
|
|
{
|
|
int bits;
|
|
struct DpRam *cardp = (struct DpRam *)virtAddr;
|
|
|
|
if ((Base < ONE_MEG) || (mode & BYTE_ACCESS_MODE))
|
|
bits = BYTE_OPERATION;
|
|
else
|
|
bits = WORD_OPERATION;
|
|
|
|
/*
|
|
** Board has passed its scrub test. Fill in all the
|
|
** transient stuff.
|
|
*/
|
|
p->RIOHosts[p->RIONumHosts].Caddr = virtAddr;
|
|
p->RIOHosts[p->RIONumHosts].CardP = (struct DpRam *)virtAddr;
|
|
|
|
/*
|
|
** Revision 01 AT host cards don't support WORD operations,
|
|
*/
|
|
if ( RBYTE(cardp->DpRevision) == 01 )
|
|
bits = BYTE_OPERATION;
|
|
|
|
p->RIOHosts[p->RIONumHosts].Type = RIO_AT;
|
|
p->RIOHosts[p->RIONumHosts].Copy = bcopy;
|
|
/* set this later */
|
|
p->RIOHosts[p->RIONumHosts].Slot = -1;
|
|
p->RIOHosts[p->RIONumHosts].Mode = SLOW_LINKS | SLOW_AT_BUS | bits;
|
|
WBYTE(p->RIOHosts[p->RIONumHosts].Control,
|
|
BOOT_FROM_RAM | EXTERNAL_BUS_OFF |
|
|
p->RIOHosts[p->RIONumHosts].Mode |
|
|
INTERRUPT_DISABLE );
|
|
WBYTE(p->RIOHosts[p->RIONumHosts].ResetInt,0xff);
|
|
WBYTE(p->RIOHosts[p->RIONumHosts].Control,
|
|
BOOT_FROM_RAM | EXTERNAL_BUS_OFF |
|
|
p->RIOHosts[p->RIONumHosts].Mode |
|
|
INTERRUPT_DISABLE );
|
|
WBYTE(p->RIOHosts[p->RIONumHosts].ResetInt,0xff);
|
|
p->RIOHosts[p->RIONumHosts].UniqueNum =
|
|
((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[0])&0xFF)<<0)|
|
|
((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[1])&0xFF)<<8)|
|
|
((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[2])&0xFF)<<16)|
|
|
((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[3])&0xFF)<<24);
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Uniquenum 0x%x\n",p->RIOHosts[p->RIONumHosts].UniqueNum);
|
|
|
|
p->RIONumHosts++;
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Tests Passed at 0x%x\n", Base);
|
|
return(1);
|
|
}
|
|
|
|
static uchar val[] = {
|
|
#ifdef VERY_LONG_TEST
|
|
0x00, 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80,
|
|
0xa5, 0xff, 0x5a, 0x00, 0xff, 0xc9, 0x36,
|
|
#endif
|
|
0xff, 0x00, 0x00 };
|
|
|
|
#define TEST_END sizeof(val)
|
|
|
|
/*
|
|
** RAM test a board.
|
|
** Nothing too complicated, just enough to check it out.
|
|
*/
|
|
int
|
|
RIOBoardTest(paddr, caddr, type, slot)
|
|
paddr_t paddr;
|
|
caddr_t caddr;
|
|
uchar type;
|
|
int slot;
|
|
{
|
|
struct DpRam *DpRam = (struct DpRam *)caddr;
|
|
char *ram[4];
|
|
int size[4];
|
|
int op, bank;
|
|
int nbanks;
|
|
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Reset host type=%d, DpRam=0x%x, slot=%d\n",
|
|
type,(int)DpRam, slot);
|
|
|
|
RIOHostReset(type, DpRam, slot);
|
|
|
|
/*
|
|
** Scrub the memory. This comes in several banks:
|
|
** DPsram1 - 7000h bytes
|
|
** DPsram2 - 200h bytes
|
|
** DPsram3 - 7000h bytes
|
|
** scratch - 1000h bytes
|
|
*/
|
|
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Setup ram/size arrays\n");
|
|
|
|
size[0] = DP_SRAM1_SIZE;
|
|
size[1] = DP_SRAM2_SIZE;
|
|
size[2] = DP_SRAM3_SIZE;
|
|
size[3] = DP_SCRATCH_SIZE;
|
|
|
|
ram[0] = (char *)&DpRam->DpSram1[0];
|
|
ram[1] = (char *)&DpRam->DpSram2[0];
|
|
ram[2] = (char *)&DpRam->DpSram3[0];
|
|
nbanks = (type == RIO_PCI) ? 3 : 4;
|
|
if (nbanks == 4)
|
|
ram[3] = (char *)&DpRam->DpScratch[0];
|
|
|
|
|
|
if (nbanks == 3) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Memory: 0x%x(0x%x), 0x%x(0x%x), 0x%x(0x%x)\n",
|
|
(int)ram[0], size[0], (int)ram[1], size[1], (int)ram[2], size[2]);
|
|
} else {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: 0x%x(0x%x), 0x%x(0x%x), 0x%x(0x%x), 0x%x(0x%x)\n",
|
|
(int)ram[0], size[0], (int)ram[1], size[1], (int)ram[2], size[2], (int)ram[3],
|
|
size[3]);
|
|
}
|
|
|
|
/*
|
|
** This scrub operation will test for crosstalk between
|
|
** banks. TEST_END is a magic number, and relates to the offset
|
|
** within the 'val' array used by Scrub.
|
|
*/
|
|
for (op=0; op<TEST_END; op++) {
|
|
for (bank=0; bank<nbanks; bank++) {
|
|
if (RIOScrub(op, (BYTE *)ram[bank], size[bank]) == RIO_FAIL) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: RIOScrub band %d, op %d failed\n",
|
|
bank, op);
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
}
|
|
|
|
rio_dprintk (RIO_DEBUG_INIT, "Test completed\n");
|
|
return RIO_SUCCESS;
|
|
}
|
|
|
|
|
|
/*
|
|
** Scrub an area of RAM.
|
|
** Define PRETEST and POSTTEST for a more thorough checking of the
|
|
** state of the memory.
|
|
** Call with op set to an index into the above 'val' array to determine
|
|
** which value will be written into memory.
|
|
** Call with op set to zero means that the RAM will not be read and checked
|
|
** before it is written.
|
|
** Call with op not zero, and the RAM will be read and compated with val[op-1]
|
|
** to check that the data from the previous phase was retained.
|
|
*/
|
|
static int
|
|
RIOScrub(op, ram, size)
|
|
int op;
|
|
BYTE * ram;
|
|
int size;
|
|
{
|
|
int off;
|
|
unsigned char oldbyte;
|
|
unsigned char newbyte;
|
|
unsigned char invbyte;
|
|
unsigned short oldword;
|
|
unsigned short newword;
|
|
unsigned short invword;
|
|
unsigned short swapword;
|
|
|
|
if (op) {
|
|
oldbyte = val[op-1];
|
|
oldword = oldbyte | (oldbyte<<8);
|
|
} else
|
|
oldbyte = oldword = 0; /* Tell the compiler we've initilalized them. */
|
|
newbyte = val[op];
|
|
newword = newbyte | (newbyte<<8);
|
|
invbyte = ~newbyte;
|
|
invword = invbyte | (invbyte<<8);
|
|
|
|
/*
|
|
** Check that the RAM contains the value that should have been left there
|
|
** by the previous test (not applicable for pass zero)
|
|
*/
|
|
if (op) {
|
|
for (off=0; off<size; off++) {
|
|
if (RBYTE(ram[off]) != oldbyte) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Byte Pre Check 1: BYTE at offset 0x%x should have been=%x, was=%x\n", off, oldbyte, RBYTE(ram[off]));
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
for (off=0; off<size; off+=2) {
|
|
if (*(ushort *)&ram[off] != oldword) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Word Pre Check: WORD at offset 0x%x should have been=%x, was=%x\n",off,oldword,*(ushort *)&ram[off]);
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Word Pre Check: BYTE at offset 0x%x is %x BYTE at offset 0x%x is %x\n", off, RBYTE(ram[off]), off+1, RBYTE(ram[off+1]));
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
** Now write the INVERSE of the test data into every location, using
|
|
** BYTE write operations, first checking before each byte is written
|
|
** that the location contains the old value still, and checking after
|
|
** the write that the location contains the data specified - this is
|
|
** the BYTE read/write test.
|
|
*/
|
|
for (off=0; off<size; off++) {
|
|
if (op && (RBYTE(ram[off]) != oldbyte)) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Byte Pre Check 2: BYTE at offset 0x%x should have been=%x, was=%x\n", off, oldbyte, RBYTE(ram[off]));
|
|
return RIO_FAIL;
|
|
}
|
|
WBYTE(ram[off],invbyte);
|
|
if (RBYTE(ram[off]) != invbyte) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Byte Inv Check: BYTE at offset 0x%x should have been=%x, was=%x\n", off, invbyte, RBYTE(ram[off]));
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
|
|
/*
|
|
** now, use WORD operations to write the test value into every location,
|
|
** check as before that the location contains the previous test value
|
|
** before overwriting, and that it contains the data value written
|
|
** afterwards.
|
|
** This is the WORD operation test.
|
|
*/
|
|
for (off=0; off<size; off+=2) {
|
|
if (*(ushort *)&ram[off] != invword) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Word Inv Check: WORD at offset 0x%x should have been=%x, was=%x\n", off, invword, *(ushort *)&ram[off]);
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Word Inv Check: BYTE at offset 0x%x is %x BYTE at offset 0x%x is %x\n", off, RBYTE(ram[off]), off+1, RBYTE(ram[off+1]));
|
|
return RIO_FAIL;
|
|
}
|
|
|
|
*(ushort *)&ram[off] = newword;
|
|
if ( *(ushort *)&ram[off] != newword ) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Post Word Check 1: WORD at offset 0x%x should have been=%x, was=%x\n", off, newword, *(ushort *)&ram[off]);
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Post Word Check 1: BYTE at offset 0x%x is %x BYTE at offset 0x%x is %x\n", off, RBYTE(ram[off]), off+1, RBYTE(ram[off+1]));
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
|
|
/*
|
|
** now run through the block of memory again, first in byte mode
|
|
** then in word mode, and check that all the locations contain the
|
|
** required test data.
|
|
*/
|
|
for (off=0; off<size; off++) {
|
|
if (RBYTE(ram[off]) != newbyte) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Post Byte Check: BYTE at offset 0x%x should have been=%x, was=%x\n", off, newbyte, RBYTE(ram[off]));
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
|
|
for (off=0; off<size; off+=2) {
|
|
if ( *(ushort *)&ram[off] != newword ) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Post Word Check 2: WORD at offset 0x%x should have been=%x, was=%x\n", off, newword, *(ushort *)&ram[off]);
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Post Word Check 2: BYTE at offset 0x%x is %x BYTE at offset 0x%x is %x\n", off, RBYTE(ram[off]), off+1, RBYTE(ram[off+1]));
|
|
return RIO_FAIL;
|
|
}
|
|
}
|
|
|
|
/*
|
|
** time to check out byte swapping errors
|
|
*/
|
|
swapword = invbyte | (newbyte << 8);
|
|
|
|
for (off=0; off<size; off+=2) {
|
|
WBYTE(ram[off],invbyte);
|
|
WBYTE(ram[off+1],newbyte);
|
|
}
|
|
|
|
for ( off=0; off<size; off+=2 ) {
|
|
if (*(ushort *)&ram[off] != swapword) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: SwapWord Check 1: WORD at offset 0x%x should have been=%x, was=%x\n", off, swapword, *((ushort *)&ram[off]));
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: SwapWord Check 1: BYTE at offset 0x%x is %x BYTE at offset 0x%x is %x\n", off, RBYTE(ram[off]), off+1, RBYTE(ram[off+1]));
|
|
return RIO_FAIL;
|
|
}
|
|
*((ushort *)&ram[off]) = ~swapword;
|
|
}
|
|
|
|
for (off=0; off<size; off+=2) {
|
|
if (RBYTE(ram[off]) != newbyte) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: SwapWord Check 2: BYTE at offset 0x%x should have been=%x, was=%x\n", off, newbyte, RBYTE(ram[off]));
|
|
return RIO_FAIL;
|
|
}
|
|
if (RBYTE(ram[off+1]) != invbyte) {
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIO-init: SwapWord Check 2: BYTE at offset 0x%x should have been=%x, was=%x\n", off+1, invbyte, RBYTE(ram[off+1]));
|
|
return RIO_FAIL;
|
|
}
|
|
*((ushort *)&ram[off]) = newword;
|
|
}
|
|
return RIO_SUCCESS;
|
|
}
|
|
|
|
|
|
int
|
|
RIODefaultName(p, HostP, UnitId)
|
|
struct rio_info * p;
|
|
struct Host * HostP;
|
|
uint UnitId;
|
|
{
|
|
bcopy("UNKNOWN RTA X-XX",HostP->Mapping[UnitId].Name,17);
|
|
HostP->Mapping[UnitId].Name[12]='1'+(HostP-p->RIOHosts);
|
|
if ((UnitId+1) > 9) {
|
|
HostP->Mapping[UnitId].Name[14]='0'+((UnitId+1)/10);
|
|
HostP->Mapping[UnitId].Name[15]='0'+((UnitId+1)%10);
|
|
}
|
|
else {
|
|
HostP->Mapping[UnitId].Name[14]='1'+UnitId;
|
|
HostP->Mapping[UnitId].Name[15]=0;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
#define RIO_RELEASE "Linux"
|
|
#define RELEASE_ID "1.0"
|
|
|
|
static struct rioVersion stVersion;
|
|
|
|
struct rioVersion *
|
|
RIOVersid(void)
|
|
{
|
|
strlcpy(stVersion.version, "RIO driver for linux V1.0",
|
|
sizeof(stVersion.version));
|
|
strlcpy(stVersion.buildDate, __DATE__,
|
|
sizeof(stVersion.buildDate));
|
|
|
|
return &stVersion;
|
|
}
|
|
|
|
void
|
|
RIOHostReset(Type, DpRamP, Slot)
|
|
uint Type;
|
|
volatile struct DpRam *DpRamP;
|
|
uint Slot;
|
|
{
|
|
/*
|
|
** Reset the Tpu
|
|
*/
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIOHostReset: type 0x%x", Type);
|
|
switch ( Type ) {
|
|
case RIO_AT:
|
|
rio_dprintk (RIO_DEBUG_INIT, " (RIO_AT)\n");
|
|
WBYTE(DpRamP->DpControl, BOOT_FROM_RAM | EXTERNAL_BUS_OFF |
|
|
INTERRUPT_DISABLE | BYTE_OPERATION |
|
|
SLOW_LINKS | SLOW_AT_BUS);
|
|
WBYTE(DpRamP->DpResetTpu, 0xFF);
|
|
udelay(3);
|
|
|
|
rio_dprintk (RIO_DEBUG_INIT, "RIOHostReset: Don't know if it worked. Try reset again\n");
|
|
WBYTE(DpRamP->DpControl, BOOT_FROM_RAM | EXTERNAL_BUS_OFF |
|
|
INTERRUPT_DISABLE | BYTE_OPERATION |
|
|
SLOW_LINKS | SLOW_AT_BUS);
|
|
WBYTE(DpRamP->DpResetTpu, 0xFF);
|
|
udelay(3);
|
|
break;
|
|
case RIO_PCI:
|
|
rio_dprintk (RIO_DEBUG_INIT, " (RIO_PCI)\n");
|
|
DpRamP->DpControl = RIO_PCI_BOOT_FROM_RAM;
|
|
DpRamP->DpResetInt = 0xFF;
|
|
DpRamP->DpResetTpu = 0xFF;
|
|
udelay(100);
|
|
/* for (i=0; i<6000; i++); */
|
|
/* suspend( 3 ); */
|
|
break;
|
|
default:
|
|
rio_dprintk (RIO_DEBUG_INIT, " (UNKNOWN)\n");
|
|
break;
|
|
}
|
|
return;
|
|
}
|