usr.sbin/acpi/acpidump/acpi.c

   1 /*-
   2  * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
   3  *
   4  * Copyright (c) 1998 Doug Rabson
   5  * Copyright (c) 2000 Mitsuru IWASAKI <iwasaki@FreeBSD.org>
   6  * All rights reserved.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  27  * SUCH DAMAGE.
  28  *
  29  *      $FreeBSD$
  30  */
  31
  32 #include <sys/param.h>
  33 #include <sys/endian.h>
  34 #include <sys/stat.h>
  35 #include <sys/wait.h>
  36 #include <assert.h>
  37 #include <err.h>
  38 #include <fcntl.h>
  39 #include <paths.h>
  40 #include <stdio.h>
  41 #include <stdint.h>
  42 #include <stdlib.h>
  43 #include <string.h>
  44 #include <unistd.h>
  45 #include <uuid.h>
  46
  47 #include "acpidump.h"
  48
  49 #define BEGIN_COMMENT   "/*\n"
  50 #define END_COMMENT     " */\n"
  51
  52 static void     acpi_print_string(char *s, size_t length);
  53 static void     acpi_print_gas(ACPI_GENERIC_ADDRESS *gas);
  54 static int      acpi_get_fadt_revision(ACPI_TABLE_FADT *fadt);
  55 static void     acpi_handle_fadt(ACPI_TABLE_HEADER *fadt);
  56 static void     acpi_print_cpu(u_char cpu_id);
  57 static void     acpi_print_cpu_uid(uint32_t uid, char *uid_string);
  58 static void     acpi_print_local_apic(uint32_t apic_id, uint32_t flags);
  59 static void     acpi_print_io_apic(uint32_t apic_id, uint32_t int_base,
  60                     uint64_t apic_addr);
  61 static void     acpi_print_mps_flags(uint16_t flags);
  62 static void     acpi_print_intr(uint32_t intr, uint16_t mps_flags);
  63 static void     acpi_print_local_nmi(u_int lint, uint16_t mps_flags);
  64 static void     acpi_print_madt(ACPI_SUBTABLE_HEADER *mp);
  65 static void     acpi_handle_madt(ACPI_TABLE_HEADER *sdp);
  66 static void     acpi_handle_ecdt(ACPI_TABLE_HEADER *sdp);
  67 static void     acpi_handle_hpet(ACPI_TABLE_HEADER *sdp);
  68 static void     acpi_handle_mcfg(ACPI_TABLE_HEADER *sdp);
  69 static void     acpi_handle_slit(ACPI_TABLE_HEADER *sdp);
  70 static void     acpi_handle_wddt(ACPI_TABLE_HEADER *sdp);
  71 static void     acpi_print_srat_cpu(uint32_t apic_id, uint32_t proximity_domain,
  72                     uint32_t flags);
  73 static void     acpi_print_srat_memory(ACPI_SRAT_MEM_AFFINITY *mp);
  74 static void     acpi_print_srat(ACPI_SUBTABLE_HEADER *srat);
  75 static void     acpi_handle_srat(ACPI_TABLE_HEADER *sdp);
  76 static void     acpi_handle_tcpa(ACPI_TABLE_HEADER *sdp);
  77 static void     acpi_print_nfit(ACPI_NFIT_HEADER *nfit);
  78 static void     acpi_handle_nfit(ACPI_TABLE_HEADER *sdp);
  79 static void     acpi_print_sdt(ACPI_TABLE_HEADER *sdp);
  80 static void     acpi_print_fadt(ACPI_TABLE_HEADER *sdp);
  81 static void     acpi_print_facs(ACPI_TABLE_FACS *facs);
  82 static void     acpi_print_dsdt(ACPI_TABLE_HEADER *dsdp);
  83 static ACPI_TABLE_HEADER *acpi_map_sdt(vm_offset_t pa);
  84 static void     acpi_print_rsd_ptr(ACPI_TABLE_RSDP *rp);
  85 static void     acpi_handle_rsdt(ACPI_TABLE_HEADER *rsdp);
  86 static void     acpi_walk_subtables(ACPI_TABLE_HEADER *table, void *first,
  87                     void (*action)(ACPI_SUBTABLE_HEADER *));
  88 static void     acpi_walk_nfit(ACPI_TABLE_HEADER *table, void *first,
  89                     void (*action)(ACPI_NFIT_HEADER *));
  90
  91 /* Size of an address. 32-bit for ACPI 1.0, 64-bit for ACPI 2.0 and up. */
  92 static int addr_size;
  93
  94 /* Strings used in the TCPA table */
  95 static const char *tcpa_event_type_strings[] = {
  96         "PREBOOT Certificate",
  97         "POST Code",
  98         "Unused",
  99         "No Action",
 100         "Separator",
 101         "Action",
 102         "Event Tag",
 103         "S-CRTM Contents",
 104         "S-CRTM Version",
 105         "CPU Microcode",
 106         "Platform Config Flags",
 107         "Table of Devices",
 108         "Compact Hash",
 109         "IPL",
 110         "IPL Partition Data",
 111         "Non-Host Code",
 112         "Non-Host Config",
 113         "Non-Host Info"
 114 };
 115
 116 static const char *TCPA_pcclient_strings[] = {
 117         "<undefined>",
 118         "SMBIOS",
 119         "BIS Certificate",
 120         "POST BIOS ROM Strings",
 121         "ESCD",
 122         "CMOS",
 123         "NVRAM",
 124         "Option ROM Execute",
 125         "Option ROM Configurateion",
 126         "<undefined>",
 127         "Option ROM Microcode Update ",
 128         "S-CRTM Version String",
 129         "S-CRTM Contents",
 130         "POST Contents",
 131         "Table of Devices",
 132 };
 133
 134 #define PRINTFLAG_END()         printflag_end()
 135
 136 static char pf_sep = '{';
 137
 138 static void
 139 printflag_end(void)
 140 {
 141
 142         if (pf_sep != '{') {
 143                 printf("}");
 144                 pf_sep = '{';
 145         }
 146         printf("\n");
 147 }
 148
 149 static void
 150 printflag(uint64_t var, uint64_t mask, const char *name)
 151 {
 152
 153         if (var & mask) {
 154                 printf("%c%s", pf_sep, name);
 155                 pf_sep = ',';
 156         }
 157 }
 158
 159 static void
 160 acpi_print_string(char *s, size_t length)
 161 {
 162         int     c;
 163
 164         /* Trim trailing spaces and NULLs */
 165         while (length > 0 && (s[length - 1] == ' ' || s[length - 1] == '\0'))
 166                 length--;
 167
 168         while (length--) {
 169                 c = *s++;
 170                 putchar(c);
 171         }
 172 }
 173
 174 static void
 175 acpi_print_gas(ACPI_GENERIC_ADDRESS *gas)
 176 {
 177         switch(gas->SpaceId) {
 178         case ACPI_GAS_MEMORY:
 179                 if (gas->BitWidth <= 32)
 180                         printf("0x%08x:%u[%u] (Memory)",
 181                             (u_int)gas->Address, gas->BitOffset,
 182                             gas->BitWidth);
 183                 else
 184                         printf("0x%016jx:%u[%u] (Memory)",
 185                             (uintmax_t)gas->Address, gas->BitOffset,
 186                             gas->BitWidth);
 187                 break;
 188         case ACPI_GAS_IO:
 189                 printf("0x%02x:%u[%u] (IO)", (u_int)gas->Address,
 190                     gas->BitOffset, gas->BitWidth);
 191                 break;
 192         case ACPI_GAS_PCI:
 193                 printf("%x:%x+0x%x (PCI)", (uint16_t)(gas->Address >> 32),
 194                        (uint16_t)((gas->Address >> 16) & 0xffff),
 195                        (uint16_t)gas->Address);
 196                 break;
 197         /* XXX How to handle these below? */
 198         case ACPI_GAS_EMBEDDED:
 199                 printf("0x%x:%u[%u] (EC)", (uint16_t)gas->Address,
 200                        gas->BitOffset, gas->BitWidth);
 201                 break;
 202         case ACPI_GAS_SMBUS:
 203                 printf("0x%x:%u[%u] (SMBus)", (uint16_t)gas->Address,
 204                        gas->BitOffset, gas->BitWidth);
 205                 break;
 206         case ACPI_GAS_CMOS:
 207         case ACPI_GAS_PCIBAR:
 208         case ACPI_GAS_DATATABLE:
 209         case ACPI_GAS_FIXED:
 210         default:
 211                 printf("0x%016jx (?)", (uintmax_t)gas->Address);
 212                 break;
 213         }
 214 }
 215
 216 /* The FADT revision indicates whether we use the DSDT or X_DSDT addresses. */
 217 static int
 218 acpi_get_fadt_revision(ACPI_TABLE_FADT *fadt)
 219 {
 220         int fadt_revision;
 221
 222         /* Set the FADT revision separately from the RSDP version. */
 223         if (addr_size == 8) {
 224                 fadt_revision = 2;
 225
 226                 /*
 227                  * A few systems (e.g., IBM T23) have an RSDP that claims
 228                  * revision 2 but the 64 bit addresses are invalid.  If
 229                  * revision 2 and the 32 bit address is non-zero but the
 230                  * 32 and 64 bit versions don't match, prefer the 32 bit
 231                  * version for all subsequent tables.
 232                  */
 233                 if (fadt->Facs != 0 &&
 234                     (fadt->XFacs & 0xffffffff) != fadt->Facs)
 235                         fadt_revision = 1;
 236         } else
 237                 fadt_revision = 1;
 238         return (fadt_revision);
 239 }
 240
 241 static void
 242 acpi_handle_fadt(ACPI_TABLE_HEADER *sdp)
 243 {
 244         ACPI_TABLE_HEADER *dsdp;
 245         ACPI_TABLE_FACS *facs;
 246         ACPI_TABLE_FADT *fadt;
 247         int             fadt_revision;
 248
 249         fadt = (ACPI_TABLE_FADT *)sdp;
 250         acpi_print_fadt(sdp);
 251
 252         fadt_revision = acpi_get_fadt_revision(fadt);
 253         if (fadt_revision == 1)
 254                 facs = (ACPI_TABLE_FACS *)acpi_map_sdt(fadt->Facs);
 255         else
 256                 facs = (ACPI_TABLE_FACS *)acpi_map_sdt(fadt->XFacs);
 257         if (memcmp(facs->Signature, ACPI_SIG_FACS, 4) != 0 || facs->Length < 64)
 258                 errx(1, "FACS is corrupt");
 259         acpi_print_facs(facs);
 260
 261         if (fadt_revision == 1)
 262                 dsdp = (ACPI_TABLE_HEADER *)acpi_map_sdt(fadt->Dsdt);
 263         else
 264                 dsdp = (ACPI_TABLE_HEADER *)acpi_map_sdt(fadt->XDsdt);
 265         if (acpi_checksum(dsdp, dsdp->Length))
 266                 errx(1, "DSDT is corrupt");
 267         acpi_print_dsdt(dsdp);
 268 }
 269
 270 static void
 271 acpi_walk_subtables(ACPI_TABLE_HEADER *table, void *first,
 272     void (*action)(ACPI_SUBTABLE_HEADER *))
 273 {
 274         ACPI_SUBTABLE_HEADER *subtable;
 275         char *end;
 276
 277         subtable = first;
 278         end = (char *)table + table->Length;
 279         while ((char *)subtable < end) {
 280                 printf("\n");
 281                 if (subtable->Length < sizeof(ACPI_SUBTABLE_HEADER)) {
 282                         warnx("invalid subtable length %u", subtable->Length);
 283                         return;
 284                 }
 285                 action(subtable);
 286                 subtable = (ACPI_SUBTABLE_HEADER *)((char *)subtable +
 287                     subtable->Length);
 288         }
 289 }
 290
 291 static void
 292 acpi_walk_nfit(ACPI_TABLE_HEADER *table, void *first,
 293     void (*action)(ACPI_NFIT_HEADER *))
 294 {
 295         ACPI_NFIT_HEADER *subtable;
 296         char *end;
 297
 298         subtable = first;
 299         end = (char *)table + table->Length;
 300         while ((char *)subtable < end) {
 301                 printf("\n");
 302                 if (subtable->Length < sizeof(ACPI_NFIT_HEADER)) {
 303                         warnx("invalid subtable length %u", subtable->Length);
 304                         return;
 305                 }
 306                 action(subtable);
 307                 subtable = (ACPI_NFIT_HEADER *)((char *)subtable +
 308                     subtable->Length);
 309         }
 310 }
 311
 312 static void
 313 acpi_print_cpu(u_char cpu_id)
 314 {
 315
 316         printf("\tACPI CPU=");
 317         if (cpu_id == 0xff)
 318                 printf("ALL\n");
 319         else
 320                 printf("%d\n", (u_int)cpu_id);
 321 }
 322
 323 static void
 324 acpi_print_cpu_uid(uint32_t uid, char *uid_string)
 325 {
 326
 327         printf("\tUID=%d", uid);
 328         if (uid_string != NULL)
 329                 printf(" (%s)", uid_string);
 330         printf("\n");
 331 }
 332
 333 static void
 334 acpi_print_local_apic(uint32_t apic_id, uint32_t flags)
 335 {
 336
 337         printf("\tFlags={");
 338         if (flags & ACPI_MADT_ENABLED)
 339                 printf("ENABLED");
 340         else
 341                 printf("DISABLED");
 342         printf("}\n");
 343         printf("\tAPIC ID=%d\n", apic_id);
 344 }
 345
 346 static void
 347 acpi_print_io_apic(uint32_t apic_id, uint32_t int_base, uint64_t apic_addr)
 348 {
 349
 350         printf("\tAPIC ID=%d\n", apic_id);
 351         printf("\tINT BASE=%d\n", int_base);
 352         printf("\tADDR=0x%016jx\n", (uintmax_t)apic_addr);
 353 }
 354
 355 static void
 356 acpi_print_mps_flags(uint16_t flags)
 357 {
 358
 359         printf("\tFlags={Polarity=");
 360         switch (flags & ACPI_MADT_POLARITY_MASK) {
 361         case ACPI_MADT_POLARITY_CONFORMS:
 362                 printf("conforming");
 363                 break;
 364         case ACPI_MADT_POLARITY_ACTIVE_HIGH:
 365                 printf("active-hi");
 366                 break;
 367         case ACPI_MADT_POLARITY_ACTIVE_LOW:
 368                 printf("active-lo");
 369                 break;
 370         default:
 371                 printf("0x%x", flags & ACPI_MADT_POLARITY_MASK);
 372                 break;
 373         }
 374         printf(", Trigger=");
 375         switch (flags & ACPI_MADT_TRIGGER_MASK) {
 376         case ACPI_MADT_TRIGGER_CONFORMS:
 377                 printf("conforming");
 378                 break;
 379         case ACPI_MADT_TRIGGER_EDGE:
 380                 printf("edge");
 381                 break;
 382         case ACPI_MADT_TRIGGER_LEVEL:
 383                 printf("level");
 384                 break;
 385         default:
 386                 printf("0x%x", (flags & ACPI_MADT_TRIGGER_MASK) >> 2);
 387         }
 388         printf("}\n");
 389 }
 390
 391 static void
 392 acpi_print_gicc_flags(uint32_t flags)
 393 {
 394
 395         printf("\tFlags={Performance intr=");
 396         if (flags & ACPI_MADT_PERFORMANCE_IRQ_MODE)
 397                 printf("edge");
 398         else
 399                 printf("level");
 400         printf(", VGIC intr=");
 401         if (flags & ACPI_MADT_VGIC_IRQ_MODE)
 402                 printf("edge");
 403         else
 404                 printf("level");
 405         printf("}\n");
 406 }
 407
 408 static void
 409 acpi_print_intr(uint32_t intr, uint16_t mps_flags)
 410 {
 411
 412         printf("\tINTR=%d\n", intr);
 413         acpi_print_mps_flags(mps_flags);
 414 }
 415
 416 static void
 417 acpi_print_local_nmi(u_int lint, uint16_t mps_flags)
 418 {
 419
 420         printf("\tLINT Pin=%d\n", lint);
 421         acpi_print_mps_flags(mps_flags);
 422 }
 423
 424 static const char *apic_types[] = {
 425     [ACPI_MADT_TYPE_LOCAL_APIC] = "Local APIC",
 426     [ACPI_MADT_TYPE_IO_APIC] = "IO APIC",
 427     [ACPI_MADT_TYPE_INTERRUPT_OVERRIDE] = "INT Override",
 428     [ACPI_MADT_TYPE_NMI_SOURCE] = "NMI",
 429     [ACPI_MADT_TYPE_LOCAL_APIC_NMI] = "Local APIC NMI",
 430     [ACPI_MADT_TYPE_LOCAL_APIC_OVERRIDE] = "Local APIC Override",
 431     [ACPI_MADT_TYPE_IO_SAPIC] = "IO SAPIC",
 432     [ACPI_MADT_TYPE_LOCAL_SAPIC] = "Local SAPIC",
 433     [ACPI_MADT_TYPE_INTERRUPT_SOURCE] = "Platform Interrupt",
 434     [ACPI_MADT_TYPE_LOCAL_X2APIC] = "Local X2APIC",
 435     [ACPI_MADT_TYPE_LOCAL_X2APIC_NMI] = "Local X2APIC NMI",
 436     [ACPI_MADT_TYPE_GENERIC_INTERRUPT] = "GIC CPU Interface Structure",
 437     [ACPI_MADT_TYPE_GENERIC_DISTRIBUTOR] = "GIC Distributor Structure",
 438     [ACPI_MADT_TYPE_GENERIC_MSI_FRAME] = "GICv2m MSI Frame",
 439     [ACPI_MADT_TYPE_GENERIC_REDISTRIBUTOR] = "GIC Redistributor Structure",
 440     [ACPI_MADT_TYPE_GENERIC_TRANSLATOR] = "GIC ITS Structure"
 441 };
 442
 443 static const char *platform_int_types[] = { "0 (unknown)", "PMI", "INIT",
 444                                             "Corrected Platform Error" };
 445
 446 static void
 447 acpi_print_madt(ACPI_SUBTABLE_HEADER *mp)
 448 {
 449         ACPI_MADT_LOCAL_APIC *lapic;
 450         ACPI_MADT_IO_APIC *ioapic;
 451         ACPI_MADT_INTERRUPT_OVERRIDE *over;
 452         ACPI_MADT_NMI_SOURCE *nmi;
 453         ACPI_MADT_LOCAL_APIC_NMI *lapic_nmi;
 454         ACPI_MADT_LOCAL_APIC_OVERRIDE *lapic_over;
 455         ACPI_MADT_IO_SAPIC *iosapic;
 456         ACPI_MADT_LOCAL_SAPIC *lsapic;
 457         ACPI_MADT_INTERRUPT_SOURCE *isrc;
 458         ACPI_MADT_LOCAL_X2APIC *x2apic;
 459         ACPI_MADT_LOCAL_X2APIC_NMI *x2apic_nmi;
 460         ACPI_MADT_GENERIC_INTERRUPT *gicc;
 461         ACPI_MADT_GENERIC_DISTRIBUTOR *gicd;
 462         ACPI_MADT_GENERIC_REDISTRIBUTOR *gicr;
 463         ACPI_MADT_GENERIC_TRANSLATOR *gict;
 464
 465         if (mp->Type < nitems(apic_types))
 466                 printf("\tType=%s\n", apic_types[mp->Type]);
 467         else
 468                 printf("\tType=%d (unknown)\n", mp->Type);
 469         switch (mp->Type) {
 470         case ACPI_MADT_TYPE_LOCAL_APIC:
 471                 lapic = (ACPI_MADT_LOCAL_APIC *)mp;
 472                 acpi_print_cpu(lapic->ProcessorId);
 473                 acpi_print_local_apic(lapic->Id, lapic->LapicFlags);
 474                 break;
 475         case ACPI_MADT_TYPE_IO_APIC:
 476                 ioapic = (ACPI_MADT_IO_APIC *)mp;
 477                 acpi_print_io_apic(ioapic->Id, ioapic->GlobalIrqBase,
 478                     ioapic->Address);
 479                 break;
 480         case ACPI_MADT_TYPE_INTERRUPT_OVERRIDE:
 481                 over = (ACPI_MADT_INTERRUPT_OVERRIDE *)mp;
 482                 printf("\tBUS=%d\n", (u_int)over->Bus);
 483                 printf("\tIRQ=%d\n", (u_int)over->SourceIrq);
 484                 acpi_print_intr(over->GlobalIrq, over->IntiFlags);
 485                 break;
 486         case ACPI_MADT_TYPE_NMI_SOURCE:
 487                 nmi = (ACPI_MADT_NMI_SOURCE *)mp;
 488                 acpi_print_intr(nmi->GlobalIrq, nmi->IntiFlags);
 489                 break;
 490         case ACPI_MADT_TYPE_LOCAL_APIC_NMI:
 491                 lapic_nmi = (ACPI_MADT_LOCAL_APIC_NMI *)mp;
 492                 acpi_print_cpu(lapic_nmi->ProcessorId);
 493                 acpi_print_local_nmi(lapic_nmi->Lint, lapic_nmi->IntiFlags);
 494                 break;
 495         case ACPI_MADT_TYPE_LOCAL_APIC_OVERRIDE:
 496                 lapic_over = (ACPI_MADT_LOCAL_APIC_OVERRIDE *)mp;
 497                 printf("\tLocal APIC ADDR=0x%016jx\n",
 498                     (uintmax_t)lapic_over->Address);
 499                 break;
 500         case ACPI_MADT_TYPE_IO_SAPIC:
 501                 iosapic = (ACPI_MADT_IO_SAPIC *)mp;
 502                 acpi_print_io_apic(iosapic->Id, iosapic->GlobalIrqBase,
 503                     iosapic->Address);
 504                 break;
 505         case ACPI_MADT_TYPE_LOCAL_SAPIC:
 506                 lsapic = (ACPI_MADT_LOCAL_SAPIC *)mp;
 507                 acpi_print_cpu(lsapic->ProcessorId);
 508                 acpi_print_local_apic(lsapic->Id, lsapic->LapicFlags);
 509                 printf("\tAPIC EID=%d\n", (u_int)lsapic->Eid);
 510                 if (mp->Length > __offsetof(ACPI_MADT_LOCAL_SAPIC, Uid))
 511                         acpi_print_cpu_uid(lsapic->Uid, lsapic->UidString);
 512                 break;
 513         case ACPI_MADT_TYPE_INTERRUPT_SOURCE:
 514                 isrc = (ACPI_MADT_INTERRUPT_SOURCE *)mp;
 515                 if (isrc->Type < nitems(platform_int_types))
 516                         printf("\tType=%s\n", platform_int_types[isrc->Type]);
 517                 else
 518                         printf("\tType=%d (unknown)\n", isrc->Type);
 519                 printf("\tAPIC ID=%d\n", (u_int)isrc->Id);
 520                 printf("\tAPIC EID=%d\n", (u_int)isrc->Eid);
 521                 printf("\tSAPIC Vector=%d\n", (u_int)isrc->IoSapicVector);
 522                 acpi_print_intr(isrc->GlobalIrq, isrc->IntiFlags);
 523                 break;
 524         case ACPI_MADT_TYPE_LOCAL_X2APIC:
 525                 x2apic = (ACPI_MADT_LOCAL_X2APIC *)mp;
 526                 acpi_print_cpu_uid(x2apic->Uid, NULL);
 527                 acpi_print_local_apic(x2apic->LocalApicId, x2apic->LapicFlags);
 528                 break;
 529         case ACPI_MADT_TYPE_LOCAL_X2APIC_NMI:
 530                 x2apic_nmi = (ACPI_MADT_LOCAL_X2APIC_NMI *)mp;
 531                 acpi_print_cpu_uid(x2apic_nmi->Uid, NULL);
 532                 acpi_print_local_nmi(x2apic_nmi->Lint, x2apic_nmi->IntiFlags);
 533                 break;
 534         case ACPI_MADT_TYPE_GENERIC_INTERRUPT:
 535                 gicc = (ACPI_MADT_GENERIC_INTERRUPT *)mp;
 536                 acpi_print_cpu_uid(gicc->Uid, NULL);
 537                 printf("\tCPU INTERFACE=%x\n", gicc->CpuInterfaceNumber);
 538                 acpi_print_gicc_flags(gicc->Flags);
 539                 printf("\tParking Protocol Version=%x\n", gicc->ParkingVersion);
 540                 printf("\tPERF INTR=%d\n", gicc->PerformanceInterrupt);
 541                 printf("\tParked ADDR=%016jx\n",
 542                     (uintmax_t)gicc->ParkedAddress);
 543                 printf("\tBase ADDR=%016jx\n", (uintmax_t)gicc->BaseAddress);
 544                 printf("\tGICV=%016jx\n", (uintmax_t)gicc->GicvBaseAddress);
 545                 printf("\tGICH=%016jx\n", (uintmax_t)gicc->GichBaseAddress);
 546                 printf("\tVGIC INTR=%d\n", gicc->VgicInterrupt);
 547                 printf("\tGICR ADDR=%016jx\n",
 548                     (uintmax_t)gicc->GicrBaseAddress);
 549                 printf("\tMPIDR=%jx\n", (uintmax_t)gicc->ArmMpidr);
 550                 printf("\tEfficency Class=%d\n", (u_int)gicc->EfficiencyClass);
 551                 break;
 552         case ACPI_MADT_TYPE_GENERIC_DISTRIBUTOR:
 553                 gicd = (ACPI_MADT_GENERIC_DISTRIBUTOR *)mp;
 554                 printf("\tGIC ID=%d\n", (u_int)gicd->GicId);
 555                 printf("\tBase ADDR=%016jx\n", (uintmax_t)gicd->BaseAddress);
 556                 printf("\tVector Base=%d\n", gicd->GlobalIrqBase);
 557                 printf("\tGIC VERSION=%d\n", (u_int)gicd->Version);
 558                 break;
 559         case ACPI_MADT_TYPE_GENERIC_REDISTRIBUTOR:
 560                 gicr = (ACPI_MADT_GENERIC_REDISTRIBUTOR *)mp;
 561                 printf("\tBase ADDR=%016jx\n", (uintmax_t)gicr->BaseAddress);
 562                 printf("\tLength=%08x\n", gicr->Length);
 563                 break;
 564         case ACPI_MADT_TYPE_GENERIC_TRANSLATOR:
 565                 gict = (ACPI_MADT_GENERIC_TRANSLATOR *)mp;
 566                 printf("\tGIC ITS ID=%d\n", gict->TranslationId);
 567                 printf("\tBase ADDR=%016jx\n", (uintmax_t)gict->BaseAddress);
 568                 break;
 569         }
 570 }
 571
 572 static void
 573 acpi_handle_madt(ACPI_TABLE_HEADER *sdp)
 574 {
 575         ACPI_TABLE_MADT *madt;
 576
 577         printf(BEGIN_COMMENT);
 578         acpi_print_sdt(sdp);
 579         madt = (ACPI_TABLE_MADT *)sdp;
 580         printf("\tLocal APIC ADDR=0x%08x\n", madt->Address);
 581         printf("\tFlags={");
 582         if (madt->Flags & ACPI_MADT_PCAT_COMPAT)
 583                 printf("PC-AT");
 584         printf("}\n");
 585         acpi_walk_subtables(sdp, (madt + 1), acpi_print_madt);
 586         printf(END_COMMENT);
 587 }
 588
 589 static void
 590 acpi_handle_hpet(ACPI_TABLE_HEADER *sdp)
 591 {
 592         ACPI_TABLE_HPET *hpet;
 593
 594         printf(BEGIN_COMMENT);
 595         acpi_print_sdt(sdp);
 596         hpet = (ACPI_TABLE_HPET *)sdp;
 597         printf("\tHPET Number=%d\n", hpet->Sequence);
 598         printf("\tADDR=");
 599         acpi_print_gas(&hpet->Address);
 600         printf("\tHW Rev=0x%x\n", hpet->Id & ACPI_HPET_ID_HARDWARE_REV_ID);
 601         printf("\tComparators=%d\n", (hpet->Id & ACPI_HPET_ID_COMPARATORS) >>
 602             8);
 603         printf("\tCounter Size=%d\n", hpet->Id & ACPI_HPET_ID_COUNT_SIZE_CAP ?
 604             1 : 0);
 605         printf("\tLegacy IRQ routing capable={");
 606         if (hpet->Id & ACPI_HPET_ID_LEGACY_CAPABLE)
 607                 printf("TRUE}\n");
 608         else
 609                 printf("FALSE}\n");
 610         printf("\tPCI Vendor ID=0x%04x\n", hpet->Id >> 16);
 611         printf("\tMinimal Tick=%d\n", hpet->MinimumTick);
 612         printf("\tFlags=0x%02x\n", hpet->Flags);
 613         printf(END_COMMENT);
 614 }
 615
 616 static void
 617 acpi_handle_ecdt(ACPI_TABLE_HEADER *sdp)
 618 {
 619         ACPI_TABLE_ECDT *ecdt;
 620
 621         printf(BEGIN_COMMENT);
 622         acpi_print_sdt(sdp);
 623         ecdt = (ACPI_TABLE_ECDT *)sdp;
 624         printf("\tEC_CONTROL=");
 625         acpi_print_gas(&ecdt->Control);
 626         printf("\n\tEC_DATA=");
 627         acpi_print_gas(&ecdt->Data);
 628         printf("\n\tUID=%#x, ", ecdt->Uid);
 629         printf("GPE_BIT=%#x\n", ecdt->Gpe);
 630         printf("\tEC_ID=%s\n", ecdt->Id);
 631         printf(END_COMMENT);
 632 }
 633
 634 static void
 635 acpi_handle_mcfg(ACPI_TABLE_HEADER *sdp)
 636 {
 637         ACPI_TABLE_MCFG *mcfg;
 638         ACPI_MCFG_ALLOCATION *alloc;
 639         u_int i, entries;
 640
 641         printf(BEGIN_COMMENT);
 642         acpi_print_sdt(sdp);
 643         mcfg = (ACPI_TABLE_MCFG *)sdp;
 644         entries = (sdp->Length - sizeof(ACPI_TABLE_MCFG)) /
 645             sizeof(ACPI_MCFG_ALLOCATION);
 646         alloc = (ACPI_MCFG_ALLOCATION *)(mcfg + 1);
 647         for (i = 0; i < entries; i++, alloc++) {
 648                 printf("\n");
 649                 printf("\tBase Address=0x%016jx\n", (uintmax_t)alloc->Address);
 650                 printf("\tSegment Group=0x%04x\n", alloc->PciSegment);
 651                 printf("\tStart Bus=%d\n", alloc->StartBusNumber);
 652                 printf("\tEnd Bus=%d\n", alloc->EndBusNumber);
 653         }
 654         printf(END_COMMENT);
 655 }
 656
 657 static void
 658 acpi_handle_slit(ACPI_TABLE_HEADER *sdp)
 659 {
 660         ACPI_TABLE_SLIT *slit;
 661         UINT64 i, j;
 662
 663         printf(BEGIN_COMMENT);
 664         acpi_print_sdt(sdp);
 665         slit = (ACPI_TABLE_SLIT *)sdp;
 666         printf("\tLocality Count=%ju\n", (uintmax_t)slit->LocalityCount);
 667         printf("\n\t      ");
 668         for (i = 0; i < slit->LocalityCount; i++)
 669                 printf(" %3ju", (uintmax_t)i);
 670         printf("\n\t     +");
 671         for (i = 0; i < slit->LocalityCount; i++)
 672                 printf("----");
 673         printf("\n");
 674         for (i = 0; i < slit->LocalityCount; i++) {
 675                 printf("\t %3ju |", (uintmax_t)i);
 676                 for (j = 0; j < slit->LocalityCount; j++)
 677                         printf(" %3d",
 678                             slit->Entry[i * slit->LocalityCount + j]);
 679                 printf("\n");
 680         }
 681         printf(END_COMMENT);
 682 }
 683
 684 static void
 685 acpi_handle_wddt(ACPI_TABLE_HEADER *sdp)
 686 {
 687         ACPI_TABLE_WDDT *wddt;
 688
 689         printf(BEGIN_COMMENT);
 690         acpi_print_sdt(sdp);
 691         wddt = (ACPI_TABLE_WDDT *)sdp;
 692         printf("\tSpecVersion=0x%04x, TableVersion=0x%04x\n",
 693             wddt->SpecVersion, wddt->TableVersion);
 694         printf("\tPciVendorId=0x%04x, Address=", wddt->PciVendorId);
 695         acpi_print_gas(&wddt->Address);
 696         printf("\n\tMaxCount=%u, MinCount=%u, Period=%ums\n",
 697             wddt->MaxCount, wddt->MinCount, wddt->Period);
 698
 699 #define PRINTFLAG(var, flag)    printflag((var), ACPI_WDDT_## flag, #flag)
 700         printf("\tStatus=");
 701         PRINTFLAG(wddt->Status, AVAILABLE);
 702         PRINTFLAG(wddt->Status, ACTIVE);
 703         PRINTFLAG(wddt->Status, TCO_OS_OWNED);
 704         PRINTFLAG(wddt->Status, USER_RESET);
 705         PRINTFLAG(wddt->Status, WDT_RESET);
 706         PRINTFLAG(wddt->Status, POWER_FAIL);
 707         PRINTFLAG(wddt->Status, UNKNOWN_RESET);
 708         PRINTFLAG_END();
 709         printf("\tCapability=");
 710         PRINTFLAG(wddt->Capability, AUTO_RESET);
 711         PRINTFLAG(wddt->Capability, ALERT_SUPPORT);
 712         PRINTFLAG_END();
 713 #undef PRINTFLAG
 714
 715         printf(END_COMMENT);
 716 }
 717
 718 static void
 719 acpi_print_srat_cpu(uint32_t apic_id, uint32_t proximity_domain,
 720     uint32_t flags)
 721 {
 722
 723         printf("\tFlags={");
 724         if (flags & ACPI_SRAT_CPU_ENABLED)
 725                 printf("ENABLED");
 726         else
 727                 printf("DISABLED");
 728         printf("}\n");
 729         printf("\tAPIC ID=%d\n", apic_id);
 730         printf("\tProximity Domain=%d\n", proximity_domain);
 731 }
 732
 733 static char *
 734 acpi_tcpa_evname(struct TCPAevent *event)
 735 {
 736         struct TCPApc_event *pc_event;
 737         char *eventname = NULL;
 738
 739         pc_event = (struct TCPApc_event *)(event + 1);
 740
 741         switch(event->event_type) {
 742         case PREBOOT:
 743         case POST_CODE:
 744         case UNUSED:
 745         case NO_ACTION:
 746         case SEPARATOR:
 747         case SCRTM_CONTENTS:
 748         case SCRTM_VERSION:
 749         case CPU_MICROCODE:
 750         case PLATFORM_CONFIG_FLAGS:
 751         case TABLE_OF_DEVICES:
 752         case COMPACT_HASH:
 753         case IPL:
 754         case IPL_PARTITION_DATA:
 755         case NONHOST_CODE:
 756         case NONHOST_CONFIG:
 757         case NONHOST_INFO:
 758                 asprintf(&eventname, "%s",
 759                     tcpa_event_type_strings[event->event_type]);
 760                 break;
 761
 762         case ACTION:
 763                 eventname = calloc(event->event_size + 1, sizeof(char));
 764                 memcpy(eventname, pc_event, event->event_size);
 765                 break;
 766
 767         case EVENT_TAG:
 768                 switch (pc_event->event_id) {
 769                 case SMBIOS:
 770                 case BIS_CERT:
 771                 case CMOS:
 772                 case NVRAM:
 773                 case OPTION_ROM_EXEC:
 774                 case OPTION_ROM_CONFIG:
 775                 case S_CRTM_VERSION:
 776                 case POST_BIOS_ROM:
 777                 case ESCD:
 778                 case OPTION_ROM_MICROCODE:
 779                 case S_CRTM_CONTENTS:
 780                 case POST_CONTENTS:
 781                         asprintf(&eventname, "%s",
 782                             TCPA_pcclient_strings[pc_event->event_id]);
 783                         break;
 784
 785                 default:
 786                         asprintf(&eventname, "<unknown tag 0x%02x>",
 787                             pc_event->event_id);
 788                         break;
 789                 }
 790                 break;
 791
 792         default:
 793                 asprintf(&eventname, "<unknown 0x%02x>", event->event_type);
 794                 break;
 795         }
 796
 797         return eventname;
 798 }
 799
 800 static void
 801 acpi_print_tcpa(struct TCPAevent *event)
 802 {
 803         int i;
 804         char *eventname;
 805
 806         eventname = acpi_tcpa_evname(event);
 807
 808         printf("\t%d", event->pcr_index);
 809         printf(" 0x");
 810         for (i = 0; i < 20; i++)
 811                 printf("%02x", event->pcr_value[i]);
 812         printf(" [%s]\n", eventname ? eventname : "<unknown>");
 813
 814         free(eventname);
 815 }
 816
 817 static void
 818 acpi_handle_tcpa(ACPI_TABLE_HEADER *sdp)
 819 {
 820         struct TCPAbody *tcpa;
 821         struct TCPAevent *event;
 822         uintmax_t len, paddr;
 823         unsigned char *vaddr = NULL;
 824         unsigned char *vend = NULL;
 825
 826         printf(BEGIN_COMMENT);
 827         acpi_print_sdt(sdp);
 828         tcpa = (struct TCPAbody *) sdp;
 829
 830         switch (tcpa->platform_class) {
 831         case ACPI_TCPA_BIOS_CLIENT:
 832                 len = tcpa->client.log_max_len;
 833                 paddr = tcpa->client.log_start_addr;
 834                 break;
 835
 836         case ACPI_TCPA_BIOS_SERVER:
 837                 len = tcpa->server.log_max_len;
 838                 paddr = tcpa->server.log_start_addr;
 839                 break;
 840
 841         default:
 842                 printf("XXX");
 843                 printf(END_COMMENT);
 844                 return;
 845         }
 846         printf("\tClass %u Base Address 0x%jx Length %ju\n\n",
 847             tcpa->platform_class, paddr, len);
 848
 849         if (len == 0) {
 850                 printf("\tEmpty TCPA table\n");
 851                 printf(END_COMMENT);
 852                 return;
 853         }
 854         if(sdp->Revision == 1){
 855                 printf("\tOLD TCPA spec log found. Dumping not supported.\n");
 856                 printf(END_COMMENT);
 857                 return;
 858         }
 859
 860         vaddr = (unsigned char *)acpi_map_physical(paddr, len);
 861         vend = vaddr + len;
 862
 863         while (vaddr != NULL) {
 864                 if ((vaddr + sizeof(struct TCPAevent) >= vend)||
 865                     (vaddr + sizeof(struct TCPAevent) < vaddr))
 866                         break;
 867                 event = (struct TCPAevent *)(void *)vaddr;
 868                 if (vaddr + event->event_size >= vend)
 869                         break;
 870                 if (vaddr + event->event_size < vaddr)
 871                         break;
 872                 if (event->event_type == 0 && event->event_size == 0)
 873                         break;
 874 #if 0
 875                 {
 876                 unsigned int i, j, k;
 877
 878                 printf("\n\tsize %d\n\t\t%p ", event->event_size, vaddr);
 879                 for (j = 0, i = 0; i <
 880                     sizeof(struct TCPAevent) + event->event_size; i++) {
 881                         printf("%02x ", vaddr[i]);
 882                         if ((i+1) % 8 == 0) {
 883                                 for (k = 0; k < 8; k++)
 884                                         printf("%c", isprint(vaddr[j+k]) ?
 885                                             vaddr[j+k] : '.');
 886                                 printf("\n\t\t%p ", &vaddr[i + 1]);
 887                                 j = i + 1;
 888                         }
 889                 }
 890                 printf("\n"); }
 891 #endif
 892                 acpi_print_tcpa(event);
 893
 894                 vaddr += sizeof(struct TCPAevent) + event->event_size;
 895         }
 896
 897         printf(END_COMMENT);
 898 }
 899
 900 static const char *
 901 devscope_type2str(int type)
 902 {
 903         static char typebuf[16];
 904
 905         switch (type) {
 906         case 1:
 907                 return ("PCI Endpoint Device");
 908         case 2:
 909                 return ("PCI Sub-Hierarchy");
 910         case 3:
 911                 return ("IOAPIC");
 912         case 4:
 913                 return ("HPET");
 914         default:
 915                 snprintf(typebuf, sizeof(typebuf), "%d", type);
 916                 return (typebuf);
 917         }
 918 }
 919
 920 static int
 921 acpi_handle_dmar_devscope(void *addr, int remaining)
 922 {
 923         char sep;
 924         int pathlen;
 925         ACPI_DMAR_PCI_PATH *path, *pathend;
 926         ACPI_DMAR_DEVICE_SCOPE *devscope = addr;
 927
 928         if (remaining < (int)sizeof(ACPI_DMAR_DEVICE_SCOPE))
 929                 return (-1);
 930
 931         if (remaining < devscope->Length)
 932                 return (-1);
 933
 934         printf("\n");
 935         printf("\t\tType=%s\n", devscope_type2str(devscope->EntryType));
 936         printf("\t\tLength=%d\n", devscope->Length);
 937         printf("\t\tEnumerationId=%d\n", devscope->EnumerationId);
 938         printf("\t\tStartBusNumber=%d\n", devscope->Bus);
 939
 940         path = (ACPI_DMAR_PCI_PATH *)(devscope + 1);
 941         pathlen = devscope->Length - sizeof(ACPI_DMAR_DEVICE_SCOPE);
 942         pathend = path + pathlen / sizeof(ACPI_DMAR_PCI_PATH);
 943         if (path < pathend) {
 944                 sep = '{';
 945                 printf("\t\tPath=");
 946                 do {
 947                         printf("%c%d:%d", sep, path->Device, path->Function);
 948                         sep=',';
 949                         path++;
 950                 } while (path < pathend);
 951                 printf("}\n");
 952         }
 953
 954         return (devscope->Length);
 955 }
 956
 957 static void
 958 acpi_handle_dmar_drhd(ACPI_DMAR_HARDWARE_UNIT *drhd)
 959 {
 960         char *cp;
 961         int remaining, consumed;
 962
 963         printf("\n");
 964         printf("\tType=DRHD\n");
 965         printf("\tLength=%d\n", drhd->Header.Length);
 966
 967 #define PRINTFLAG(var, flag)    printflag((var), ACPI_DMAR_## flag, #flag)
 968
 969         printf("\tFlags=");
 970         PRINTFLAG(drhd->Flags, INCLUDE_ALL);
 971         PRINTFLAG_END();
 972
 973 #undef PRINTFLAG
 974
 975         printf("\tSegment=%d\n", drhd->Segment);
 976         printf("\tAddress=0x%016jx\n", (uintmax_t)drhd->Address);
 977
 978         remaining = drhd->Header.Length - sizeof(ACPI_DMAR_HARDWARE_UNIT);
 979         if (remaining > 0)
 980                 printf("\tDevice Scope:");
 981         while (remaining > 0) {
 982                 cp = (char *)drhd + drhd->Header.Length - remaining;
 983                 consumed = acpi_handle_dmar_devscope(cp, remaining);
 984                 if (consumed <= 0)
 985                         break;
 986                 else
 987                         remaining -= consumed;
 988         }
 989 }
 990
 991 static void
 992 acpi_handle_dmar_rmrr(ACPI_DMAR_RESERVED_MEMORY *rmrr)
 993 {
 994         char *cp;
 995         int remaining, consumed;
 996
 997         printf("\n");
 998         printf("\tType=RMRR\n");
 999         printf("\tLength=%d\n", rmrr->Header.Length);
1000         printf("\tSegment=%d\n", rmrr->Segment);
1001         printf("\tBaseAddress=0x%016jx\n", (uintmax_t)rmrr->BaseAddress);
1002         printf("\tLimitAddress=0x%016jx\n", (uintmax_t)rmrr->EndAddress);
1003
1004         remaining = rmrr->Header.Length - sizeof(ACPI_DMAR_RESERVED_MEMORY);
1005         if (remaining > 0)
1006                 printf("\tDevice Scope:");
1007         while (remaining > 0) {
1008                 cp = (char *)rmrr + rmrr->Header.Length - remaining;
1009                 consumed = acpi_handle_dmar_devscope(cp, remaining);
1010                 if (consumed <= 0)
1011                         break;
1012                 else
1013                         remaining -= consumed;
1014         }
1015 }
1016
1017 static void
1018 acpi_handle_dmar_atsr(ACPI_DMAR_ATSR *atsr)
1019 {
1020         char *cp;
1021         int remaining, consumed;
1022
1023         printf("\n");
1024         printf("\tType=ATSR\n");
1025         printf("\tLength=%d\n", atsr->Header.Length);
1026
1027 #define PRINTFLAG(var, flag)    printflag((var), ACPI_DMAR_## flag, #flag)
1028
1029         printf("\tFlags=");
1030         PRINTFLAG(atsr->Flags, ALL_PORTS);
1031         PRINTFLAG_END();
1032
1033 #undef PRINTFLAG
1034
1035         printf("\tSegment=%d\n", atsr->Segment);
1036
1037         remaining = atsr->Header.Length - sizeof(ACPI_DMAR_ATSR);
1038         if (remaining > 0)
1039                 printf("\tDevice Scope:");
1040         while (remaining > 0) {
1041                 cp = (char *)atsr + atsr->Header.Length - remaining;
1042                 consumed = acpi_handle_dmar_devscope(cp, remaining);
1043                 if (consumed <= 0)
1044                         break;
1045                 else
1046                         remaining -= consumed;
1047         }
1048 }
1049
1050 static void
1051 acpi_handle_dmar_rhsa(ACPI_DMAR_RHSA *rhsa)
1052 {
1053
1054         printf("\n");
1055         printf("\tType=RHSA\n");
1056         printf("\tLength=%d\n", rhsa->Header.Length);
1057         printf("\tBaseAddress=0x%016jx\n", (uintmax_t)rhsa->BaseAddress);
1058         printf("\tProximityDomain=0x%08x\n", rhsa->ProximityDomain);
1059 }
1060
1061 static int
1062 acpi_handle_dmar_remapping_structure(void *addr, int remaining)
1063 {
1064         ACPI_DMAR_HEADER *hdr = addr;
1065
1066         if (remaining < (int)sizeof(ACPI_DMAR_HEADER))
1067                 return (-1);
1068
1069         if (remaining < hdr->Length)
1070                 return (-1);
1071
1072         switch (hdr->Type) {
1073         case ACPI_DMAR_TYPE_HARDWARE_UNIT:
1074                 acpi_handle_dmar_drhd(addr);
1075                 break;
1076         case ACPI_DMAR_TYPE_RESERVED_MEMORY:
1077                 acpi_handle_dmar_rmrr(addr);
1078                 break;
1079         case ACPI_DMAR_TYPE_ROOT_ATS:
1080                 acpi_handle_dmar_atsr(addr);
1081                 break;
1082         case ACPI_DMAR_TYPE_HARDWARE_AFFINITY:
1083                 acpi_handle_dmar_rhsa(addr);
1084                 break;
1085         default:
1086                 printf("\n");
1087                 printf("\tType=%d\n", hdr->Type);
1088                 printf("\tLength=%d\n", hdr->Length);
1089                 break;
1090         }
1091         return (hdr->Length);
1092 }
1093
1094 #ifndef ACPI_DMAR_X2APIC_OPT_OUT
1095 #define ACPI_DMAR_X2APIC_OPT_OUT        (0x2)
1096 #endif
1097
1098 static void
1099 acpi_handle_dmar(ACPI_TABLE_HEADER *sdp)
1100 {
1101         char *cp;
1102         int remaining, consumed;
1103         ACPI_TABLE_DMAR *dmar;
1104
1105         printf(BEGIN_COMMENT);
1106         acpi_print_sdt(sdp);
1107         dmar = (ACPI_TABLE_DMAR *)sdp;
1108         printf("\tHost Address Width=%d\n", dmar->Width + 1);
1109
1110 #define PRINTFLAG(var, flag)    printflag((var), ACPI_DMAR_## flag, #flag)
1111
1112         printf("\tFlags=");
1113         PRINTFLAG(dmar->Flags, INTR_REMAP);
1114         PRINTFLAG(dmar->Flags, X2APIC_OPT_OUT);
1115         PRINTFLAG_END();
1116
1117 #undef PRINTFLAG
1118
1119         remaining = sdp->Length - sizeof(ACPI_TABLE_DMAR);
1120         while (remaining > 0) {
1121                 cp = (char *)sdp + sdp->Length - remaining;
1122                 consumed = acpi_handle_dmar_remapping_structure(cp, remaining);
1123                 if (consumed <= 0)
1124                         break;
1125                 else
1126                         remaining -= consumed;
1127         }
1128
1129         printf(END_COMMENT);
1130 }
1131
1132 static void
1133 acpi_print_srat_memory(ACPI_SRAT_MEM_AFFINITY *mp)
1134 {
1135
1136         printf("\tFlags={");
1137         if (mp->Flags & ACPI_SRAT_MEM_ENABLED)
1138                 printf("ENABLED");
1139         else
1140                 printf("DISABLED");
1141         if (mp->Flags & ACPI_SRAT_MEM_HOT_PLUGGABLE)
1142                 printf(",HOT_PLUGGABLE");
1143         if (mp->Flags & ACPI_SRAT_MEM_NON_VOLATILE)
1144                 printf(",NON_VOLATILE");
1145         printf("}\n");
1146         printf("\tBase Address=0x%016jx\n", (uintmax_t)mp->BaseAddress);
1147         printf("\tLength=0x%016jx\n", (uintmax_t)mp->Length);
1148         printf("\tProximity Domain=%d\n", mp->ProximityDomain);
1149 }
1150
1151 static const char *srat_types[] = {
1152     [ACPI_SRAT_TYPE_CPU_AFFINITY] = "CPU",
1153     [ACPI_SRAT_TYPE_MEMORY_AFFINITY] = "Memory",
1154     [ACPI_SRAT_TYPE_X2APIC_CPU_AFFINITY] = "X2APIC",
1155     [ACPI_SRAT_TYPE_GICC_AFFINITY] = "GICC",
1156     [ACPI_SRAT_TYPE_GIC_ITS_AFFINITY] = "GIC ITS",
1157 };
1158
1159 static void
1160 acpi_print_srat(ACPI_SUBTABLE_HEADER *srat)
1161 {
1162         ACPI_SRAT_CPU_AFFINITY *cpu;
1163         ACPI_SRAT_X2APIC_CPU_AFFINITY *x2apic;
1164         ACPI_SRAT_GICC_AFFINITY *gic;
1165
1166         if (srat->Type < nitems(srat_types))
1167                 printf("\tType=%s\n", srat_types[srat->Type]);
1168         else
1169                 printf("\tType=%d (unknown)\n", srat->Type);
1170         switch (srat->Type) {
1171         case ACPI_SRAT_TYPE_CPU_AFFINITY:
1172                 cpu = (ACPI_SRAT_CPU_AFFINITY *)srat;
1173                 acpi_print_srat_cpu(cpu->ApicId,
1174                     cpu->ProximityDomainHi[2] << 24 |
1175                     cpu->ProximityDomainHi[1] << 16 |
1176                     cpu->ProximityDomainHi[0] << 0 |
1177                     cpu->ProximityDomainLo, cpu->Flags);
1178                 break;
1179         case ACPI_SRAT_TYPE_MEMORY_AFFINITY:
1180                 acpi_print_srat_memory((ACPI_SRAT_MEM_AFFINITY *)srat);
1181                 break;
1182         case ACPI_SRAT_TYPE_X2APIC_CPU_AFFINITY:
1183                 x2apic = (ACPI_SRAT_X2APIC_CPU_AFFINITY *)srat;
1184                 acpi_print_srat_cpu(x2apic->ApicId, x2apic->ProximityDomain,
1185                     x2apic->Flags);
1186                 break;
1187         case ACPI_SRAT_TYPE_GICC_AFFINITY:
1188                 gic = (ACPI_SRAT_GICC_AFFINITY *)srat;
1189                 acpi_print_srat_cpu(gic->AcpiProcessorUid, gic->ProximityDomain,
1190                     gic->Flags);
1191                 break;
1192         }
1193 }
1194
1195 static void
1196 acpi_handle_srat(ACPI_TABLE_HEADER *sdp)
1197 {
1198         ACPI_TABLE_SRAT *srat;
1199
1200         printf(BEGIN_COMMENT);
1201         acpi_print_sdt(sdp);
1202         srat = (ACPI_TABLE_SRAT *)sdp;
1203         printf("\tTable Revision=%d\n", srat->TableRevision);
1204         acpi_walk_subtables(sdp, (srat + 1), acpi_print_srat);
1205         printf(END_COMMENT);
1206 }
1207
1208 static const char *nfit_types[] = {
1209     [ACPI_NFIT_TYPE_SYSTEM_ADDRESS] = "System Address",
1210     [ACPI_NFIT_TYPE_MEMORY_MAP] = "Memory Map",
1211     [ACPI_NFIT_TYPE_INTERLEAVE] = "Interleave",
1212     [ACPI_NFIT_TYPE_SMBIOS] = "SMBIOS",
1213     [ACPI_NFIT_TYPE_CONTROL_REGION] = "Control Region",
1214     [ACPI_NFIT_TYPE_DATA_REGION] = "Data Region",
1215     [ACPI_NFIT_TYPE_FLUSH_ADDRESS] = "Flush Address"
1216 };
1217
1218
1219 static void
1220 acpi_print_nfit(ACPI_NFIT_HEADER *nfit)
1221 {
1222         char *uuidstr;
1223         uint32_t status;
1224
1225         ACPI_NFIT_SYSTEM_ADDRESS *sysaddr;
1226         ACPI_NFIT_MEMORY_MAP *mmap;
1227         ACPI_NFIT_INTERLEAVE *ileave;
1228         ACPI_NFIT_SMBIOS *smbios;
1229         ACPI_NFIT_CONTROL_REGION *ctlreg;
1230         ACPI_NFIT_DATA_REGION *datareg;
1231         ACPI_NFIT_FLUSH_ADDRESS *fladdr;
1232
1233         if (nfit->Type < nitems(nfit_types))
1234                 printf("\tType=%s\n", nfit_types[nfit->Type]);
1235         else
1236                 printf("\tType=%u (unknown)\n", nfit->Type);
1237         switch (nfit->Type) {
1238         case ACPI_NFIT_TYPE_SYSTEM_ADDRESS:
1239                 sysaddr = (ACPI_NFIT_SYSTEM_ADDRESS *)nfit;
1240                 printf("\tRangeIndex=%u\n", (u_int)sysaddr->RangeIndex);
1241                 printf("\tProximityDomain=%u\n",
1242                     (u_int)sysaddr->ProximityDomain);
1243                 uuid_to_string((uuid_t *)(sysaddr->RangeGuid),
1244                     &uuidstr, &status);
1245                 if (status != uuid_s_ok)
1246                         errx(1, "uuid_to_string: status=%u", status);
1247                 printf("\tRangeGuid=%s\n", uuidstr);
1248                 free(uuidstr);
1249                 printf("\tAddress=0x%016jx\n", (uintmax_t)sysaddr->Address);
1250                 printf("\tLength=0x%016jx\n", (uintmax_t)sysaddr->Length);
1251                 printf("\tMemoryMapping=0x%016jx\n",
1252                     (uintmax_t)sysaddr->MemoryMapping);
1253
1254 #define PRINTFLAG(var, flag)    printflag((var), ACPI_NFIT_## flag, #flag)
1255
1256                 printf("\tFlags=");
1257                 PRINTFLAG(sysaddr->Flags, ADD_ONLINE_ONLY);
1258                 PRINTFLAG(sysaddr->Flags, PROXIMITY_VALID);
1259                 PRINTFLAG_END();
1260
1261 #undef PRINTFLAG
1262
1263                 break;
1264         case ACPI_NFIT_TYPE_MEMORY_MAP:
1265                 mmap = (ACPI_NFIT_MEMORY_MAP *)nfit;
1266                 printf("\tDeviceHandle=%u\n", (u_int)mmap->DeviceHandle);
1267                 printf("\tPhysicalId=%u\n", (u_int)mmap->PhysicalId);
1268                 printf("\tRegionId=%u\n", (u_int)mmap->RegionId);
1269                 printf("\tRangeIndex=%u\n", (u_int)mmap->RangeIndex);
1270                 printf("\tRegionIndex=%u\n", (u_int)mmap->RegionIndex);
1271                 printf("\tRegionSize=0x%016jx\n", (uintmax_t)mmap->RegionSize);
1272                 printf("\tRegionOffset=0x%016jx\n",
1273                     (uintmax_t)mmap->RegionOffset);
1274                 printf("\tAddress=0x%016jx\n", (uintmax_t)mmap->Address);
1275                 printf("\tInterleaveIndex=%u\n", (u_int)mmap->InterleaveIndex);
1276                 printf("\tInterleaveWays=%u\n", (u_int)mmap->InterleaveWays);
1277
1278 #define PRINTFLAG(var, flag)    printflag((var), ACPI_NFIT_MEM_## flag, #flag)
1279
1280                 printf("\tFlags=");
1281                 PRINTFLAG(mmap->Flags, SAVE_FAILED);
1282                 PRINTFLAG(mmap->Flags, RESTORE_FAILED);
1283                 PRINTFLAG(mmap->Flags, FLUSH_FAILED);
1284                 PRINTFLAG(mmap->Flags, NOT_ARMED);
1285                 PRINTFLAG(mmap->Flags, HEALTH_OBSERVED);
1286                 PRINTFLAG(mmap->Flags, HEALTH_ENABLED);
1287                 PRINTFLAG(mmap->Flags, MAP_FAILED);
1288                 PRINTFLAG_END();
1289
1290 #undef PRINTFLAG
1291
1292                 break;
1293         case ACPI_NFIT_TYPE_INTERLEAVE:
1294                 ileave = (ACPI_NFIT_INTERLEAVE *)nfit;
1295                 printf("\tInterleaveIndex=%u\n",
1296                     (u_int)ileave->InterleaveIndex);
1297                 printf("\tLineCount=%u\n", (u_int)ileave->LineCount);
1298                 printf("\tLineSize=%u\n", (u_int)ileave->LineSize);
1299                 /* XXX ileave->LineOffset[i] output is not supported */
1300                 break;
1301         case ACPI_NFIT_TYPE_SMBIOS:
1302                 smbios = (ACPI_NFIT_SMBIOS *)nfit;
1303                 /* XXX smbios->Data[x] output is not supported */
1304                 break;
1305         case ACPI_NFIT_TYPE_CONTROL_REGION:
1306                 ctlreg = (ACPI_NFIT_CONTROL_REGION *)nfit;
1307                 printf("\tRegionIndex=%u\n", (u_int)ctlreg->RegionIndex);
1308                 printf("\tVendorId=0x%04x\n", (u_int)ctlreg->VendorId);
1309                 printf("\tDeviceId=0x%04x\n", (u_int)ctlreg->DeviceId);
1310                 printf("\tRevisionId=%u\n", (u_int)ctlreg->RevisionId);
1311                 printf("\tSubsystemVendorId=0x%04x\n",
1312                     (u_int)ctlreg->SubsystemVendorId);
1313                 printf("\tSubsystemDeviceId=0x%04x\n",
1314                     (u_int)ctlreg->SubsystemDeviceId);
1315                 printf("\tSubsystemRevisionId=%u\n",
1316                     (u_int)ctlreg->SubsystemRevisionId);
1317                 printf("\tValidFields=0x%02x\n", (u_int)ctlreg->ValidFields);
1318                 printf("\tManufacturingLocation=%u\n",
1319                     (u_int)ctlreg->ManufacturingLocation);
1320                 printf("\tManufacturingDate=%u\n",
1321                     (u_int)ctlreg->ManufacturingDate);
1322                 printf("\tSerialNumber=%u\n",
1323                     (u_int)ctlreg->SerialNumber);
1324                 printf("\tCode=0x%04x\n", (u_int)ctlreg->Code);
1325                 printf("\tWindows=%u\n", (u_int)ctlreg->Windows);
1326                 printf("\tWindowSize=0x%016jx\n",
1327                     (uintmax_t)ctlreg->WindowSize);
1328                 printf("\tCommandOffset=0x%016jx\n",
1329                     (uintmax_t)ctlreg->CommandOffset);
1330                 printf("\tCommandSize=0x%016jx\n",
1331                     (uintmax_t)ctlreg->CommandSize);
1332                 printf("\tStatusOffset=0x%016jx\n",
1333                     (uintmax_t)ctlreg->StatusOffset);
1334                 printf("\tStatusSize=0x%016jx\n",
1335                     (uintmax_t)ctlreg->StatusSize);
1336
1337 #define PRINTFLAG(var, flag)    printflag((var), ACPI_NFIT_## flag, #flag)
1338
1339                 printf("\tFlags=");
1340                 PRINTFLAG(ctlreg->Flags, CONTROL_BUFFERED);
1341                 PRINTFLAG_END();
1342
1343 #undef PRINTFLAG
1344
1345                 break;
1346         case ACPI_NFIT_TYPE_DATA_REGION:
1347                 datareg = (ACPI_NFIT_DATA_REGION *)nfit;
1348                 printf("\tRegionIndex=%u\n", (u_int)datareg->RegionIndex);
1349                 printf("\tWindows=%u\n", (u_int)datareg->Windows);
1350                 printf("\tOffset=0x%016jx\n", (uintmax_t)datareg->Offset);
1351                 printf("\tSize=0x%016jx\n", (uintmax_t)datareg->Size);
1352                 printf("\tCapacity=0x%016jx\n", (uintmax_t)datareg->Capacity);
1353                 printf("\tStartAddress=0x%016jx\n",
1354                     (uintmax_t)datareg->StartAddress);
1355                 break;
1356         case ACPI_NFIT_TYPE_FLUSH_ADDRESS:
1357                 fladdr = (ACPI_NFIT_FLUSH_ADDRESS *)nfit;
1358                 printf("\tDeviceHandle=%u\n", (u_int)fladdr->DeviceHandle);
1359                 printf("\tHintCount=%u\n", (u_int)fladdr->HintCount);
1360                 /* XXX fladdr->HintAddress[i] output is not supported */
1361                 break;
1362         }
1363 }
1364
1365 static void
1366 acpi_handle_nfit(ACPI_TABLE_HEADER *sdp)
1367 {
1368         ACPI_TABLE_NFIT *nfit;
1369
1370         printf(BEGIN_COMMENT);
1371         acpi_print_sdt(sdp);
1372         nfit = (ACPI_TABLE_NFIT *)sdp;
1373         acpi_walk_nfit(sdp, (nfit + 1), acpi_print_nfit);
1374         printf(END_COMMENT);
1375 }
1376
1377 static void
1378 acpi_print_sdt(ACPI_TABLE_HEADER *sdp)
1379 {
1380         printf("  ");
1381         acpi_print_string(sdp->Signature, ACPI_NAME_SIZE);
1382         printf(": Length=%d, Revision=%d, Checksum=%d,\n",
1383                sdp->Length, sdp->Revision, sdp->Checksum);
1384         printf("\tOEMID=");
1385         acpi_print_string(sdp->OemId, ACPI_OEM_ID_SIZE);
1386         printf(", OEM Table ID=");
1387         acpi_print_string(sdp->OemTableId, ACPI_OEM_TABLE_ID_SIZE);
1388         printf(", OEM Revision=0x%x,\n", sdp->OemRevision);
1389         printf("\tCreator ID=");
1390         acpi_print_string(sdp->AslCompilerId, ACPI_NAME_SIZE);
1391         printf(", Creator Revision=0x%x\n", sdp->AslCompilerRevision);
1392 }
1393
1394 static void
1395 acpi_print_rsdt(ACPI_TABLE_HEADER *rsdp)
1396 {
1397         ACPI_TABLE_RSDT *rsdt;
1398         ACPI_TABLE_XSDT *xsdt;
1399         int     i, entries;
1400
1401         rsdt = (ACPI_TABLE_RSDT *)rsdp;
1402         xsdt = (ACPI_TABLE_XSDT *)rsdp;
1403         printf(BEGIN_COMMENT);
1404         acpi_print_sdt(rsdp);
1405         entries = (rsdp->Length - sizeof(ACPI_TABLE_HEADER)) / addr_size;
1406         printf("\tEntries={ ");
1407         for (i = 0; i < entries; i++) {
1408                 if (i > 0)
1409                         printf(", ");
1410                 if (addr_size == 4)
1411                         printf("0x%08x", le32toh(rsdt->TableOffsetEntry[i]));
1412                 else
1413                         printf("0x%016jx",
1414                             (uintmax_t)le64toh(xsdt->TableOffsetEntry[i]));
1415         }
1416         printf(" }\n");
1417         printf(END_COMMENT);
1418 }
1419
1420 static const char *acpi_pm_profiles[] = {
1421         "Unspecified", "Desktop", "Mobile", "Workstation",
1422         "Enterprise Server", "SOHO Server", "Appliance PC"
1423 };
1424
1425 static void
1426 acpi_print_fadt(ACPI_TABLE_HEADER *sdp)
1427 {
1428         ACPI_TABLE_FADT *fadt;
1429         const char *pm;
1430
1431         fadt = (ACPI_TABLE_FADT *)sdp;
1432         printf(BEGIN_COMMENT);
1433         acpi_print_sdt(sdp);
1434         printf(" \tFACS=0x%x, DSDT=0x%x\n", fadt->Facs,
1435                fadt->Dsdt);
1436         printf("\tINT_MODEL=%s\n", fadt->Model ? "APIC" : "PIC");
1437         if (fadt->PreferredProfile >= sizeof(acpi_pm_profiles) / sizeof(char *))
1438                 pm = "Reserved";
1439         else
1440                 pm = acpi_pm_profiles[fadt->PreferredProfile];
1441         printf("\tPreferred_PM_Profile=%s (%d)\n", pm, fadt->PreferredProfile);
1442         printf("\tSCI_INT=%d\n", fadt->SciInterrupt);
1443         printf("\tSMI_CMD=0x%x, ", fadt->SmiCommand);
1444         printf("ACPI_ENABLE=0x%x, ", fadt->AcpiEnable);
1445         printf("ACPI_DISABLE=0x%x, ", fadt->AcpiDisable);
1446         printf("S4BIOS_REQ=0x%x\n", fadt->S4BiosRequest);
1447         printf("\tPSTATE_CNT=0x%x\n", fadt->PstateControl);
1448         printf("\tPM1a_EVT_BLK=0x%x-0x%x\n",
1449                fadt->Pm1aEventBlock,
1450                fadt->Pm1aEventBlock + fadt->Pm1EventLength - 1);
1451         if (fadt->Pm1bEventBlock != 0)
1452                 printf("\tPM1b_EVT_BLK=0x%x-0x%x\n",
1453                        fadt->Pm1bEventBlock,
1454                        fadt->Pm1bEventBlock + fadt->Pm1EventLength - 1);
1455         printf("\tPM1a_CNT_BLK=0x%x-0x%x\n",
1456                fadt->Pm1aControlBlock,
1457                fadt->Pm1aControlBlock + fadt->Pm1ControlLength - 1);
1458         if (fadt->Pm1bControlBlock != 0)
1459                 printf("\tPM1b_CNT_BLK=0x%x-0x%x\n",
1460                        fadt->Pm1bControlBlock,
1461                        fadt->Pm1bControlBlock + fadt->Pm1ControlLength - 1);
1462         if (fadt->Pm2ControlBlock != 0)
1463                 printf("\tPM2_CNT_BLK=0x%x-0x%x\n",
1464                        fadt->Pm2ControlBlock,
1465                        fadt->Pm2ControlBlock + fadt->Pm2ControlLength - 1);
1466         printf("\tPM_TMR_BLK=0x%x-0x%x\n",
1467                fadt->PmTimerBlock,
1468                fadt->PmTimerBlock + fadt->PmTimerLength - 1);
1469         if (fadt->Gpe0Block != 0)
1470                 printf("\tGPE0_BLK=0x%x-0x%x\n",
1471                        fadt->Gpe0Block,
1472                        fadt->Gpe0Block + fadt->Gpe0BlockLength - 1);
1473         if (fadt->Gpe1Block != 0)
1474                 printf("\tGPE1_BLK=0x%x-0x%x, GPE1_BASE=%d\n",
1475                        fadt->Gpe1Block,
1476                        fadt->Gpe1Block + fadt->Gpe1BlockLength - 1,
1477                        fadt->Gpe1Base);
1478         if (fadt->CstControl != 0)
1479                 printf("\tCST_CNT=0x%x\n", fadt->CstControl);
1480         printf("\tP_LVL2_LAT=%d us, P_LVL3_LAT=%d us\n",
1481                fadt->C2Latency, fadt->C3Latency);
1482         printf("\tFLUSH_SIZE=%d, FLUSH_STRIDE=%d\n",
1483                fadt->FlushSize, fadt->FlushStride);
1484         printf("\tDUTY_OFFSET=%d, DUTY_WIDTH=%d\n",
1485                fadt->DutyOffset, fadt->DutyWidth);
1486         printf("\tDAY_ALRM=%d, MON_ALRM=%d, CENTURY=%d\n",
1487                fadt->DayAlarm, fadt->MonthAlarm, fadt->Century);
1488
1489 #define PRINTFLAG(var, flag)    printflag((var), ACPI_FADT_## flag, #flag)
1490
1491         printf("\tIAPC_BOOT_ARCH=");
1492         PRINTFLAG(fadt->BootFlags, LEGACY_DEVICES);
1493         PRINTFLAG(fadt->BootFlags, 8042);
1494         PRINTFLAG(fadt->BootFlags, NO_VGA);
1495         PRINTFLAG(fadt->BootFlags, NO_MSI);
1496         PRINTFLAG(fadt->BootFlags, NO_ASPM);
1497         PRINTFLAG(fadt->BootFlags, NO_CMOS_RTC);
1498         PRINTFLAG_END();
1499
1500         printf("\tFlags=");
1501         PRINTFLAG(fadt->Flags, WBINVD);
1502         PRINTFLAG(fadt->Flags, WBINVD_FLUSH);
1503         PRINTFLAG(fadt->Flags, C1_SUPPORTED);
1504         PRINTFLAG(fadt->Flags, C2_MP_SUPPORTED);
1505         PRINTFLAG(fadt->Flags, POWER_BUTTON);
1506         PRINTFLAG(fadt->Flags, SLEEP_BUTTON);
1507         PRINTFLAG(fadt->Flags, FIXED_RTC);
1508         PRINTFLAG(fadt->Flags, S4_RTC_WAKE);
1509         PRINTFLAG(fadt->Flags, 32BIT_TIMER);
1510         PRINTFLAG(fadt->Flags, DOCKING_SUPPORTED);
1511         PRINTFLAG(fadt->Flags, RESET_REGISTER);
1512         PRINTFLAG(fadt->Flags, SEALED_CASE);
1513         PRINTFLAG(fadt->Flags, HEADLESS);
1514         PRINTFLAG(fadt->Flags, SLEEP_TYPE);
1515         PRINTFLAG(fadt->Flags, PCI_EXPRESS_WAKE);
1516         PRINTFLAG(fadt->Flags, PLATFORM_CLOCK);
1517         PRINTFLAG(fadt->Flags, S4_RTC_VALID);
1518         PRINTFLAG(fadt->Flags, REMOTE_POWER_ON);
1519         PRINTFLAG(fadt->Flags, APIC_CLUSTER);
1520         PRINTFLAG(fadt->Flags, APIC_PHYSICAL);
1521         PRINTFLAG(fadt->Flags, HW_REDUCED);
1522         PRINTFLAG(fadt->Flags, LOW_POWER_S0);
1523         PRINTFLAG_END();
1524
1525 #undef PRINTFLAG
1526
1527         if (fadt->Flags & ACPI_FADT_RESET_REGISTER) {
1528                 printf("\tRESET_REG=");
1529                 acpi_print_gas(&fadt->ResetRegister);
1530                 printf(", RESET_VALUE=%#x\n", fadt->ResetValue);
1531         }
1532         if (acpi_get_fadt_revision(fadt) > 1) {
1533                 printf("\tX_FACS=0x%016jx, ", (uintmax_t)fadt->XFacs);
1534                 printf("X_DSDT=0x%016jx\n", (uintmax_t)fadt->XDsdt);
1535                 printf("\tX_PM1a_EVT_BLK=");
1536                 acpi_print_gas(&fadt->XPm1aEventBlock);
1537                 if (fadt->XPm1bEventBlock.Address != 0) {
1538                         printf("\n\tX_PM1b_EVT_BLK=");
1539                         acpi_print_gas(&fadt->XPm1bEventBlock);
1540                 }
1541                 printf("\n\tX_PM1a_CNT_BLK=");
1542                 acpi_print_gas(&fadt->XPm1aControlBlock);
1543                 if (fadt->XPm1bControlBlock.Address != 0) {
1544                         printf("\n\tX_PM1b_CNT_BLK=");
1545                         acpi_print_gas(&fadt->XPm1bControlBlock);
1546                 }
1547                 if (fadt->XPm2ControlBlock.Address != 0) {
1548                         printf("\n\tX_PM2_CNT_BLK=");
1549                         acpi_print_gas(&fadt->XPm2ControlBlock);
1550                 }
1551                 printf("\n\tX_PM_TMR_BLK=");
1552                 acpi_print_gas(&fadt->XPmTimerBlock);
1553                 if (fadt->XGpe0Block.Address != 0) {
1554                         printf("\n\tX_GPE0_BLK=");
1555                         acpi_print_gas(&fadt->XGpe0Block);
1556                 }
1557                 if (fadt->XGpe1Block.Address != 0) {
1558                         printf("\n\tX_GPE1_BLK=");
1559                         acpi_print_gas(&fadt->XGpe1Block);
1560                 }
1561                 printf("\n");
1562         }
1563
1564         printf(END_COMMENT);
1565 }
1566
1567 static void
1568 acpi_print_facs(ACPI_TABLE_FACS *facs)
1569 {
1570         printf(BEGIN_COMMENT);
1571         printf("  FACS:\tLength=%u, ", facs->Length);
1572         printf("HwSig=0x%08x, ", facs->HardwareSignature);
1573         printf("Firm_Wake_Vec=0x%08x\n", facs->FirmwareWakingVector);
1574
1575         printf("\tGlobal_Lock=");
1576         if (facs->GlobalLock != 0) {
1577                 if (facs->GlobalLock & ACPI_GLOCK_PENDING)
1578                         printf("PENDING,");
1579                 if (facs->GlobalLock & ACPI_GLOCK_OWNED)
1580                         printf("OWNED");
1581         }
1582         printf("\n");
1583
1584         printf("\tFlags=");
1585         if (facs->Flags & ACPI_FACS_S4_BIOS_PRESENT)
1586                 printf("S4BIOS");
1587         printf("\n");
1588
1589         if (facs->XFirmwareWakingVector != 0)
1590                 printf("\tX_Firm_Wake_Vec=%016jx\n",
1591                     (uintmax_t)facs->XFirmwareWakingVector);
1592         printf("\tVersion=%u\n", facs->Version);
1593
1594         printf(END_COMMENT);
1595 }
1596
1597 static void
1598 acpi_print_dsdt(ACPI_TABLE_HEADER *dsdp)
1599 {
1600         printf(BEGIN_COMMENT);
1601         acpi_print_sdt(dsdp);
1602         printf(END_COMMENT);
1603 }
1604
1605 int
1606 acpi_checksum(void *p, size_t length)
1607 {
1608         uint8_t *bp;
1609         uint8_t sum;
1610
1611         bp = p;
1612         sum = 0;
1613         while (length--)
1614                 sum += *bp++;
1615
1616         return (sum);
1617 }
1618
1619 static ACPI_TABLE_HEADER *
1620 acpi_map_sdt(vm_offset_t pa)
1621 {
1622         ACPI_TABLE_HEADER *sp;
1623
1624         sp = acpi_map_physical(pa, sizeof(ACPI_TABLE_HEADER));
1625         sp = acpi_map_physical(pa, sp->Length);
1626         return (sp);
1627 }
1628
1629 static void
1630 acpi_print_rsd_ptr(ACPI_TABLE_RSDP *rp)
1631 {
1632         printf(BEGIN_COMMENT);
1633         printf("  RSD PTR: OEM=");
1634         acpi_print_string(rp->OemId, ACPI_OEM_ID_SIZE);
1635         printf(", ACPI_Rev=%s (%d)\n", rp->Revision < 2 ? "1.0x" : "2.0x",
1636                rp->Revision);
1637         if (rp->Revision < 2) {
1638                 printf("\tRSDT=0x%08x, cksum=%u\n", rp->RsdtPhysicalAddress,
1639                     rp->Checksum);
1640         } else {
1641                 printf("\tXSDT=0x%016jx, length=%u, cksum=%u\n",
1642                     (uintmax_t)rp->XsdtPhysicalAddress, rp->Length,
1643                     rp->ExtendedChecksum);
1644         }
1645         printf(END_COMMENT);
1646 }
1647
1648 static void
1649 acpi_handle_rsdt(ACPI_TABLE_HEADER *rsdp)
1650 {
1651         ACPI_TABLE_HEADER *sdp;
1652         ACPI_TABLE_RSDT *rsdt;
1653         ACPI_TABLE_XSDT *xsdt;
1654         vm_offset_t addr;
1655         int entries, i;
1656
1657         acpi_print_rsdt(rsdp);
1658         rsdt = (ACPI_TABLE_RSDT *)rsdp;
1659         xsdt = (ACPI_TABLE_XSDT *)rsdp;
1660         entries = (rsdp->Length - sizeof(ACPI_TABLE_HEADER)) / addr_size;
1661         for (i = 0; i < entries; i++) {
1662                 if (addr_size == 4)
1663                         addr = le32toh(rsdt->TableOffsetEntry[i]);
1664                 else
1665                         addr = le64toh(xsdt->TableOffsetEntry[i]);
1666                 if (addr == 0)
1667                         continue;
1668                 sdp = (ACPI_TABLE_HEADER *)acpi_map_sdt(addr);
1669                 if (acpi_checksum(sdp, sdp->Length)) {
1670                         warnx("RSDT entry %d (sig %.4s) is corrupt", i,
1671                             sdp->Signature);
1672                         continue;
1673                 }
1674                 if (!memcmp(sdp->Signature, ACPI_SIG_FADT, 4))
1675                         acpi_handle_fadt(sdp);
1676                 else if (!memcmp(sdp->Signature, ACPI_SIG_MADT, 4))
1677                         acpi_handle_madt(sdp);
1678                 else if (!memcmp(sdp->Signature, ACPI_SIG_HPET, 4))
1679                         acpi_handle_hpet(sdp);
1680                 else if (!memcmp(sdp->Signature, ACPI_SIG_ECDT, 4))
1681                         acpi_handle_ecdt(sdp);
1682                 else if (!memcmp(sdp->Signature, ACPI_SIG_MCFG, 4))
1683                         acpi_handle_mcfg(sdp);
1684                 else if (!memcmp(sdp->Signature, ACPI_SIG_SLIT, 4))
1685                         acpi_handle_slit(sdp);
1686                 else if (!memcmp(sdp->Signature, ACPI_SIG_SRAT, 4))
1687                         acpi_handle_srat(sdp);
1688                 else if (!memcmp(sdp->Signature, ACPI_SIG_TCPA, 4))
1689                         acpi_handle_tcpa(sdp);
1690                 else if (!memcmp(sdp->Signature, ACPI_SIG_DMAR, 4))
1691                         acpi_handle_dmar(sdp);
1692                 else if (!memcmp(sdp->Signature, ACPI_SIG_NFIT, 4))
1693                         acpi_handle_nfit(sdp);
1694                 else if (!memcmp(sdp->Signature, ACPI_SIG_WDDT, 4))
1695                         acpi_handle_wddt(sdp);
1696                 else {
1697                         printf(BEGIN_COMMENT);
1698                         acpi_print_sdt(sdp);
1699                         printf(END_COMMENT);
1700                 }
1701         }
1702 }
1703
1704 ACPI_TABLE_HEADER *
1705 sdt_load_devmem(void)
1706 {
1707         ACPI_TABLE_RSDP *rp;
1708         ACPI_TABLE_HEADER *rsdp;
1709
1710         rp = acpi_find_rsd_ptr();
1711         if (!rp)
1712                 errx(1, "Can't find ACPI information");
1713
1714         if (tflag)
1715                 acpi_print_rsd_ptr(rp);
1716         if (rp->Revision < 2) {
1717                 rsdp = (ACPI_TABLE_HEADER *)acpi_map_sdt(rp->RsdtPhysicalAddress);
1718                 if (memcmp(rsdp->Signature, "RSDT", 4) != 0 ||
1719                     acpi_checksum(rsdp, rsdp->Length) != 0)
1720                         errx(1, "RSDT is corrupted");
1721                 addr_size = sizeof(uint32_t);
1722         } else {
1723                 rsdp = (ACPI_TABLE_HEADER *)acpi_map_sdt(rp->XsdtPhysicalAddress);
1724                 if (memcmp(rsdp->Signature, "XSDT", 4) != 0 ||
1725                     acpi_checksum(rsdp, rsdp->Length) != 0)
1726                         errx(1, "XSDT is corrupted");
1727                 addr_size = sizeof(uint64_t);
1728         }
1729         return (rsdp);
1730 }
1731
1732 /* Write the DSDT to a file, concatenating any SSDTs (if present). */
1733 static int
1734 write_dsdt(int fd, ACPI_TABLE_HEADER *rsdt, ACPI_TABLE_HEADER *dsdt)
1735 {
1736         ACPI_TABLE_HEADER sdt;
1737         ACPI_TABLE_HEADER *ssdt;
1738         uint8_t sum;
1739
1740         /* Create a new checksum to account for the DSDT and any SSDTs. */
1741         sdt = *dsdt;
1742         if (rsdt != NULL) {
1743                 sdt.Checksum = 0;
1744                 sum = acpi_checksum(dsdt + 1, dsdt->Length -
1745                     sizeof(ACPI_TABLE_HEADER));
1746                 ssdt = sdt_from_rsdt(rsdt, ACPI_SIG_SSDT, NULL);
1747                 while (ssdt != NULL) {
1748                         sdt.Length += ssdt->Length - sizeof(ACPI_TABLE_HEADER);
1749                         sum += acpi_checksum(ssdt + 1,
1750                             ssdt->Length - sizeof(ACPI_TABLE_HEADER));
1751                         ssdt = sdt_from_rsdt(rsdt, ACPI_SIG_SSDT, ssdt);
1752                 }
1753                 sum += acpi_checksum(&sdt, sizeof(ACPI_TABLE_HEADER));
1754                 sdt.Checksum -= sum;
1755         }
1756
1757         /* Write out the DSDT header and body. */
1758         write(fd, &sdt, sizeof(ACPI_TABLE_HEADER));
1759         write(fd, dsdt + 1, dsdt->Length - sizeof(ACPI_TABLE_HEADER));
1760
1761         /* Write out any SSDTs (if present.) */
1762         if (rsdt != NULL) {
1763                 ssdt = sdt_from_rsdt(rsdt, "SSDT", NULL);
1764                 while (ssdt != NULL) {
1765                         write(fd, ssdt + 1, ssdt->Length -
1766                             sizeof(ACPI_TABLE_HEADER));
1767                         ssdt = sdt_from_rsdt(rsdt, "SSDT", ssdt);
1768                 }
1769         }
1770         return (0);
1771 }
1772
1773 void
1774 dsdt_save_file(char *outfile, ACPI_TABLE_HEADER *rsdt, ACPI_TABLE_HEADER *dsdp)
1775 {
1776         int     fd;
1777         mode_t  mode;
1778
1779         assert(outfile != NULL);
1780         mode = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH;
1781         fd = open(outfile, O_WRONLY | O_CREAT | O_TRUNC, mode);
1782         if (fd == -1) {
1783                 perror("dsdt_save_file");
1784                 return;
1785         }
1786         write_dsdt(fd, rsdt, dsdp);
1787         close(fd);
1788 }
1789
1790 void
1791 aml_disassemble(ACPI_TABLE_HEADER *rsdt, ACPI_TABLE_HEADER *dsdp)
1792 {
1793         char buf[PATH_MAX], tmpstr[PATH_MAX], wrkdir[PATH_MAX];
1794         const char *iname = "/acpdump.din";
1795         const char *oname = "/acpdump.dsl";
1796         const char *tmpdir;
1797         FILE *fp;
1798         size_t len;
1799         int fd, status;
1800         pid_t pid;
1801
1802         tmpdir = getenv("TMPDIR");
1803         if (tmpdir == NULL)
1804                 tmpdir = _PATH_TMP;
1805         if (realpath(tmpdir, buf) == NULL) {
1806                 perror("realpath tmp dir");
1807                 return;
1808         }
1809         len = sizeof(wrkdir) - strlen(iname);
1810         if ((size_t)snprintf(wrkdir, len, "%s/acpidump.XXXXXX", buf) > len-1 ) {
1811                 fprintf(stderr, "$TMPDIR too long\n");
1812                 return;
1813         }
1814         if  (mkdtemp(wrkdir) == NULL) {
1815                 perror("mkdtemp tmp working dir");
1816                 return;
1817         }
1818         len = (size_t)snprintf(tmpstr, sizeof(tmpstr), "%s%s", wrkdir, iname);
1819         assert(len <= sizeof(tmpstr) - 1);
1820         fd = open(tmpstr, O_CREAT | O_WRONLY, S_IRUSR | S_IWUSR);
1821         if (fd < 0) {
1822                 perror("iasl tmp file");
1823                 return;
1824         }
1825         write_dsdt(fd, rsdt, dsdp);
1826         close(fd);
1827
1828         /* Run iasl -d on the temp file */
1829         if ((pid = fork()) == 0) {
1830                 close(STDOUT_FILENO);
1831                 if (vflag == 0)
1832                         close(STDERR_FILENO);
1833                 execl("/usr/sbin/iasl", "iasl", "-d", tmpstr, NULL);
1834                 err(1, "exec");
1835         }
1836         if (pid > 0)
1837                 wait(&status);
1838         if (unlink(tmpstr) < 0) {
1839                 perror("unlink");
1840                 goto out;
1841         }
1842         if (pid < 0) {
1843                 perror("fork");
1844                 goto out;
1845         }
1846         if (status != 0) {
1847                 fprintf(stderr, "iast exit status = %d\n", status);
1848         }
1849
1850         /* Dump iasl's output to stdout */
1851         len = (size_t)snprintf(tmpstr, sizeof(tmpstr), "%s%s", wrkdir, oname);
1852         assert(len <= sizeof(tmpstr) - 1);
1853         fp = fopen(tmpstr, "r");
1854         if (unlink(tmpstr) < 0) {
1855                 perror("unlink");
1856                 goto out;
1857         }
1858         if (fp == NULL) {
1859                 perror("iasl tmp file (read)");
1860                 goto out;
1861         }
1862         while ((len = fread(buf, 1, sizeof(buf), fp)) > 0)
1863                 fwrite(buf, 1, len, stdout);
1864         fclose(fp);
1865
1866     out:
1867         if (rmdir(wrkdir) < 0)
1868                 perror("rmdir");
1869 }
1870
1871 void
1872 sdt_print_all(ACPI_TABLE_HEADER *rsdp)
1873 {
1874         acpi_handle_rsdt(rsdp);
1875 }
1876
1877 /* Fetch a table matching the given signature via the RSDT. */
1878 ACPI_TABLE_HEADER *
1879 sdt_from_rsdt(ACPI_TABLE_HEADER *rsdp, const char *sig, ACPI_TABLE_HEADER *last)
1880 {
1881         ACPI_TABLE_HEADER *sdt;
1882         ACPI_TABLE_RSDT *rsdt;
1883         ACPI_TABLE_XSDT *xsdt;
1884         vm_offset_t addr;
1885         int entries, i;
1886
1887         rsdt = (ACPI_TABLE_RSDT *)rsdp;
1888         xsdt = (ACPI_TABLE_XSDT *)rsdp;
1889         entries = (rsdp->Length - sizeof(ACPI_TABLE_HEADER)) / addr_size;
1890         for (i = 0; i < entries; i++) {
1891                 if (addr_size == 4)
1892                         addr = le32toh(rsdt->TableOffsetEntry[i]);
1893                 else
1894                         addr = le64toh(xsdt->TableOffsetEntry[i]);
1895                 if (addr == 0)
1896                         continue;
1897                 sdt = (ACPI_TABLE_HEADER *)acpi_map_sdt(addr);
1898                 if (last != NULL) {
1899                         if (sdt == last)
1900                                 last = NULL;
1901                         continue;
1902                 }
1903                 if (memcmp(sdt->Signature, sig, strlen(sig)))
1904                         continue;
1905                 if (acpi_checksum(sdt, sdt->Length))
1906                         errx(1, "RSDT entry %d is corrupt", i);
1907                 return (sdt);
1908         }
1909
1910         return (NULL);
1911 }
1912
1913 ACPI_TABLE_HEADER *
1914 dsdt_from_fadt(ACPI_TABLE_FADT *fadt)
1915 {
1916         ACPI_TABLE_HEADER       *sdt;
1917
1918         /* Use the DSDT address if it is version 1, otherwise use XDSDT. */
1919         if (acpi_get_fadt_revision(fadt) == 1)
1920                 sdt = (ACPI_TABLE_HEADER *)acpi_map_sdt(fadt->Dsdt);
1921         else
1922                 sdt = (ACPI_TABLE_HEADER *)acpi_map_sdt(fadt->XDsdt);
1923         if (acpi_checksum(sdt, sdt->Length))
1924                 errx(1, "DSDT is corrupt\n");
1925         return (sdt);
1926 }