src/mainboard/arima/hdama/mptable.c

   1 #include <console/console.h>
   2 #include <arch/smp/mpspec.h>
   3 #include <arch/ioapic.h>
   4 #include <device/pci.h>
   5 #include <string.h>
   6 #include <stdint.h>
   7 #include <cpu/x86/lapic.h>
   8 #include <arch/cpu.h>
   9 #include <arch/io.h>
  10
  11 #define HT_INIT_CONTROL 0x6c
  12 #define HTIC_BIOSR_Detect  (1<<5)
  13
  14 /* If we assume a symmetric processor configuration we can
  15  * get all of the information we need to write the processor
  16  * entry from the bootstrap processor.
  17  * Plus I don't think linux really even cares.
  18  * Having the proper apicid's in the table so the non-bootstrap
  19  *  processors can be woken up should be enough.  Linux-2.6.11 work-around.
  20  */
  21 static void smp_write_processors_inorder(struct mp_config_table *mc)
  22 {
  23         int boot_apic_id;
  24         int order_id;
  25         unsigned apic_version;
  26         unsigned cpu_features;
  27         unsigned cpu_feature_flags;
  28         struct cpuid_result result;
  29         device_t cpu;
  30
  31         boot_apic_id = lapicid();
  32         apic_version = lapic_read(LAPIC_LVR) & 0xff;
  33         result = cpuid(1);
  34         cpu_features = result.eax;
  35         cpu_feature_flags = result.edx;
  36         /* order the output of the cpus to fix a bug in kernel 6 11 */
  37         for(order_id = 0;order_id <256; order_id++) {
  38             for(cpu = all_devices; cpu; cpu = cpu->next) {
  39                 unsigned long cpu_flag;
  40                 if ((cpu->path.type != DEVICE_PATH_APIC) ||
  41                         (cpu->bus->dev->path.type != DEVICE_PATH_APIC_CLUSTER))
  42                 {
  43                         continue;
  44                 }
  45                 if (!cpu->enabled) {
  46                         continue;
  47                 }
  48                 cpu_flag = MPC_CPU_ENABLED;
  49                 if (boot_apic_id == cpu->path.apic.apic_id) {
  50                         cpu_flag = MPC_CPU_ENABLED | MPC_CPU_BOOTPROCESSOR;
  51                 }
  52                 if(cpu->path.apic.apic_id == order_id) {
  53                     smp_write_processor(mc,
  54                         cpu->path.apic.apic_id, apic_version,
  55                         cpu_flag, cpu_features, cpu_feature_flags);
  56                     break;
  57                 }
  58             }
  59         }
  60 }
  61
  62 static unsigned node_link_to_bus(unsigned node, unsigned link)
  63 {
  64         device_t dev;
  65         unsigned reg;
  66
  67         dev = dev_find_slot(0, PCI_DEVFN(0x18, 1));
  68         if (!dev) {
  69                 return 0xff;
  70         }
  71         for(reg = 0xE0; reg < 0xF0; reg += 0x04) {
  72                 uint32_t config_map;
  73                 unsigned dst_node;
  74                 unsigned dst_link;
  75                 unsigned bus_base;
  76                 config_map = pci_read_config32(dev, reg);
  77                 if ((config_map & 3) != 3) {
  78                         continue;
  79                 }
  80                 dst_node = (config_map >> 4) & 7;
  81                 dst_link = (config_map >> 8) & 3;
  82                 bus_base = (config_map >> 16) & 0xff;
  83 #if 0
  84                 printk(BIOS_DEBUG, "node.link=bus: %d.%d=%d 0x%2x->0x%08x\n",
  85                         dst_node, dst_link, bus_base,
  86                         reg, config_map);
  87 #endif
  88                 if ((dst_node == node) && (dst_link == link))
  89                 {
  90                         return bus_base;
  91                 }
  92         }
  93         return 0xff;
  94 }
  95
  96 static unsigned max_apicid(void)
  97 {
  98         unsigned max;
  99         device_t dev;
 100         max = 0;
 101         for(dev = all_devices; dev; dev = dev->next) {
 102                 if (dev->path.type != DEVICE_PATH_APIC)
 103                         continue;
 104                 if (dev->path.apic.apic_id > max) {
 105                         max = dev->path.apic.apic_id;
 106                 }
 107         }
 108         return max;
 109 }
 110
 111 static void *smp_write_config_table(void *v)
 112 {
 113         struct mp_config_table *mc;
 114         unsigned char bus_num;
 115         unsigned char bus_isa;
 116         unsigned char bus_chain_0;
 117         unsigned char bus_8131_1;
 118         unsigned char bus_8131_2;
 119         unsigned char bus_8111_1;
 120         unsigned apicid_base;
 121         unsigned apicid_8111;
 122         unsigned apicid_8131_1;
 123         unsigned apicid_8131_2;
 124
 125         mc = (void *)(((char *)v) + SMP_FLOATING_TABLE_LEN);
 126
 127         mptable_init(mc, "HDAMA       ", LAPIC_ADDR);
 128
 129         smp_write_processors_inorder(mc);
 130
 131         apicid_base = max_apicid() + 1;
 132         apicid_8111 = apicid_base;
 133         apicid_8131_1 = apicid_base + 1;
 134         apicid_8131_2 = apicid_base + 2;
 135         {
 136                 device_t dev;
 137
 138                 /* HT chain 0 */
 139                 bus_chain_0 = node_link_to_bus(0, 0);
 140                 if (bus_chain_0 == 0xff) {
 141                         printk(BIOS_DEBUG, "ERROR - cound not find bus for node 0 chain 0, using defaults\n");
 142                         bus_chain_0 = 0;
 143                 }
 144
 145                 /* 8111 */
 146                 dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x03,0));
 147                 if (dev) {
 148                         bus_8111_1 = pci_read_config8(dev, PCI_SECONDARY_BUS);
 149                         bus_isa    = pci_read_config8(dev, PCI_SUBORDINATE_BUS);
 150                         bus_isa++;
 151                 }
 152                 else {
 153                         printk(BIOS_DEBUG, "ERROR - could not find PCI %02x:03.0, using defaults\n", bus_chain_0);
 154
 155                         bus_8111_1 = 4;
 156                         bus_isa = 5;
 157                 }
 158                 /* 8131-1 */
 159                 dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x01,0));
 160                 if (dev) {
 161                         bus_8131_1 = pci_read_config8(dev, PCI_SECONDARY_BUS);
 162
 163                 }
 164                 else {
 165                         printk(BIOS_DEBUG, "ERROR - could not find PCI %02x:01.0, using defaults\n", bus_chain_0);
 166
 167                         bus_8131_1 = 2;
 168                 }
 169                 /* 8131-2 */
 170                 dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x02,0));
 171                 if (dev) {
 172                         bus_8131_2 = pci_read_config8(dev, PCI_SECONDARY_BUS);
 173
 174                 }
 175                 else {
 176                         printk(BIOS_DEBUG, "ERROR - could not find PCI %02x:02.0, using defaults\n", bus_chain_0);
 177
 178                         bus_8131_2 = 3;
 179                 }
 180         }
 181
 182         /* define bus and isa numbers */
 183         for(bus_num = 0; bus_num < bus_isa; bus_num++) {
 184                 smp_write_bus(mc, bus_num, "PCI   ");
 185         }
 186         smp_write_bus(mc, bus_isa, "ISA   ");
 187
 188         /* IOAPIC handling */
 189         smp_write_ioapic(mc, apicid_8111, 0x11, IO_APIC_ADDR);
 190         {
 191                 device_t dev;
 192                 struct resource *res;
 193                 /* 8131 apic 3 */
 194                 dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x01,1));
 195                 if (dev) {
 196                         res = find_resource(dev, PCI_BASE_ADDRESS_0);
 197                         if (res) {
 198                                 smp_write_ioapic(mc, apicid_8131_1, 0x11, res->base);
 199                         }
 200                 }
 201                 /* 8131 apic 4 */
 202                 dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x02,1));
 203                 if (dev) {
 204                         res = find_resource(dev, PCI_BASE_ADDRESS_0);
 205                         if (res) {
 206                                 smp_write_ioapic(mc, apicid_8131_2, 0x11, res->base);
 207                         }
 208                 }
 209         }
 210
 211         mptable_add_isa_interrupts(mc, bus_isa, apicid_8111, 0);
 212
 213         /* Standard local interrupt assignments */
 214         smp_write_lintsrc(mc, mp_ExtINT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT,
 215                 bus_isa, 0x00, MP_APIC_ALL, 0x00);
 216         smp_write_lintsrc(mc, mp_NMI, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT,
 217                 bus_isa, 0x00, MP_APIC_ALL, 0x01);
 218
 219         /* PCI Ints:         Type    Trigger                Polarity                 Bus ID      PCIDEVNUM|IRQ  APIC ID PIN# */
 220         /* On board nics */
 221         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x03<<2)|0, apicid_8111, 0x13);
 222         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x04<<2)|0, apicid_8111, 0x13);
 223         /* On board SATA */
 224         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x05<<2)|0, apicid_8111, 0x11);
 225
 226         /* PCI Slot 1 */
 227         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x01<<2)|0, apicid_8111, 0x11);
 228         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x01<<2)|1, apicid_8111, 0x12);
 229         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x01<<2)|2, apicid_8111, 0x13);
 230         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x01<<2)|3, apicid_8111, 0x10);
 231
 232         /* PCI Slot 2 */
 233         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x02<<2)|0, apicid_8111, 0x12);
 234         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x02<<2)|1, apicid_8111, 0x13);
 235         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x02<<2)|2, apicid_8111, 0x10);
 236         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_2, (0x02<<2)|3, apicid_8111, 0x11);
 237
 238         /* PCI Slot 3 */
 239         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x01<<2)|0, apicid_8111, 0x11);
 240         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x01<<2)|1, apicid_8111, 0x12);
 241         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x01<<2)|2, apicid_8111, 0x13);
 242         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x01<<2)|3, apicid_8111, 0x10);
 243
 244         /* PCI Slot 4 */
 245         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x02<<2)|0, apicid_8111, 0x12);
 246         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x02<<2)|1, apicid_8111, 0x13);
 247         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x02<<2)|2, apicid_8111, 0x10);
 248         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8131_1, (0x02<<2)|3, apicid_8111, 0x11);
 249
 250         /* PCI Slot 5 */
 251         // FIXME get the irqs right, it's just hacked to work for now
 252         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x05<<2)|0, apicid_8111, 0x11);
 253         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x05<<2)|1, apicid_8111, 0x12);
 254         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x05<<2)|2, apicid_8111, 0x13);
 255         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x05<<2)|3, apicid_8111, 0x10);
 256
 257         /* PCI Slot 6 */
 258         // FIXME get the irqs right, it's just hacked to work for now
 259         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x04<<2)|0, apicid_8111, 0x10);
 260         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x04<<2)|1, apicid_8111, 0x11);
 261         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x04<<2)|2, apicid_8111, 0x12);
 262         smp_write_intsrc(mc, mp_INT, MP_IRQ_TRIGGER_DEFAULT|MP_IRQ_POLARITY_DEFAULT, bus_8111_1, (0x04<<2)|3, apicid_8111, 0x13);
 263
 264         /* There is no extension information... */
 265
 266         /* Compute the checksums */
 267         mc->mpe_checksum = smp_compute_checksum(smp_next_mpc_entry(mc), mc->mpe_length);
 268         mc->mpc_checksum = smp_compute_checksum(mc, mc->mpc_length);
 269         printk(BIOS_DEBUG, "Wrote the mp table end at: %p - %p\n",
 270                 mc, smp_next_mpe_entry(mc));
 271         return smp_next_mpe_entry(mc);
 272 }
 273
 274 static void reboot_if_hotswap(void)
 275 {
 276         /* Hack patch work around for hot swap enable 33mhz problem */
 277         device_t dev;
 278         uint32_t data;
 279         unsigned long htic;
 280         int reset;
 281
 282         unsigned bus_chain_0 = node_link_to_bus(0, 0);
 283
 284         reset = 0;
 285         printk(BIOS_DEBUG, "Looking for bad PCIX MHz input\n");
 286         dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x02,0));
 287         if (!dev)
 288                 printk(BIOS_DEBUG, "Couldn't find %02x:02.0 \n", bus_chain_0);
 289         else {
 290                 data = pci_read_config32(dev, 0xa0);
 291                 if(!(((data>>16)&0x03)==0x03)) {
 292                         reset=1;
 293                         printk(BIOS_DEBUG, "Bad PCIX MHz - Reset\n");
 294                 }
 295         }
 296         printk(BIOS_DEBUG, "Looking for bad Hot Swap Enable\n");
 297         dev = dev_find_slot(bus_chain_0, PCI_DEVFN(0x01,0));
 298         if (!dev)
 299                 printk(BIOS_DEBUG, "Couldn't find %02x:01.0 \n", bus_chain_0);
 300         else {
 301                 data = pci_read_config32(dev, 0x48);
 302                 if(data & 0x0c) {
 303                         reset=1;
 304                         printk(BIOS_DEBUG, "Bad Hot Swap start - Reset\n");
 305                 }
 306         }
 307         if(reset) {
 308                 /* enable cf9 */
 309                 dev = dev_find_slot(node_link_to_bus(0, 0), PCI_DEVFN(0x04,3));
 310                 pci_write_config8(dev, 0x41, 0xf1);
 311                 /* reset */
 312                 dev = dev_find_slot(0, PCI_DEVFN(0x18,0));
 313                 htic = pci_read_config32(dev, HT_INIT_CONTROL);
 314                 htic &= ~HTIC_BIOSR_Detect;
 315                 pci_write_config32(dev, HT_INIT_CONTROL, htic);
 316                 outb(0x0e, 0x0cf9);
 317         }
 318         else {
 319                 printk(BIOS_DEBUG, "OK 133MHz & Hot Swap is off\n");
 320         }
 321 }
 322
 323 unsigned long write_smp_table(unsigned long addr)
 324 {
 325         void *v;
 326         reboot_if_hotswap();
 327
 328         v = smp_write_floating_table(addr);
 329         return (unsigned long)smp_write_config_table(v);
 330 }
 331