Merge master.kernel.org:/pub/scm/linux/kernel/git/davej/agpgart
[linux-2.6] / drivers / acpi / tables.c
1 /*
2  *  acpi_tables.c - ACPI Boot-Time Table Parsing
3  *
4  *  Copyright (C) 2001 Paul Diefenbaugh <paul.s.diefenbaugh@intel.com>
5  *
6  * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
7  *
8  *  This program is free software; you can redistribute it and/or modify
9  *  it under the terms of the GNU General Public License as published by
10  *  the Free Software Foundation; either version 2 of the License, or
11  *  (at your option) any later version.
12  *
13  *  This program is distributed in the hope that it will be useful,
14  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
15  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  *  GNU General Public License for more details.
17  *
18  *  You should have received a copy of the GNU General Public License
19  *  along with this program; if not, write to the Free Software
20  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  *
22  * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
23  *
24  */
25
26 #include <linux/config.h>
27 #include <linux/init.h>
28 #include <linux/kernel.h>
29 #include <linux/sched.h>
30 #include <linux/smp.h>
31 #include <linux/string.h>
32 #include <linux/types.h>
33 #include <linux/irq.h>
34 #include <linux/errno.h>
35 #include <linux/acpi.h>
36 #include <linux/bootmem.h>
37
38 #define PREFIX                  "ACPI: "
39
40 #define ACPI_MAX_TABLES         256
41
42 static char *acpi_table_signatures[ACPI_TABLE_COUNT] = {
43         [ACPI_TABLE_UNKNOWN] = "????",
44         [ACPI_APIC] = "APIC",
45         [ACPI_BOOT] = "BOOT",
46         [ACPI_DBGP] = "DBGP",
47         [ACPI_DSDT] = "DSDT",
48         [ACPI_ECDT] = "ECDT",
49         [ACPI_ETDT] = "ETDT",
50         [ACPI_FADT] = "FACP",
51         [ACPI_FACS] = "FACS",
52         [ACPI_OEMX] = "OEM",
53         [ACPI_PSDT] = "PSDT",
54         [ACPI_SBST] = "SBST",
55         [ACPI_SLIT] = "SLIT",
56         [ACPI_SPCR] = "SPCR",
57         [ACPI_SRAT] = "SRAT",
58         [ACPI_SSDT] = "SSDT",
59         [ACPI_SPMI] = "SPMI",
60         [ACPI_HPET] = "HPET",
61         [ACPI_MCFG] = "MCFG",
62 };
63
64 static char *mps_inti_flags_polarity[] = { "dfl", "high", "res", "low" };
65 static char *mps_inti_flags_trigger[] = { "dfl", "edge", "res", "level" };
66
67 /* System Description Table (RSDT/XSDT) */
68 struct acpi_table_sdt {
69         unsigned long pa;
70         enum acpi_table_id id;
71         unsigned long size;
72 } __attribute__ ((packed));
73
74 static unsigned long sdt_pa;    /* Physical Address */
75 static unsigned long sdt_count; /* Table count */
76
77 static struct acpi_table_sdt sdt_entry[ACPI_MAX_TABLES];
78
79 void acpi_table_print(struct acpi_table_header *header, unsigned long phys_addr)
80 {
81         char *name = NULL;
82
83         if (!header)
84                 return;
85
86         /* Some table signatures aren't good table names */
87
88         if (!strncmp((char *)&header->signature,
89                      acpi_table_signatures[ACPI_APIC],
90                      sizeof(header->signature))) {
91                 name = "MADT";
92         } else if (!strncmp((char *)&header->signature,
93                             acpi_table_signatures[ACPI_FADT],
94                             sizeof(header->signature))) {
95                 name = "FADT";
96         } else
97                 name = header->signature;
98
99         printk(KERN_DEBUG PREFIX
100                "%.4s (v%3.3d %6.6s %8.8s 0x%08x %.4s 0x%08x) @ 0x%p\n", name,
101                header->revision, header->oem_id, header->oem_table_id,
102                header->oem_revision, header->asl_compiler_id,
103                header->asl_compiler_revision, (void *)phys_addr);
104 }
105
106 void acpi_table_print_madt_entry(acpi_table_entry_header * header)
107 {
108         if (!header)
109                 return;
110
111         switch (header->type) {
112
113         case ACPI_MADT_LAPIC:
114                 {
115                         struct acpi_table_lapic *p =
116                             (struct acpi_table_lapic *)header;
117                         printk(KERN_INFO PREFIX
118                                "LAPIC (acpi_id[0x%02x] lapic_id[0x%02x] %s)\n",
119                                p->acpi_id, p->id,
120                                p->flags.enabled ? "enabled" : "disabled");
121                 }
122                 break;
123
124         case ACPI_MADT_IOAPIC:
125                 {
126                         struct acpi_table_ioapic *p =
127                             (struct acpi_table_ioapic *)header;
128                         printk(KERN_INFO PREFIX
129                                "IOAPIC (id[0x%02x] address[0x%08x] gsi_base[%d])\n",
130                                p->id, p->address, p->global_irq_base);
131                 }
132                 break;
133
134         case ACPI_MADT_INT_SRC_OVR:
135                 {
136                         struct acpi_table_int_src_ovr *p =
137                             (struct acpi_table_int_src_ovr *)header;
138                         printk(KERN_INFO PREFIX
139                                "INT_SRC_OVR (bus %d bus_irq %d global_irq %d %s %s)\n",
140                                p->bus, p->bus_irq, p->global_irq,
141                                mps_inti_flags_polarity[p->flags.polarity],
142                                mps_inti_flags_trigger[p->flags.trigger]);
143                         if (p->flags.reserved)
144                                 printk(KERN_INFO PREFIX
145                                        "INT_SRC_OVR unexpected reserved flags: 0x%x\n",
146                                        p->flags.reserved);
147
148                 }
149                 break;
150
151         case ACPI_MADT_NMI_SRC:
152                 {
153                         struct acpi_table_nmi_src *p =
154                             (struct acpi_table_nmi_src *)header;
155                         printk(KERN_INFO PREFIX
156                                "NMI_SRC (%s %s global_irq %d)\n",
157                                mps_inti_flags_polarity[p->flags.polarity],
158                                mps_inti_flags_trigger[p->flags.trigger],
159                                p->global_irq);
160                 }
161                 break;
162
163         case ACPI_MADT_LAPIC_NMI:
164                 {
165                         struct acpi_table_lapic_nmi *p =
166                             (struct acpi_table_lapic_nmi *)header;
167                         printk(KERN_INFO PREFIX
168                                "LAPIC_NMI (acpi_id[0x%02x] %s %s lint[0x%x])\n",
169                                p->acpi_id,
170                                mps_inti_flags_polarity[p->flags.polarity],
171                                mps_inti_flags_trigger[p->flags.trigger],
172                                p->lint);
173                 }
174                 break;
175
176         case ACPI_MADT_LAPIC_ADDR_OVR:
177                 {
178                         struct acpi_table_lapic_addr_ovr *p =
179                             (struct acpi_table_lapic_addr_ovr *)header;
180                         printk(KERN_INFO PREFIX
181                                "LAPIC_ADDR_OVR (address[%p])\n",
182                                (void *)(unsigned long)p->address);
183                 }
184                 break;
185
186         case ACPI_MADT_IOSAPIC:
187                 {
188                         struct acpi_table_iosapic *p =
189                             (struct acpi_table_iosapic *)header;
190                         printk(KERN_INFO PREFIX
191                                "IOSAPIC (id[0x%x] address[%p] gsi_base[%d])\n",
192                                p->id, (void *)(unsigned long)p->address,
193                                p->global_irq_base);
194                 }
195                 break;
196
197         case ACPI_MADT_LSAPIC:
198                 {
199                         struct acpi_table_lsapic *p =
200                             (struct acpi_table_lsapic *)header;
201                         printk(KERN_INFO PREFIX
202                                "LSAPIC (acpi_id[0x%02x] lsapic_id[0x%02x] lsapic_eid[0x%02x] %s)\n",
203                                p->acpi_id, p->id, p->eid,
204                                p->flags.enabled ? "enabled" : "disabled");
205                 }
206                 break;
207
208         case ACPI_MADT_PLAT_INT_SRC:
209                 {
210                         struct acpi_table_plat_int_src *p =
211                             (struct acpi_table_plat_int_src *)header;
212                         printk(KERN_INFO PREFIX
213                                "PLAT_INT_SRC (%s %s type[0x%x] id[0x%04x] eid[0x%x] iosapic_vector[0x%x] global_irq[0x%x]\n",
214                                mps_inti_flags_polarity[p->flags.polarity],
215                                mps_inti_flags_trigger[p->flags.trigger],
216                                p->type, p->id, p->eid, p->iosapic_vector,
217                                p->global_irq);
218                 }
219                 break;
220
221         default:
222                 printk(KERN_WARNING PREFIX
223                        "Found unsupported MADT entry (type = 0x%x)\n",
224                        header->type);
225                 break;
226         }
227 }
228
229 static int
230 acpi_table_compute_checksum(void *table_pointer, unsigned long length)
231 {
232         u8 *p = (u8 *) table_pointer;
233         unsigned long remains = length;
234         unsigned long sum = 0;
235
236         if (!p || !length)
237                 return -EINVAL;
238
239         while (remains--)
240                 sum += *p++;
241
242         return (sum & 0xFF);
243 }
244
245 /*
246  * acpi_get_table_header_early()
247  * for acpi_blacklisted(), acpi_table_get_sdt()
248  */
249 int __init
250 acpi_get_table_header_early(enum acpi_table_id id,
251                             struct acpi_table_header **header)
252 {
253         unsigned int i;
254         enum acpi_table_id temp_id;
255
256         /* DSDT is different from the rest */
257         if (id == ACPI_DSDT)
258                 temp_id = ACPI_FADT;
259         else
260                 temp_id = id;
261
262         /* Locate the table. */
263
264         for (i = 0; i < sdt_count; i++) {
265                 if (sdt_entry[i].id != temp_id)
266                         continue;
267                 *header = (void *)
268                     __acpi_map_table(sdt_entry[i].pa, sdt_entry[i].size);
269                 if (!*header) {
270                         printk(KERN_WARNING PREFIX "Unable to map %s\n",
271                                acpi_table_signatures[temp_id]);
272                         return -ENODEV;
273                 }
274                 break;
275         }
276
277         if (!*header) {
278                 printk(KERN_WARNING PREFIX "%s not present\n",
279                        acpi_table_signatures[id]);
280                 return -ENODEV;
281         }
282
283         /* Map the DSDT header via the pointer in the FADT */
284         if (id == ACPI_DSDT) {
285                 struct fadt_descriptor_rev2 *fadt =
286                     (struct fadt_descriptor_rev2 *)*header;
287
288                 if (fadt->revision == 3 && fadt->Xdsdt) {
289                         *header = (void *)__acpi_map_table(fadt->Xdsdt,
290                                                            sizeof(struct
291                                                                   acpi_table_header));
292                 } else if (fadt->V1_dsdt) {
293                         *header = (void *)__acpi_map_table(fadt->V1_dsdt,
294                                                            sizeof(struct
295                                                                   acpi_table_header));
296                 } else
297                         *header = NULL;
298
299                 if (!*header) {
300                         printk(KERN_WARNING PREFIX "Unable to map DSDT\n");
301                         return -ENODEV;
302                 }
303         }
304
305         return 0;
306 }
307
308 int __init
309 acpi_table_parse_madt_family(enum acpi_table_id id,
310                              unsigned long madt_size,
311                              int entry_id,
312                              acpi_madt_entry_handler handler,
313                              unsigned int max_entries)
314 {
315         void *madt = NULL;
316         acpi_table_entry_header *entry;
317         unsigned int count = 0;
318         unsigned long madt_end;
319         unsigned int i;
320
321         if (!handler)
322                 return -EINVAL;
323
324         /* Locate the MADT (if exists). There should only be one. */
325
326         for (i = 0; i < sdt_count; i++) {
327                 if (sdt_entry[i].id != id)
328                         continue;
329                 madt = (void *)
330                     __acpi_map_table(sdt_entry[i].pa, sdt_entry[i].size);
331                 if (!madt) {
332                         printk(KERN_WARNING PREFIX "Unable to map %s\n",
333                                acpi_table_signatures[id]);
334                         return -ENODEV;
335                 }
336                 break;
337         }
338
339         if (!madt) {
340                 printk(KERN_WARNING PREFIX "%s not present\n",
341                        acpi_table_signatures[id]);
342                 return -ENODEV;
343         }
344
345         madt_end = (unsigned long)madt + sdt_entry[i].size;
346
347         /* Parse all entries looking for a match. */
348
349         entry = (acpi_table_entry_header *)
350             ((unsigned long)madt + madt_size);
351
352         while (((unsigned long)entry) + sizeof(acpi_table_entry_header) <
353                madt_end) {
354                 if (entry->type == entry_id
355                     && (!max_entries || count++ < max_entries))
356                         if (handler(entry, madt_end))
357                                 return -EINVAL;
358
359                 entry = (acpi_table_entry_header *)
360                     ((unsigned long)entry + entry->length);
361         }
362         if (max_entries && count > max_entries) {
363                 printk(KERN_WARNING PREFIX "[%s:0x%02x] ignored %i entries of "
364                        "%i found\n", acpi_table_signatures[id], entry_id,
365                        count - max_entries, count);
366         }
367
368         return count;
369 }
370
371 int __init
372 acpi_table_parse_madt(enum acpi_madt_entry_id id,
373                       acpi_madt_entry_handler handler, unsigned int max_entries)
374 {
375         return acpi_table_parse_madt_family(ACPI_APIC,
376                                             sizeof(struct acpi_table_madt), id,
377                                             handler, max_entries);
378 }
379
380 int __init acpi_table_parse(enum acpi_table_id id, acpi_table_handler handler)
381 {
382         int count = 0;
383         unsigned int i = 0;
384
385         if (!handler)
386                 return -EINVAL;
387
388         for (i = 0; i < sdt_count; i++) {
389                 if (sdt_entry[i].id != id)
390                         continue;
391                 count++;
392                 if (count == 1)
393                         handler(sdt_entry[i].pa, sdt_entry[i].size);
394
395                 else
396                         printk(KERN_WARNING PREFIX
397                                "%d duplicate %s table ignored.\n", count,
398                                acpi_table_signatures[id]);
399         }
400
401         return count;
402 }
403
404 static int __init acpi_table_get_sdt(struct acpi_table_rsdp *rsdp)
405 {
406         struct acpi_table_header *header = NULL;
407         unsigned int i, id = 0;
408
409         if (!rsdp)
410                 return -EINVAL;
411
412         /* First check XSDT (but only on ACPI 2.0-compatible systems) */
413
414         if ((rsdp->revision >= 2) &&
415             (((struct acpi20_table_rsdp *)rsdp)->xsdt_address)) {
416
417                 struct acpi_table_xsdt *mapped_xsdt = NULL;
418
419                 sdt_pa = ((struct acpi20_table_rsdp *)rsdp)->xsdt_address;
420
421                 /* map in just the header */
422                 header = (struct acpi_table_header *)
423                     __acpi_map_table(sdt_pa, sizeof(struct acpi_table_header));
424
425                 if (!header) {
426                         printk(KERN_WARNING PREFIX
427                                "Unable to map XSDT header\n");
428                         return -ENODEV;
429                 }
430
431                 /* remap in the entire table before processing */
432                 mapped_xsdt = (struct acpi_table_xsdt *)
433                     __acpi_map_table(sdt_pa, header->length);
434                 if (!mapped_xsdt) {
435                         printk(KERN_WARNING PREFIX "Unable to map XSDT\n");
436                         return -ENODEV;
437                 }
438                 header = &mapped_xsdt->header;
439
440                 if (strncmp(header->signature, "XSDT", 4)) {
441                         printk(KERN_WARNING PREFIX
442                                "XSDT signature incorrect\n");
443                         return -ENODEV;
444                 }
445
446                 if (acpi_table_compute_checksum(header, header->length)) {
447                         printk(KERN_WARNING PREFIX "Invalid XSDT checksum\n");
448                         return -ENODEV;
449                 }
450
451                 sdt_count =
452                     (header->length - sizeof(struct acpi_table_header)) >> 3;
453                 if (sdt_count > ACPI_MAX_TABLES) {
454                         printk(KERN_WARNING PREFIX
455                                "Truncated %lu XSDT entries\n",
456                                (sdt_count - ACPI_MAX_TABLES));
457                         sdt_count = ACPI_MAX_TABLES;
458                 }
459
460                 for (i = 0; i < sdt_count; i++)
461                         sdt_entry[i].pa = (unsigned long)mapped_xsdt->entry[i];
462         }
463
464         /* Then check RSDT */
465
466         else if (rsdp->rsdt_address) {
467
468                 struct acpi_table_rsdt *mapped_rsdt = NULL;
469
470                 sdt_pa = rsdp->rsdt_address;
471
472                 /* map in just the header */
473                 header = (struct acpi_table_header *)
474                     __acpi_map_table(sdt_pa, sizeof(struct acpi_table_header));
475                 if (!header) {
476                         printk(KERN_WARNING PREFIX
477                                "Unable to map RSDT header\n");
478                         return -ENODEV;
479                 }
480
481                 /* remap in the entire table before processing */
482                 mapped_rsdt = (struct acpi_table_rsdt *)
483                     __acpi_map_table(sdt_pa, header->length);
484                 if (!mapped_rsdt) {
485                         printk(KERN_WARNING PREFIX "Unable to map RSDT\n");
486                         return -ENODEV;
487                 }
488                 header = &mapped_rsdt->header;
489
490                 if (strncmp(header->signature, "RSDT", 4)) {
491                         printk(KERN_WARNING PREFIX
492                                "RSDT signature incorrect\n");
493                         return -ENODEV;
494                 }
495
496                 if (acpi_table_compute_checksum(header, header->length)) {
497                         printk(KERN_WARNING PREFIX "Invalid RSDT checksum\n");
498                         return -ENODEV;
499                 }
500
501                 sdt_count =
502                     (header->length - sizeof(struct acpi_table_header)) >> 2;
503                 if (sdt_count > ACPI_MAX_TABLES) {
504                         printk(KERN_WARNING PREFIX
505                                "Truncated %lu RSDT entries\n",
506                                (sdt_count - ACPI_MAX_TABLES));
507                         sdt_count = ACPI_MAX_TABLES;
508                 }
509
510                 for (i = 0; i < sdt_count; i++)
511                         sdt_entry[i].pa = (unsigned long)mapped_rsdt->entry[i];
512         }
513
514         else {
515                 printk(KERN_WARNING PREFIX
516                        "No System Description Table (RSDT/XSDT) specified in RSDP\n");
517                 return -ENODEV;
518         }
519
520         acpi_table_print(header, sdt_pa);
521
522         for (i = 0; i < sdt_count; i++) {
523
524                 /* map in just the header */
525                 header = (struct acpi_table_header *)
526                     __acpi_map_table(sdt_entry[i].pa,
527                                      sizeof(struct acpi_table_header));
528                 if (!header)
529                         continue;
530
531                 /* remap in the entire table before processing */
532                 header = (struct acpi_table_header *)
533                     __acpi_map_table(sdt_entry[i].pa, header->length);
534                 if (!header)
535                         continue;
536
537                 acpi_table_print(header, sdt_entry[i].pa);
538
539                 if (acpi_table_compute_checksum(header, header->length)) {
540                         printk(KERN_WARNING "  >>> ERROR: Invalid checksum\n");
541                         continue;
542                 }
543
544                 sdt_entry[i].size = header->length;
545
546                 for (id = 0; id < ACPI_TABLE_COUNT; id++) {
547                         if (!strncmp((char *)&header->signature,
548                                      acpi_table_signatures[id],
549                                      sizeof(header->signature))) {
550                                 sdt_entry[i].id = id;
551                         }
552                 }
553         }
554
555         /* 
556          * The DSDT is *not* in the RSDT (why not? no idea.) but we want
557          * to print its info, because this is what people usually blacklist
558          * against. Unfortunately, we don't know the phys_addr, so just
559          * print 0. Maybe no one will notice.
560          */
561         if (!acpi_get_table_header_early(ACPI_DSDT, &header))
562                 acpi_table_print(header, 0);
563
564         return 0;
565 }
566
567 /*
568  * acpi_table_init()
569  *
570  * find RSDP, find and checksum SDT/XSDT.
571  * checksum all tables, print SDT/XSDT
572  * 
573  * result: sdt_entry[] is initialized
574  */
575
576 int __init acpi_table_init(void)
577 {
578         struct acpi_table_rsdp *rsdp = NULL;
579         unsigned long rsdp_phys = 0;
580         int result = 0;
581
582         /* Locate and map the Root System Description Table (RSDP) */
583
584         rsdp_phys = acpi_find_rsdp();
585         if (!rsdp_phys) {
586                 printk(KERN_ERR PREFIX "Unable to locate RSDP\n");
587                 return -ENODEV;
588         }
589
590         rsdp = (struct acpi_table_rsdp *)__va(rsdp_phys);
591         if (!rsdp) {
592                 printk(KERN_WARNING PREFIX "Unable to map RSDP\n");
593                 return -ENODEV;
594         }
595
596         printk(KERN_DEBUG PREFIX
597                "RSDP (v%3.3d %6.6s                                ) @ 0x%p\n",
598                rsdp->revision, rsdp->oem_id, (void *)rsdp_phys);
599
600         if (rsdp->revision < 2)
601                 result =
602                     acpi_table_compute_checksum(rsdp,
603                                                 sizeof(struct acpi_table_rsdp));
604         else
605                 result =
606                     acpi_table_compute_checksum(rsdp,
607                                                 ((struct acpi20_table_rsdp *)
608                                                  rsdp)->length);
609
610         if (result) {
611                 printk(KERN_WARNING "  >>> ERROR: Invalid checksum\n");
612                 return -ENODEV;
613         }
614
615         /* Locate and map the System Description table (RSDT/XSDT) */
616
617         if (acpi_table_get_sdt(rsdp))
618                 return -ENODEV;
619
620         return 0;
621 }