/* * viatool - dump all registers on an Intel CPU + chipset based system. * * Copyright (C) 2008-2010 by coresystems GmbH * written by Stefan Reinauer <stepan@coresystems.de> * Copyright (C) 2009 Carl-Daniel Hailfinger * Copyright (C) 2013 Alexandru Gagniuc * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; version 2 of the License. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. */ #include <stdio.h> #include <stdlib.h> #include <inttypes.h> #include <getopt.h> #include <fcntl.h> #include <sys/mman.h> #include <unistd.h> #include "viatool.h" #ifdef __NetBSD__ #include <machine/sysarch.h> #endif /* * http://pci-ids.ucw.cz/read/PC/8086 * http://en.wikipedia.org/wiki/Intel_Tick-Tock * http://en.wikipedia.org/wiki/List_of_Intel_chipsets * http://en.wikipedia.org/wiki/Intel_Xeon_chipsets */ static const struct { uint16_t vendor_id, device_id; char *name; } supported_chips_list[] = { { PCI_VENDOR_ID_VIA, PCI_DEVICE_ID_VIA_VX900_SATA, "VX900 SATA"}, /* Host bridges/DRAM controllers (Northbridges) */ { PCI_VENDOR_ID_VIA, PCI_DEVICE_ID_VIA_VX900, "VX900"}, /* Southbridges (LPC controllers) */ { PCI_VENDOR_ID_VIA, PCI_DEVICE_ID_VIA_VX900_LPC, "VX900" }, }; #ifndef __DARWIN__ static int fd_mem; void *map_physical(uint64_t phys_addr, size_t len) { void *virt_addr; virt_addr = mmap(0, len, PROT_WRITE | PROT_READ, MAP_SHARED, fd_mem, (off_t) phys_addr); if (virt_addr == MAP_FAILED) { printf("Error mapping physical memory 0x%08" PRIx64 "[0x%zx]\n", phys_addr, len); return NULL; } return virt_addr; } void unmap_physical(void *virt_addr, size_t len) { munmap(virt_addr, len); } #endif void print_version(void) { printf("inteltool v%s -- ", VIATOOL_VERSION); printf("Copyright (C) 2013 Alexandru Gagniuc\n\n"); printf( "This program is free software: you can redistribute it and/or modify\n" "it under the terms of the GNU General Public License as published by\n" "the Free Software Foundation, version 2 of the License.\n\n" "This program is distributed in the hope that it will be useful,\n" "but WITHOUT ANY WARRANTY; without even the implied warranty of\n" "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n" "GNU General Public License for more details.\n\n"); } void print_usage(const char *name) { printf("usage: %s [-vh?gGrpmedPMa]\n", name); printf("\n" " -v | --version: print the version\n" " -h | --help: print this help\n\n" " -M | --msrs: dump CPU MSRs\n" " -a | --all: dump all known registers\n" " -q | --quirks: dump hierarchical configs\n" "\n"); exit(1); } int main(int argc, char *argv[]) { struct pci_access *pacc; struct pci_dev *sb = NULL, *nb, *dev; int i, opt, option_index = 0; unsigned int id; char *sbname = "unknown", *nbname = "unknown"; int dump_coremsrs = 0, dump_quirks = 0; static struct option long_options[] = { {"version", 0, 0, 'v'}, {"help", 0, 0, 'h'}, {"mchbar", 0, 0, 'm'}, {"msrs", 0, 0, 'M'}, {"quirks", 0, 0, 'q'}, {"all", 0, 0, 'a'}, {0, 0, 0, 0} }; while ((opt = getopt_long(argc, argv, "vh?gGrpmedPMaA", long_options, &option_index)) != EOF) { switch (opt) { case 'v': print_version(); exit(0); break; case 'M': dump_coremsrs = 1; break; case 'q': dump_quirks = 1; break; case 'a': dump_coremsrs = 1; dump_quirks = 1; break; case 'h': case '?': default: print_usage(argv[0]); exit(0); break; } } #if defined(__FreeBSD__) if (open("/dev/io", O_RDWR) < 0) { perror("/dev/io"); #elif defined(__NetBSD__) # ifdef __i386__ if (i386_iopl(3)) { perror("iopl"); # else if (x86_64_iopl(3)) { perror("iopl"); # endif #else if (iopl(3)) { perror("iopl"); #endif printf("You need to be root.\n"); exit(1); } #ifndef __DARWIN__ if ((fd_mem = open("/dev/mem", O_RDWR)) < 0) { perror("Can not open /dev/mem"); exit(1); } #endif pacc = pci_alloc(); pci_init(pacc); pci_scan_bus(pacc); /* Find the required devices */ for (dev = pacc->devices; dev; dev = dev->next) { pci_fill_info(dev, PCI_FILL_CLASS); /* The ISA/LPC bridge can be 0x1f, 0x07, or 0x04 so we probe. */ if (dev->device_class == 0x0601) { /* ISA/LPC bridge */ if (sb == NULL) sb = dev; else fprintf(stderr, "Multiple devices with class ID" " 0x0601, using %02x%02x:%02x.%02x\n", dev->domain, dev->bus, dev->dev, dev->func); } } if (!sb) { printf("No southbridge found.\n"); exit(1); } pci_fill_info(sb, PCI_FILL_IDENT|PCI_FILL_BASES|PCI_FILL_SIZES|PCI_FILL_CLASS); if (sb->vendor_id != PCI_VENDOR_ID_VIA) { printf("Not a VIA southbridge.\n"); exit(1); } nb = pci_get_dev(pacc, 0, 0, 0x00, 0); if (!nb) { printf("No northbridge found.\n"); exit(1); } pci_fill_info(nb, PCI_FILL_IDENT|PCI_FILL_BASES|PCI_FILL_SIZES|PCI_FILL_CLASS); if (nb->vendor_id != PCI_VENDOR_ID_VIA) { printf("Not a VIA northbridge.\n"); exit(1); } id = cpuid(1); /* Intel has suggested applications to display the family of a CPU as * the sum of the "Family" and the "Extended Family" fields shown * above, and the model as the sum of the "Model" and the 4-bit * left-shifted "Extended Model" fields. * http://download.intel.com/design/processor/applnots/24161832.pdf */ printf("CPU: Processor Type: %x, Family %x, Model %x, Stepping %x\n", (id >> 12) & 0x3, ((id >> 8) & 0xf) + ((id >> 20) & 0xff), ((id >> 12) & 0xf0) + ((id >> 4) & 0xf), (id & 0xf)); /* Determine names */ for (i = 0; i < ARRAY_SIZE(supported_chips_list); i++) if (nb->device_id == supported_chips_list[i].device_id) nbname = supported_chips_list[i].name; for (i = 0; i < ARRAY_SIZE(supported_chips_list); i++) if (sb->device_id == supported_chips_list[i].device_id) sbname = supported_chips_list[i].name; printf("Northbridge: %04x:%04x (%s)\n", nb->vendor_id, nb->device_id, nbname); printf("Southbridge: %04x:%04x (%s)\n", sb->vendor_id, sb->device_id, sbname); /* Now do the deed */ if (dump_coremsrs) { print_intel_core_msrs(); printf("\n\n"); } if (dump_quirks) { print_quirks_north(nb, pacc); print_quirks_south(sb, pacc); } /* Clean up */ pci_free_dev(nb); // pci_free_dev(sb); // TODO: glibc detected "double free or corruption" pci_cleanup(pacc); return 0; }