coreboot-kgpe-d16/util/getpir/getpir.c

190 lines
6.2 KiB
C
Raw Normal View History

/* getpir.c : This software is released under GPL
* For coreboot use only
* Aug 26 2001 , Nikolai Vladychevski, <niko@isl.net.mx>
* 2007.04.09 Jeremy Jackson <jerj@coplanar.net>
* updated for amd64 and general 64 bit portability
* 2010.04.24 Marc Bertens <mbertens@xs4all.nl>
* Added functionality to read a image file for checking the checksum of the PIR
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/mman.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "pirq_routing.h"
#include "checksum.h"
#include "code_gen.h"
#if defined (__sun) && (defined(__i386) || defined(__amd64))
# define MEM_DEV "/dev/xsvc"
#else
# define MEM_DEV "/dev/mem"
#endif
/**
* The probe_table() is now called with the pointer to the memory,
* this is to handle both the assessing memory and a file.
*
* This function now dumps the table found to the stdout, with
* descriptions, it is special handy when building a PIRQ table
* for a board to check the checksum.
*/
static struct irq_routing_table *probe_table(char* ptr)
{
/**
* Signature to search for $PIR<2-byte-version>
*
* this is to be sure that we find the correct table.
*/
char signature[] = "$PIR\x00\x01";
/** cast the pointer */
struct irq_routing_table *rt = (struct irq_routing_table *)ptr;
int size = 16;
int checksum_result;
do {
/** find the PIRQ table */
rt = (struct irq_routing_table *) memmem(ptr + size, 16, signature, 6);
if (rt != NULL) {
/** found the table */
int i, ts = (rt->size - 32) / 16;
struct irq_info *se_arr;
se_arr = (struct irq_info *) ((char *) rt + 32);
/** Dump the table information to the stdout */
printf("Found PCI IRQ routing table signature at %p.\n", (void *) ((char *) rt - ptr + 0xf0000));
printf("SIGNATURE = %s\n", (char*)&rt->signature);
printf("VERSION = %04x\n", rt->version);
printf("SIZE = %i\n", rt->size);
printf("MAX_DEVICES_ON_BUS = 32 + 16 * %d\n", ts);
printf("INT_ROUTER_BUS = 0x%02x\n", rt->rtr_bus);
printf("INT_ROUTER DEVICE = (0x%02x << 3) | 0x%01x\n", rt->rtr_devfn >> 3, rt->rtr_devfn & 7);
printf("IRQ_DEVOTED_TO_PCI = %#x\n", rt->exclusive_irqs);
printf("VENDOR = %#x\n", rt->rtr_vendor);
printf("DEVICE = %#x\n", rt->rtr_device);
printf("MINIPORT = %#x\n", rt->miniport_data);
printf("CHECKSUM = %#x\n", rt->checksum);
printf("\tbus , dev | fn, {link, bitmap}, {link, bitmap}, {link, bitmap}, {link, bitmap}, slot, rfu\n");
for (i = 0; i < ts; i++) {
printf("\t0x%02x, (0x%02x << 3) | 0x%01x, {{0x%02x, 0x%04x}, {0x%02x, 0x%04x}, {0x%02x, 0x%04x}, {0x%02x, 0x%04x}}, 0x%x, 0x%x},\n",
(se_arr+i)->bus, (se_arr+i)->devfn >> 3,
(se_arr+i)->devfn & 7, (se_arr+i)->irq[0].link,
(se_arr+i)->irq[0].bitmap, (se_arr+i)->irq[1].link,
(se_arr+i)->irq[1].bitmap, (se_arr+i)->irq[2].link,
(se_arr+i)->irq[2].bitmap, (se_arr+i)->irq[3].link,
(se_arr+i)->irq[3].bitmap, (se_arr+i)->slot,
(se_arr+i)->rfu);
}
/** A table should not be over 0x400 bytes */
if (rt->size > 0x400) {
return NULL;
}
printf("Validating...\n");
/** Calculate the checksum value */
checksum_result = calc_checksum(rt);
/** Show the calculatedchecksum value */
printf("CHECKSUM = %#x\n", 0x100-((checksum_result - rt->checksum) & 0xFF));
/** and the result of the calculation */
if (!checksum_result) {
printf("checksum is ok.\n");
break;
} else {
printf("checksum is wrong.\n");
}
}
size += 16;
} while (size < 0xFFFF);
if (size >= 0xFFFF) {
/** When the functions comes here there is no PIRQ table found. */
printf("No PCI IRQ routing table signature found.\n");
return NULL;
}
return rt;
}
int main(int argc, char* argv[])
{
char* ptr;
int fd_mem = -1;
struct irq_routing_table* rt = NULL;
void* bios_image = NULL;
if ( argc > 1 )
{
/** there a paramater passed to the program, assume that it is a menory file */
printf("Opening memory image file '%s'\n", argv[1]);
/** Open the file */
fd_mem = open(argv[1], O_RDONLY);
if (fd_mem > 0) {
/** get tyhe size of the file */
int file_size = lseek(fd_mem, 0, SEEK_END);
printf("Memory image '%i'\n", file_size);
/** get a memory block for it. */
bios_image = malloc(file_size);
if (bios_image) {
/** Fill the created buffer */
lseek(fd_mem, 0, SEEK_SET);
read(fd_mem, bios_image, file_size);
/** set the pointer for the probe function */
ptr = (char*)bios_image;
} else {
/* no memory available ? */
perror("Failed to open imagefile\n");
return (-3);
}
} else {
/** An error occourd, just exit with a message */
perror("Failed to open imagefile");
return (-2);
}
} else {
/** No paramaters means that the program will access the system memory */
printf("Accessing memory\n");
if (getuid()) {
/** i'm not root message !!!! */
fprintf(stderr, "Run me as root, I need access to " MEM_DEV ".\n");
}
/** open the system memory */
fd_mem = open(MEM_DEV, O_RDONLY);
if (fd_mem < 0) {
/** could not open the system memory, exit with a message */
perror("Could not open " MEM_DEV ":");
exit(1);
}
printf("Probing PIRQ table in memory.\n");
ptr = mmap(0, 0x10000, PROT_READ, MAP_SHARED, fd_mem, (off_t)0xf0000);
if (ptr == MAP_FAILED) {
/** could not map the system memory, exit with a message */
perror("Mapping system memory failed: ");
close(fd_mem);
return (1);
}
}
if (ptr) {
/** now do the actual probe function */
rt = probe_table(ptr);
if (rt != NULL && bios_image == NULL) {
/** when probing system memory we write the 'irq_tables.c' code file */
printf("Creating irq_tables.c ...\n");
code_gen("irq_tables.c", rt);
printf("Done, you can move the file to the coreboot tree now.\n");
}
} else {
printf("invalid memory pointer\n");
}
if (bios_image) {
/** when we are reading from a file the memory must be released */
free(bios_image);
} else {
/** when reading from the system memory, it must be unmapped */
munmap(ptr, 0x10000);
}
/** Close the file handle */
close(fd_mem);
/** return 0 as OK ) */
return 0;
}