Merge branch 'upstream'
[linux-2.6] / drivers / char / rio / rioinit.c
1 /*
2 ** -----------------------------------------------------------------------------
3 **
4 **  Perle Specialix driver for Linux
5 **  Ported from existing RIO Driver for SCO sources.
6  *
7  *  (C) 1990 - 2000 Specialix International Ltd., Byfleet, Surrey, UK.
8  *
9  *      This program is free software; you can redistribute it and/or modify
10  *      it under the terms of the GNU General Public License as published by
11  *      the Free Software Foundation; either version 2 of the License, or
12  *      (at your option) any later version.
13  *
14  *      This program is distributed in the hope that it will be useful,
15  *      but WITHOUT ANY WARRANTY; without even the implied warranty of
16  *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  *      GNU General Public License for more details.
18  *
19  *      You should have received a copy of the GNU General Public License
20  *      along with this program; if not, write to the Free Software
21  *      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22 **
23 **      Module          : rioinit.c
24 **      SID             : 1.3
25 **      Last Modified   : 11/6/98 10:33:43
26 **      Retrieved       : 11/6/98 10:33:49
27 **
28 **  ident @(#)rioinit.c 1.3
29 **
30 ** -----------------------------------------------------------------------------
31 */
32 #ifdef SCCS_LABELS
33 static char *_rioinit_c_sccs_ = "@(#)rioinit.c  1.3";
34 #endif
35
36 #include <linux/config.h>
37 #include <linux/module.h>
38 #include <linux/slab.h>
39 #include <linux/errno.h>
40 #include <linux/delay.h>
41 #include <asm/io.h>
42 #include <asm/system.h>
43 #include <asm/string.h>
44 #include <asm/semaphore.h>
45 #include <asm/uaccess.h>
46
47 #include <linux/termios.h>
48 #include <linux/serial.h>
49
50 #include <linux/generic_serial.h>
51
52
53 #include "linux_compat.h"
54 #include "typdef.h"
55 #include "pkt.h"
56 #include "daemon.h"
57 #include "rio.h"
58 #include "riospace.h"
59 #include "top.h"
60 #include "cmdpkt.h"
61 #include "map.h"
62 #include "riotypes.h"
63 #include "rup.h"
64 #include "port.h"
65 #include "riodrvr.h"
66 #include "rioinfo.h"
67 #include "func.h"
68 #include "errors.h"
69 #include "pci.h"
70
71 #include "parmmap.h"
72 #include "unixrup.h"
73 #include "board.h"
74 #include "host.h"
75 #include "error.h"
76 #include "phb.h"
77 #include "link.h"
78 #include "cmdblk.h"
79 #include "route.h"
80 #include "control.h"
81 #include "cirrus.h"
82 #include "rioioctl.h"
83 #include "rio_linux.h"
84
85 #undef bcopy
86 #define bcopy rio_pcicopy
87
88 int RIOPCIinit(struct rio_info *p, int Mode);
89
90 static int RIOScrub(int, BYTE *, int);
91
92
93 /**
94 ** RIOAssignAT :
95 **
96 ** Fill out the fields in the p->RIOHosts structure now we know we know
97 ** we have a board present.
98 **
99 ** bits < 0 indicates 8 bit operation requested,
100 ** bits > 0 indicates 16 bit operation.
101 */
102 int
103 RIOAssignAT(p, Base, virtAddr, mode)
104 struct rio_info *       p;
105 int             Base;
106 caddr_t virtAddr;
107 int             mode;
108 {
109         int             bits;
110         struct DpRam *cardp = (struct DpRam *)virtAddr;
111
112         if ((Base < ONE_MEG) || (mode & BYTE_ACCESS_MODE))
113                 bits = BYTE_OPERATION;
114         else
115                 bits = WORD_OPERATION;
116
117         /*
118         ** Board has passed its scrub test. Fill in all the
119         ** transient stuff.
120         */
121         p->RIOHosts[p->RIONumHosts].Caddr       = virtAddr;
122         p->RIOHosts[p->RIONumHosts].CardP       = (struct DpRam *)virtAddr;
123
124         /*
125         ** Revision 01 AT host cards don't support WORD operations,
126         */
127         if ( RBYTE(cardp->DpRevision) == 01 )
128                 bits = BYTE_OPERATION;
129
130         p->RIOHosts[p->RIONumHosts].Type = RIO_AT;
131         p->RIOHosts[p->RIONumHosts].Copy = bcopy;
132                                                                                         /* set this later */
133         p->RIOHosts[p->RIONumHosts].Slot = -1;
134         p->RIOHosts[p->RIONumHosts].Mode = SLOW_LINKS | SLOW_AT_BUS | bits;
135         WBYTE(p->RIOHosts[p->RIONumHosts].Control, 
136                         BOOT_FROM_RAM | EXTERNAL_BUS_OFF | 
137                         p->RIOHosts[p->RIONumHosts].Mode | 
138                         INTERRUPT_DISABLE );
139         WBYTE(p->RIOHosts[p->RIONumHosts].ResetInt,0xff);
140         WBYTE(p->RIOHosts[p->RIONumHosts].Control,
141                         BOOT_FROM_RAM | EXTERNAL_BUS_OFF | 
142                         p->RIOHosts[p->RIONumHosts].Mode |
143                         INTERRUPT_DISABLE );
144         WBYTE(p->RIOHosts[p->RIONumHosts].ResetInt,0xff);
145         p->RIOHosts[p->RIONumHosts].UniqueNum =
146                 ((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[0])&0xFF)<<0)|
147                 ((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[1])&0xFF)<<8)|
148                 ((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[2])&0xFF)<<16)|
149                 ((RBYTE(p->RIOHosts[p->RIONumHosts].Unique[3])&0xFF)<<24);
150         rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Uniquenum 0x%x\n",p->RIOHosts[p->RIONumHosts].UniqueNum);
151
152         p->RIONumHosts++;
153         rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Tests Passed at 0x%x\n", Base);
154         return(1);
155 }
156
157 static  uchar   val[] = {
158 #ifdef VERY_LONG_TEST
159           0x00, 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80,
160           0xa5, 0xff, 0x5a, 0x00, 0xff, 0xc9, 0x36, 
161 #endif
162           0xff, 0x00, 0x00 };
163
164 #define TEST_END sizeof(val)
165
166 /*
167 ** RAM test a board. 
168 ** Nothing too complicated, just enough to check it out.
169 */
170 int
171 RIOBoardTest(paddr, caddr, type, slot)
172 paddr_t paddr;
173 caddr_t caddr;
174 uchar   type;
175 int             slot;
176 {
177         struct DpRam *DpRam = (struct DpRam *)caddr;
178         char *ram[4];
179         int  size[4];
180         int  op, bank;
181         int  nbanks;
182
183         rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Reset host type=%d, DpRam=0x%x, slot=%d\n",
184                         type,(int)DpRam, slot);
185
186         RIOHostReset(type, DpRam, slot);
187
188         /*
189         ** Scrub the memory. This comes in several banks:
190         ** DPsram1      - 7000h bytes
191         ** DPsram2      - 200h  bytes
192         ** DPsram3      - 7000h bytes
193         ** scratch      - 1000h bytes
194         */
195
196         rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Setup ram/size arrays\n");
197
198         size[0] = DP_SRAM1_SIZE;
199         size[1] = DP_SRAM2_SIZE;
200         size[2] = DP_SRAM3_SIZE;
201         size[3] = DP_SCRATCH_SIZE;
202
203         ram[0] = (char *)&DpRam->DpSram1[0];
204         ram[1] = (char *)&DpRam->DpSram2[0];
205         ram[2] = (char *)&DpRam->DpSram3[0];
206         nbanks = (type == RIO_PCI) ? 3 : 4;
207         if (nbanks == 4)
208                 ram[3] = (char *)&DpRam->DpScratch[0];
209
210
211         if (nbanks == 3) {
212                 rio_dprintk (RIO_DEBUG_INIT, "RIO-init: Memory: 0x%x(0x%x), 0x%x(0x%x), 0x%x(0x%x)\n",
213                                 (int)ram[0], size[0], (int)ram[1], size[1], (int)ram[2], size[2]);
214         } else {
215                 rio_dprintk (RIO_DEBUG_INIT, "RIO-init: 0x%x(0x%x), 0x%x(0x%x), 0x%x(0x%x), 0x%x(0x%x)\n",
216                         (int)ram[0], size[0], (int)ram[1], size[1], (int)ram[2], size[2], (int)ram[3], 
217                                         size[3]);
218         }
219
220         /*
221         ** This scrub operation will test for crosstalk between
222         ** banks. TEST_END is a magic number, and relates to the offset
223         ** within the 'val' array used by Scrub.
224         */
225         for (op=0; op<TEST_END; op++) {
226                 for (bank=0; bank<nbanks; bank++) {
227                         if (RIOScrub(op, (BYTE *)ram[bank], size[bank]) == RIO_FAIL) {
228                                 rio_dprintk (RIO_DEBUG_INIT, "RIO-init: RIOScrub band %d, op %d failed\n", 
229                                                         bank, op);
230                                 return RIO_FAIL;
231                         }
232                 }
233         }
234
235         rio_dprintk (RIO_DEBUG_INIT, "Test completed\n");
236         return RIO_SUCCESS;
237 }
238
239
240 /*
241 ** Scrub an area of RAM.
242 ** Define PRETEST and POSTTEST for a more thorough checking of the
243 ** state of the memory.
244 ** Call with op set to an index into the above 'val' array to determine
245 ** which value will be written into memory.
246 ** Call with op set to zero means that the RAM will not be read and checked
247 ** before it is written.
248 ** Call with op not zero, and the RAM will be read and compated with val[op-1]
249 ** to check that the data from the previous phase was retained.
250 */
251 static int
252 RIOScrub(op, ram, size)
253 int             op;
254 BYTE *  ram;
255 int             size; 
256 {
257         int                             off;
258         unsigned char   oldbyte;
259         unsigned char   newbyte;
260         unsigned char   invbyte;
261         unsigned short  oldword;
262         unsigned short  newword;
263         unsigned short  invword;
264         unsigned short  swapword;
265
266         if (op) {
267                 oldbyte = val[op-1];
268                 oldword = oldbyte | (oldbyte<<8);
269         } else
270           oldbyte = oldword = 0; /* Tell the compiler we've initilalized them. */
271         newbyte = val[op];
272         newword = newbyte | (newbyte<<8);
273         invbyte = ~newbyte;
274         invword = invbyte | (invbyte<<8);
275
276         /*
277         ** Check that the RAM contains the value that should have been left there
278         ** by the previous test (not applicable for pass zero)
279         */
280         if (op) {
281                 for (off=0; off<size; off++) {
282                         if (RBYTE(ram[off]) != oldbyte) {
283                                 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]));
284                                 return RIO_FAIL;
285                         }
286                 }
287                 for (off=0; off<size; off+=2) {
288                         if (*(ushort *)&ram[off] != oldword) {
289                                 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]);
290                                 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]));
291                                 return RIO_FAIL;
292                         }
293                 }
294         }
295
296         /*
297         ** Now write the INVERSE of the test data into every location, using
298         ** BYTE write operations, first checking before each byte is written
299         ** that the location contains the old value still, and checking after
300         ** the write that the location contains the data specified - this is
301         ** the BYTE read/write test.
302         */
303         for (off=0; off<size; off++) {
304                 if (op && (RBYTE(ram[off]) != oldbyte)) {
305                         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]));
306                         return RIO_FAIL;
307                 }
308                 WBYTE(ram[off],invbyte);
309                 if (RBYTE(ram[off]) != invbyte) {
310                         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]));
311                         return RIO_FAIL;
312                 }
313         }
314
315         /*
316         ** now, use WORD operations to write the test value into every location,
317         ** check as before that the location contains the previous test value
318         ** before overwriting, and that it contains the data value written
319         ** afterwards.
320         ** This is the WORD operation test.
321         */
322         for (off=0; off<size; off+=2) {
323                 if (*(ushort *)&ram[off] != invword) {
324                         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]);
325                 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]));
326                         return RIO_FAIL;
327                 }
328
329                 *(ushort *)&ram[off] = newword;
330                 if ( *(ushort *)&ram[off] != newword ) {
331                         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]);
332                         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]));
333                         return RIO_FAIL;
334                 }
335         }
336
337         /*
338         ** now run through the block of memory again, first in byte mode
339         ** then in word mode, and check that all the locations contain the
340         ** required test data.
341         */
342         for (off=0; off<size; off++) {
343                 if (RBYTE(ram[off]) != newbyte) {
344                         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]));
345                         return RIO_FAIL;
346                 }
347         }
348
349         for (off=0; off<size; off+=2) {
350                 if ( *(ushort *)&ram[off] != newword ) {
351                         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]);
352                         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]));
353                         return RIO_FAIL;
354                 }
355         }
356
357         /*
358         ** time to check out byte swapping errors
359         */
360         swapword = invbyte | (newbyte << 8);
361
362         for (off=0; off<size; off+=2) {
363                 WBYTE(ram[off],invbyte);
364                 WBYTE(ram[off+1],newbyte);
365         }
366
367         for ( off=0; off<size; off+=2 ) {
368                 if (*(ushort *)&ram[off] != swapword) {
369                         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]));
370                         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]));
371                         return RIO_FAIL;
372                 }
373                 *((ushort *)&ram[off]) = ~swapword;
374         }
375
376         for (off=0; off<size; off+=2) {
377                 if (RBYTE(ram[off]) != newbyte) {
378                         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]));
379                         return RIO_FAIL;
380                 }
381                 if (RBYTE(ram[off+1]) != invbyte) {
382                         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]));
383                         return RIO_FAIL;
384                 }
385                 *((ushort *)&ram[off]) = newword;
386         }
387         return RIO_SUCCESS;
388 }
389
390
391 int
392 RIODefaultName(p, HostP, UnitId)
393 struct rio_info *       p;
394 struct Host *   HostP;
395 uint                    UnitId;
396 {
397         bcopy("UNKNOWN RTA X-XX",HostP->Mapping[UnitId].Name,17);
398         HostP->Mapping[UnitId].Name[12]='1'+(HostP-p->RIOHosts);
399         if ((UnitId+1) > 9) {
400                 HostP->Mapping[UnitId].Name[14]='0'+((UnitId+1)/10);
401                 HostP->Mapping[UnitId].Name[15]='0'+((UnitId+1)%10);
402         }
403         else {
404                 HostP->Mapping[UnitId].Name[14]='1'+UnitId;
405                 HostP->Mapping[UnitId].Name[15]=0;
406         }
407         return 0;
408 }
409
410 #define RIO_RELEASE     "Linux"
411 #define RELEASE_ID      "1.0"
412
413 static struct rioVersion        stVersion;
414
415 struct rioVersion *
416 RIOVersid(void)
417 {
418     strlcpy(stVersion.version, "RIO driver for linux V1.0",
419             sizeof(stVersion.version));
420     strlcpy(stVersion.buildDate, __DATE__,
421             sizeof(stVersion.buildDate));
422
423     return &stVersion;
424 }
425
426 void
427 RIOHostReset(Type, DpRamP, Slot)
428 uint Type;
429 volatile struct DpRam *DpRamP;
430 uint Slot; 
431 {
432         /*
433         ** Reset the Tpu
434         */
435         rio_dprintk (RIO_DEBUG_INIT,  "RIOHostReset: type 0x%x", Type);
436         switch ( Type ) {
437                 case RIO_AT:
438                         rio_dprintk (RIO_DEBUG_INIT, " (RIO_AT)\n");
439                         WBYTE(DpRamP->DpControl,  BOOT_FROM_RAM | EXTERNAL_BUS_OFF | 
440                                           INTERRUPT_DISABLE | BYTE_OPERATION |
441                                           SLOW_LINKS | SLOW_AT_BUS);
442                         WBYTE(DpRamP->DpResetTpu, 0xFF);
443                         udelay(3);
444
445                         rio_dprintk (RIO_DEBUG_INIT,  "RIOHostReset: Don't know if it worked. Try reset again\n");
446                         WBYTE(DpRamP->DpControl,  BOOT_FROM_RAM | EXTERNAL_BUS_OFF |
447                                           INTERRUPT_DISABLE | BYTE_OPERATION |
448                                           SLOW_LINKS | SLOW_AT_BUS);
449                         WBYTE(DpRamP->DpResetTpu, 0xFF);
450                         udelay(3);
451                         break;
452         case RIO_PCI:
453                 rio_dprintk (RIO_DEBUG_INIT, " (RIO_PCI)\n");
454                 DpRamP->DpControl  = RIO_PCI_BOOT_FROM_RAM;
455                 DpRamP->DpResetInt = 0xFF;
456                 DpRamP->DpResetTpu = 0xFF;
457                 udelay(100);
458                 /* for (i=0; i<6000; i++);  */
459                 /* suspend( 3 ); */
460                 break;
461         default:
462                 rio_dprintk (RIO_DEBUG_INIT, " (UNKNOWN)\n");
463                 break;
464         }
465         return;
466 }