Merge branch 'for-linus' of git://git.kernel.org/pub/scm/linux/kernel/git/gerg/m68knommu
[pandora-kernel.git] / arch / alpha / kernel / sys_takara.c
1 /*
2  *      linux/arch/alpha/kernel/sys_takara.c
3  *
4  *      Copyright (C) 1995 David A Rusling
5  *      Copyright (C) 1996 Jay A Estabrook
6  *      Copyright (C) 1998, 1999 Richard Henderson
7  *
8  * Code supporting the TAKARA.
9  */
10
11 #include <linux/kernel.h>
12 #include <linux/types.h>
13 #include <linux/mm.h>
14 #include <linux/sched.h>
15 #include <linux/pci.h>
16 #include <linux/init.h>
17
18 #include <asm/ptrace.h>
19 #include <asm/system.h>
20 #include <asm/dma.h>
21 #include <asm/irq.h>
22 #include <asm/mmu_context.h>
23 #include <asm/io.h>
24 #include <asm/pgtable.h>
25 #include <asm/core_cia.h>
26 #include <asm/tlbflush.h>
27
28 #include "proto.h"
29 #include "irq_impl.h"
30 #include "pci_impl.h"
31 #include "machvec_impl.h"
32 #include "pc873xx.h"
33
34 /* Note mask bit is true for DISABLED irqs.  */
35 static unsigned long cached_irq_mask[2] = { -1, -1 };
36
37 static inline void
38 takara_update_irq_hw(unsigned long irq, unsigned long mask)
39 {
40         int regaddr;
41
42         mask = (irq >= 64 ? mask << 16 : mask >> ((irq - 16) & 0x30));
43         regaddr = 0x510 + (((irq - 16) >> 2) & 0x0c);
44         outl(mask & 0xffff0000UL, regaddr);
45 }
46
47 static inline void
48 takara_enable_irq(unsigned int irq)
49 {
50         unsigned long mask;
51         mask = (cached_irq_mask[irq >= 64] &= ~(1UL << (irq & 63)));
52         takara_update_irq_hw(irq, mask);
53 }
54
55 static void
56 takara_disable_irq(unsigned int irq)
57 {
58         unsigned long mask;
59         mask = (cached_irq_mask[irq >= 64] |= 1UL << (irq & 63));
60         takara_update_irq_hw(irq, mask);
61 }
62
63 static unsigned int
64 takara_startup_irq(unsigned int irq)
65 {
66         takara_enable_irq(irq);
67         return 0; /* never anything pending */
68 }
69
70 static void
71 takara_end_irq(unsigned int irq)
72 {
73         if (!(irq_desc[irq].status & (IRQ_DISABLED|IRQ_INPROGRESS)))
74                 takara_enable_irq(irq);
75 }
76
77 static struct irq_chip takara_irq_type = {
78         .name           = "TAKARA",
79         .startup        = takara_startup_irq,
80         .shutdown       = takara_disable_irq,
81         .enable         = takara_enable_irq,
82         .disable        = takara_disable_irq,
83         .ack            = takara_disable_irq,
84         .end            = takara_end_irq,
85 };
86
87 static void
88 takara_device_interrupt(unsigned long vector)
89 {
90         unsigned intstatus;
91
92         /*
93          * The PALcode will have passed us vectors 0x800 or 0x810,
94          * which are fairly arbitrary values and serve only to tell
95          * us whether an interrupt has come in on IRQ0 or IRQ1. If
96          * it's IRQ1 it's a PCI interrupt; if it's IRQ0, it's
97          * probably ISA, but PCI interrupts can come through IRQ0
98          * as well if the interrupt controller isn't in accelerated
99          * mode.
100          *
101          * OTOH, the accelerator thing doesn't seem to be working
102          * overly well, so what we'll do instead is try directly
103          * examining the Master Interrupt Register to see if it's a
104          * PCI interrupt, and if _not_ then we'll pass it on to the
105          * ISA handler.
106          */
107
108         intstatus = inw(0x500) & 15;
109         if (intstatus) {
110                 /*
111                  * This is a PCI interrupt. Check each bit and
112                  * despatch an interrupt if it's set.
113                  */
114
115                 if (intstatus & 8) handle_irq(16+3);
116                 if (intstatus & 4) handle_irq(16+2);
117                 if (intstatus & 2) handle_irq(16+1);
118                 if (intstatus & 1) handle_irq(16+0);
119         } else {
120                 isa_device_interrupt (vector);
121         }
122 }
123
124 static void 
125 takara_srm_device_interrupt(unsigned long vector)
126 {
127         int irq = (vector - 0x800) >> 4;
128         handle_irq(irq);
129 }
130
131 static void __init
132 takara_init_irq(void)
133 {
134         long i;
135
136         init_i8259a_irqs();
137
138         if (alpha_using_srm) {
139                 alpha_mv.device_interrupt = takara_srm_device_interrupt;
140         } else {
141                 unsigned int ctlreg = inl(0x500);
142
143                 /* Return to non-accelerated mode.  */
144                 ctlreg &= ~0x8000;
145                 outl(ctlreg, 0x500);
146
147                 /* Enable the PCI interrupt register.  */
148                 ctlreg = 0x05107c00;
149                 outl(ctlreg, 0x500);
150         }
151
152         for (i = 16; i < 128; i += 16)
153                 takara_update_irq_hw(i, -1);
154
155         for (i = 16; i < 128; ++i) {
156                 irq_desc[i].status = IRQ_DISABLED | IRQ_LEVEL;
157                 irq_desc[i].chip = &takara_irq_type;
158         }
159
160         common_init_isa_dma();
161 }
162
163
164 /*
165  * The Takara has PCI devices 1, 2, and 3 configured to slots 20,
166  * 19, and 18 respectively, in the default configuration. They can
167  * also be jumpered to slots 8, 7, and 6 respectively, which is fun
168  * because the SIO ISA bridge can also be slot 7. However, the SIO
169  * doesn't explicitly generate PCI-type interrupts, so we can
170  * assign it whatever the hell IRQ we like and it doesn't matter.
171  */
172
173 static int __init
174 takara_map_irq_srm(struct pci_dev *dev, u8 slot, u8 pin)
175 {
176         static char irq_tab[15][5] __initdata = {
177                 { 16+3, 16+3, 16+3, 16+3, 16+3},   /* slot  6 == device 3 */
178                 { 16+2, 16+2, 16+2, 16+2, 16+2},   /* slot  7 == device 2 */
179                 { 16+1, 16+1, 16+1, 16+1, 16+1},   /* slot  8 == device 1 */
180                 {   -1,   -1,   -1,   -1,   -1},   /* slot  9 == nothing */
181                 {   -1,   -1,   -1,   -1,   -1},   /* slot 10 == nothing */
182                 {   -1,   -1,   -1,   -1,   -1},   /* slot 11 == nothing */
183                 /* These are behind the bridges.  */
184                 {   12,   12,   13,   14,   15},   /* slot 12 == nothing */
185                 {    8,    8,    9,   19,   11},   /* slot 13 == nothing */
186                 {    4,    4,    5,    6,    7},   /* slot 14 == nothing */
187                 {    0,    0,    1,    2,    3},   /* slot 15 == nothing */
188                 {   -1,   -1,   -1,   -1,   -1},   /* slot 16 == nothing */
189                 {64+ 0, 64+0, 64+1, 64+2, 64+3},   /* slot 17= device 4 */
190                 {48+ 0, 48+0, 48+1, 48+2, 48+3},   /* slot 18= device 3 */
191                 {32+ 0, 32+0, 32+1, 32+2, 32+3},   /* slot 19= device 2 */
192                 {16+ 0, 16+0, 16+1, 16+2, 16+3},   /* slot 20= device 1 */
193         };
194         const long min_idsel = 6, max_idsel = 20, irqs_per_slot = 5;
195         int irq = COMMON_TABLE_LOOKUP;
196         if (irq >= 0 && irq < 16) {
197                 /* Guess that we are behind a bridge.  */
198                 unsigned int busslot = PCI_SLOT(dev->bus->self->devfn);
199                 irq += irq_tab[busslot-min_idsel][0];
200         }
201         return irq;
202 }
203
204 static int __init
205 takara_map_irq(struct pci_dev *dev, u8 slot, u8 pin)
206 {
207         static char irq_tab[15][5] __initdata = {
208                 { 16+3, 16+3, 16+3, 16+3, 16+3},   /* slot  6 == device 3 */
209                 { 16+2, 16+2, 16+2, 16+2, 16+2},   /* slot  7 == device 2 */
210                 { 16+1, 16+1, 16+1, 16+1, 16+1},   /* slot  8 == device 1 */
211                 {   -1,   -1,   -1,   -1,   -1},   /* slot  9 == nothing */
212                 {   -1,   -1,   -1,   -1,   -1},   /* slot 10 == nothing */
213                 {   -1,   -1,   -1,   -1,   -1},   /* slot 11 == nothing */
214                 {   -1,   -1,   -1,   -1,   -1},   /* slot 12 == nothing */
215                 {   -1,   -1,   -1,   -1,   -1},   /* slot 13 == nothing */
216                 {   -1,   -1,   -1,   -1,   -1},   /* slot 14 == nothing */
217                 {   -1,   -1,   -1,   -1,   -1},   /* slot 15 == nothing */
218                 {   -1,   -1,   -1,   -1,   -1},   /* slot 16 == nothing */
219                 {   -1,   -1,   -1,   -1,   -1},   /* slot 17 == nothing */
220                 { 16+3, 16+3, 16+3, 16+3, 16+3},   /* slot 18 == device 3 */
221                 { 16+2, 16+2, 16+2, 16+2, 16+2},   /* slot 19 == device 2 */
222                 { 16+1, 16+1, 16+1, 16+1, 16+1},   /* slot 20 == device 1 */
223         };
224         const long min_idsel = 6, max_idsel = 20, irqs_per_slot = 5;
225         return COMMON_TABLE_LOOKUP;
226 }
227
228 static u8 __init
229 takara_swizzle(struct pci_dev *dev, u8 *pinp)
230 {
231         int slot = PCI_SLOT(dev->devfn);
232         int pin = *pinp;
233         unsigned int ctlreg = inl(0x500);
234         unsigned int busslot;
235
236         if (!dev->bus->self)
237                 return slot;
238
239         busslot = PCI_SLOT(dev->bus->self->devfn);
240         /* Check for built-in bridges.  */
241         if (dev->bus->number != 0
242             && busslot > 16
243             && ((1<<(36-busslot)) & ctlreg)) {
244                 if (pin == 1)
245                         pin += (20 - busslot);
246                 else {
247                         printk(KERN_WARNING "takara_swizzle: can only "
248                                "handle cards with INTA IRQ pin.\n");
249                 }
250         } else {
251                 /* Must be a card-based bridge.  */
252                 printk(KERN_WARNING "takara_swizzle: cannot handle "
253                        "card-bridge behind builtin bridge yet.\n");
254         }
255
256         *pinp = pin;
257         return slot;
258 }
259
260 static void __init
261 takara_init_pci(void)
262 {
263         if (alpha_using_srm)
264                 alpha_mv.pci_map_irq = takara_map_irq_srm;
265
266         cia_init_pci();
267
268         if (pc873xx_probe() == -1) {
269                 printk(KERN_ERR "Probing for PC873xx Super IO chip failed.\n");
270         } else {
271                 printk(KERN_INFO "Found %s Super IO chip at 0x%x\n",
272                         pc873xx_get_model(), pc873xx_get_base());
273                 pc873xx_enable_ide();
274         }
275 }
276
277
278 /*
279  * The System Vector
280  */
281
282 struct alpha_machine_vector takara_mv __initmv = {
283         .vector_name            = "Takara",
284         DO_EV5_MMU,
285         DO_DEFAULT_RTC,
286         DO_CIA_IO,
287         .machine_check          = cia_machine_check,
288         .max_isa_dma_address    = ALPHA_MAX_ISA_DMA_ADDRESS,
289         .min_io_address         = DEFAULT_IO_BASE,
290         .min_mem_address        = CIA_DEFAULT_MEM_BASE,
291
292         .nr_irqs                = 128,
293         .device_interrupt       = takara_device_interrupt,
294
295         .init_arch              = cia_init_arch,
296         .init_irq               = takara_init_irq,
297         .init_rtc               = common_init_rtc,
298         .init_pci               = takara_init_pci,
299         .kill_arch              = cia_kill_arch,
300         .pci_map_irq            = takara_map_irq,
301         .pci_swizzle            = takara_swizzle,
302 };
303 ALIAS_MV(takara)