1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
/* 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;
}
|
