src/arch/i386/boot/coreboot_table.c

   1 #include <console/console.h>
   2 #include <ip_checksum.h>
   3 #include <boot/coreboot_tables.h>
   4 #include "coreboot_table.h"
   5 #include <string.h>
   6 #include <version.h>
   7 #include <device/device.h>
   8 #include <stdlib.h>
   9
  10 struct lb_header *lb_table_init(unsigned long addr)
  11 {
  12         struct lb_header *header;
  13
  14         /* 16 byte align the address */
  15         addr += 15;
  16         addr &= ~15;
  17
  18         header = (void *)addr;
  19         header->signature[0] = 'L';
  20         header->signature[1] = 'B';
  21         header->signature[2] = 'I';
  22         header->signature[3] = 'O';
  23         header->header_bytes = sizeof(*header);
  24         header->header_checksum = 0;
  25         header->table_bytes = 0;
  26         header->table_checksum = 0;
  27         header->table_entries = 0;
  28         return header;
  29 }
  30
  31 struct lb_record *lb_first_record(struct lb_header *header)
  32 {
  33         struct lb_record *rec;
  34         rec = (void *)(((char *)header) + sizeof(*header));
  35         return rec;
  36 }
  37
  38 struct lb_record *lb_last_record(struct lb_header *header)
  39 {
  40         struct lb_record *rec;
  41         rec = (void *)(((char *)header) + sizeof(*header) + header->table_bytes);
  42         return rec;
  43 }
  44
  45 struct lb_record *lb_next_record(struct lb_record *rec)
  46 {
  47         rec = (void *)(((char *)rec) + rec->size);
  48         return rec;
  49 }
  50
  51 struct lb_record *lb_new_record(struct lb_header *header)
  52 {
  53         struct lb_record *rec;
  54         rec = lb_last_record(header);
  55         if (header->table_entries) {
  56                 header->table_bytes += rec->size;
  57         }
  58         rec = lb_last_record(header);
  59         header->table_entries++;
  60         rec->tag = LB_TAG_UNUSED;
  61         rec->size = sizeof(*rec);
  62         return rec;
  63 }
  64
  65
  66 struct lb_memory *lb_memory(struct lb_header *header)
  67 {
  68         struct lb_record *rec;
  69         struct lb_memory *mem;
  70         rec = lb_new_record(header);
  71         mem = (struct lb_memory *)rec;
  72         mem->tag = LB_TAG_MEMORY;
  73         mem->size = sizeof(*mem);
  74         return mem;
  75 }
  76
  77 struct lb_serial *lb_serial(struct lb_header *header)
  78 {
  79 #if defined(TTYS0_BASE)
  80         struct lb_record *rec;
  81         struct lb_serial *serial;
  82         rec = lb_new_record(header);
  83         serial = (struct lb_serial *)rec;
  84         serial->tag = LB_TAG_SERIAL;
  85         serial->size = sizeof(*serial);
  86         serial->ioport = TTYS0_BASE;
  87         serial->baud = TTYS0_BAUD;
  88         return serial;
  89 #else
  90         return header;
  91 #endif
  92 }
  93
  94 void add_console(struct lb_header *header, u16 consoletype)
  95 {
  96         struct lb_record *rec;
  97         struct lb_console *console;
  98         rec = lb_new_record(header);
  99         console = (struct lb_console *)lb_new_record(header);
 100         console->tag = LB_TAG_CONSOLE;
 101         console->size = sizeof(*console);
 102         console->type = consoletype;
 103 }
 104
 105 void lb_console(struct lb_header *header)
 106 {
 107 #ifdef CONFIG_CONSOLE_SERIAL8250
 108         add_console(header, LB_TAG_CONSOLE_SERIAL8250);
 109 #endif
 110 #ifdef CONFIG_CONSOLE_VGA
 111         add_console(header, LB_TAG_CONSOLE_VGA);
 112 #endif
 113 #ifdef CONFIG_CONSOLE_BTEXT
 114         add_console(header, LB_TAG_CONSOLE_BTEXT);
 115 #endif
 116 #ifdef CONFIG_CONSOLE_LOGBUF
 117         add_console(header, LB_TAG_CONSOLE_LOGBUF);
 118 #endif
 119 #ifdef CONFIG_CONSOLE_SROM
 120         add_console(header, LB_TAG_CONSOLE_SROM);
 121 #endif
 122 #ifdef CONFIG_USBDEBUG_DIRECT
 123         add_console(header, LB_TAG_CONSOLE_EHCI);
 124 #endif
 125 }
 126
 127 struct lb_mainboard *lb_mainboard(struct lb_header *header)
 128 {
 129         struct lb_record *rec;
 130         struct lb_mainboard *mainboard;
 131         rec = lb_new_record(header);
 132         mainboard = (struct lb_mainboard *)rec;
 133         mainboard->tag = LB_TAG_MAINBOARD;
 134
 135         mainboard->size = (sizeof(*mainboard) +
 136                 strlen(mainboard_vendor) + 1 +
 137                 strlen(mainboard_part_number) + 1 +
 138                 3) & ~3;
 139
 140         mainboard->vendor_idx = 0;
 141         mainboard->part_number_idx = strlen(mainboard_vendor) + 1;
 142
 143         memcpy(mainboard->strings + mainboard->vendor_idx,
 144                 mainboard_vendor,      strlen(mainboard_vendor) + 1);
 145         memcpy(mainboard->strings + mainboard->part_number_idx,
 146                 mainboard_part_number, strlen(mainboard_part_number) + 1);
 147
 148         return mainboard;
 149 }
 150
 151 struct cmos_checksum *lb_cmos_checksum(struct lb_header *header)
 152 {
 153         struct lb_record *rec;
 154         struct cmos_checksum *cmos_checksum;
 155         rec = lb_new_record(header);
 156         cmos_checksum = (struct cmos_checksum *)rec;
 157         cmos_checksum->tag = LB_TAG_OPTION_CHECKSUM;
 158
 159         cmos_checksum->size = (sizeof(*cmos_checksum));
 160
 161         cmos_checksum->range_start = LB_CKS_RANGE_START * 8;
 162         cmos_checksum->range_end = ( LB_CKS_RANGE_END * 8 ) + 7;
 163         cmos_checksum->location = LB_CKS_LOC * 8;
 164         cmos_checksum->type = CHECKSUM_PCBIOS;
 165
 166         return cmos_checksum;
 167 }
 168
 169 void lb_strings(struct lb_header *header)
 170 {
 171         static const struct {
 172                 uint32_t tag;
 173                 const char *string;
 174         } strings[] = {
 175                 { LB_TAG_VERSION,        coreboot_version,        },
 176                 { LB_TAG_EXTRA_VERSION,  coreboot_extra_version,  },
 177                 { LB_TAG_BUILD,          coreboot_build,          },
 178                 { LB_TAG_COMPILE_TIME,   coreboot_compile_time,   },
 179                 { LB_TAG_COMPILE_BY,     coreboot_compile_by,     },
 180                 { LB_TAG_COMPILE_HOST,   coreboot_compile_host,   },
 181                 { LB_TAG_COMPILE_DOMAIN, coreboot_compile_domain, },
 182                 { LB_TAG_COMPILER,       coreboot_compiler,       },
 183                 { LB_TAG_LINKER,         coreboot_linker,         },
 184                 { LB_TAG_ASSEMBLER,      coreboot_assembler,      },
 185         };
 186         unsigned int i;
 187         for(i = 0; i < sizeof(strings)/sizeof(strings[0]); i++) {
 188                 struct lb_string *rec;
 189                 size_t len;
 190                 rec = (struct lb_string *)lb_new_record(header);
 191                 len = strlen(strings[i].string);
 192                 rec->tag = strings[i].tag;
 193                 rec->size = (sizeof(*rec) + len + 1 + 3) & ~3;
 194                 memcpy(rec->string, strings[i].string, len+1);
 195         }
 196
 197 }
 198
 199 void lb_memory_range(struct lb_memory *mem,
 200         uint32_t type, uint64_t start, uint64_t size)
 201 {
 202         int entries;
 203         entries = (mem->size - sizeof(*mem))/sizeof(mem->map[0]);
 204         mem->map[entries].start = pack_lb64(start);
 205         mem->map[entries].size = pack_lb64(size);
 206         mem->map[entries].type = type;
 207         mem->size += sizeof(mem->map[0]);
 208 }
 209
 210 static void lb_reserve_table_memory(struct lb_header *head)
 211 {
 212         struct lb_record *last_rec;
 213         struct lb_memory *mem;
 214         uint64_t start;
 215         uint64_t end;
 216         int i, entries;
 217
 218         last_rec = lb_last_record(head);
 219         mem = get_lb_mem();
 220         start = (unsigned long)head;
 221         end = (unsigned long)last_rec;
 222         entries = (mem->size - sizeof(*mem))/sizeof(mem->map[0]);
 223         /* Resize the right two memory areas so this table is in
 224          * a reserved area of memory.  Everything has been carefully
 225          * setup so that is all we need to do.
 226          */
 227         for(i = 0; i < entries; i++ ) {
 228                 uint64_t map_start = unpack_lb64(mem->map[i].start);
 229                 uint64_t map_end = map_start + unpack_lb64(mem->map[i].size);
 230                 /* Does this area need to be expanded? */
 231                 if (map_end == start) {
 232                         mem->map[i].size = pack_lb64(end - map_start);
 233                 }
 234                 /* Does this area need to be contracted? */
 235                 else if (map_start == start) {
 236                         mem->map[i].start = pack_lb64(end);
 237                         mem->map[i].size = pack_lb64(map_end - end);
 238                 }
 239         }
 240 }
 241
 242 unsigned long lb_table_fini(struct lb_header *head)
 243 {
 244         struct lb_record *rec, *first_rec;
 245         rec = lb_last_record(head);
 246         if (head->table_entries) {
 247                 head->table_bytes += rec->size;
 248         }
 249         lb_reserve_table_memory(head);
 250         first_rec = lb_first_record(head);
 251         head->table_checksum = compute_ip_checksum(first_rec, head->table_bytes);
 252         head->header_checksum = 0;
 253         head->header_checksum = compute_ip_checksum(head, sizeof(*head));
 254         printk_debug("Wrote coreboot table at: %p - %p  checksum %lx\n",
 255                 head, rec, head->table_checksum);
 256         return (unsigned long)rec;
 257 }
 258
 259 static void lb_cleanup_memory_ranges(struct lb_memory *mem)
 260 {
 261         int entries;
 262         int i, j;
 263         entries = (mem->size - sizeof(*mem))/sizeof(mem->map[0]);
 264
 265         /* Sort the lb memory ranges */
 266         for(i = 0; i < entries; i++) {
 267                 uint64_t entry_start = unpack_lb64(mem->map[i].start);
 268                 for(j = i; j < entries; j++) {
 269                         uint64_t temp_start = unpack_lb64(mem->map[j].start);
 270                         if (temp_start < entry_start) {
 271                                 struct lb_memory_range tmp;
 272                                 tmp = mem->map[i];
 273                                 mem->map[i] = mem->map[j];
 274                                 mem->map[j] = tmp;
 275                         }
 276                 }
 277         }
 278
 279         /* Merge adjacent entries */
 280         for(i = 0; (i + 1) < entries; i++) {
 281                 uint64_t start, end, nstart, nend;
 282                 if (mem->map[i].type != mem->map[i + 1].type) {
 283                         continue;
 284                 }
 285                 start  = unpack_lb64(mem->map[i].start);
 286                 end    = start + unpack_lb64(mem->map[i].size);
 287                 nstart = unpack_lb64(mem->map[i + 1].start);
 288                 nend   = nstart + unpack_lb64(mem->map[i + 1].size);
 289                 if ((start <= nstart) && (end > nstart)) {
 290                         if (start > nstart) {
 291                                 start = nstart;
 292                         }
 293                         if (end < nend) {
 294                                 end = nend;
 295                         }
 296                         /* Record the new region size */
 297                         mem->map[i].start = pack_lb64(start);
 298                         mem->map[i].size  = pack_lb64(end - start);
 299
 300                         /* Delete the entry I have merged with */
 301                         memmove(&mem->map[i + 1], &mem->map[i + 2],
 302                                 ((entries - i - 2) * sizeof(mem->map[0])));
 303                         mem->size -= sizeof(mem->map[0]);
 304                         entries -= 1;
 305                         /* See if I can merge with the next entry as well */
 306                         i -= 1;
 307                 }
 308         }
 309 }
 310
 311 static void lb_remove_memory_range(struct lb_memory *mem,
 312         uint64_t start, uint64_t size)
 313 {
 314         uint64_t end;
 315         int entries;
 316         int i;
 317
 318         end = start + size;
 319         entries = (mem->size - sizeof(*mem))/sizeof(mem->map[0]);
 320
 321         /* Remove a reserved area from the memory map */
 322         for(i = 0; i < entries; i++) {
 323                 uint64_t map_start = unpack_lb64(mem->map[i].start);
 324                 uint64_t map_end   = map_start + unpack_lb64(mem->map[i].size);
 325                 if ((start <= map_start) && (end >= map_end)) {
 326                         /* Remove the completely covered range */
 327                         memmove(&mem->map[i], &mem->map[i + 1],
 328                                 ((entries - i - 1) * sizeof(mem->map[0])));
 329                         mem->size -= sizeof(mem->map[0]);
 330                         entries -= 1;
 331                         /* Since the index will disappear revisit what will appear here */
 332                         i -= 1;
 333                 }
 334                 else if ((start > map_start) && (end < map_end)) {
 335                         /* Split the memory range */
 336                         memmove(&mem->map[i + 1], &mem->map[i],
 337                                 ((entries - i) * sizeof(mem->map[0])));
 338                         mem->size += sizeof(mem->map[0]);
 339                         entries += 1;
 340                         /* Update the first map entry */
 341                         mem->map[i].size = pack_lb64(start - map_start);
 342                         /* Update the second map entry */
 343                         mem->map[i + 1].start = pack_lb64(end);
 344                         mem->map[i + 1].size  = pack_lb64(map_end - end);
 345                         /* Don't bother with this map entry again */
 346                         i += 1;
 347                 }
 348                 else if ((start <= map_start) && (end > map_start)) {
 349                         /* Shrink the start of the memory range */
 350                         mem->map[i].start = pack_lb64(end);
 351                         mem->map[i].size  = pack_lb64(map_end - end);
 352                 }
 353                 else if ((start < map_end) && (start > map_start)) {
 354                         /* Shrink the end of the memory range */
 355                         mem->map[i].size = pack_lb64(start - map_start);
 356                 }
 357         }
 358 }
 359
 360 static void lb_add_memory_range(struct lb_memory *mem,
 361         uint32_t type, uint64_t start, uint64_t size)
 362 {
 363         lb_remove_memory_range(mem, start, size);
 364         lb_memory_range(mem, type, start, size);
 365         lb_cleanup_memory_ranges(mem);
 366 }
 367
 368 /* Routines to extract part so the coreboot table or
 369  * information from the coreboot table after we have written it.
 370  * Currently get_lb_mem relies on a global we can change the
 371  * implementaiton.
 372  */
 373 static struct lb_memory *mem_ranges = 0;
 374 struct lb_memory *get_lb_mem(void)
 375 {
 376         return mem_ranges;
 377 }
 378
 379 static void build_lb_mem_range(void *gp, struct device *dev, struct resource *res)
 380 {
 381         struct lb_memory *mem = gp;
 382         lb_memory_range(mem, LB_MEM_RAM, res->base, res->size);
 383 }
 384
 385 static struct lb_memory *build_lb_mem(struct lb_header *head)
 386 {
 387         struct lb_memory *mem;
 388
 389         /* Record where the lb memory ranges will live */
 390         mem = lb_memory(head);
 391         mem_ranges = mem;
 392
 393         /* Build the raw table of memory */
 394         search_global_resources(
 395                 IORESOURCE_MEM | IORESOURCE_CACHEABLE, IORESOURCE_MEM | IORESOURCE_CACHEABLE,
 396                 build_lb_mem_range, mem);
 397         lb_cleanup_memory_ranges(mem);
 398         return mem;
 399 }
 400
 401 unsigned long write_coreboot_table(
 402         unsigned long low_table_start, unsigned long low_table_end,
 403         unsigned long rom_table_start, unsigned long rom_table_end)
 404 {
 405         struct lb_header *head;
 406         struct lb_memory *mem;
 407
 408         if(low_table_end > (0x1000 - sizeof(struct lb_header))) { /* after 4K */
 409                 /* We need to put lbtable on  to [0xf0000,0x100000) */
 410                 head = lb_table_init(rom_table_end);
 411                 rom_table_end = (unsigned long)head;
 412         } else {
 413                 head = lb_table_init(low_table_end);
 414                 low_table_end = (unsigned long)head;
 415         }
 416
 417         printk_debug("Adjust low_table_end from 0x%08x to ", low_table_end);
 418         low_table_end += 0xfff; // 4K aligned
 419         low_table_end &= ~0xfff;
 420         printk_debug("0x%08x \n", low_table_end);
 421
 422         /* The Linux kernel assumes this region is reserved */
 423         printk_debug("Adjust rom_table_end from 0x%08x to ", rom_table_end);
 424         rom_table_end += 0xffff; // 64K align
 425         rom_table_end &= ~0xffff;
 426         printk_debug("0x%08x \n", rom_table_end);
 427
 428 #if (HAVE_OPTION_TABLE == 1)
 429         {
 430                 struct lb_record *rec_dest, *rec_src;
 431                 /* Write the option config table... */
 432                 rec_dest = lb_new_record(head);
 433                 rec_src = (struct lb_record *)(void *)&option_table;
 434                 memcpy(rec_dest,  rec_src, rec_src->size);
 435                 /* Create cmos checksum entry in coreboot table */
 436                 lb_cmos_checksum(head);
 437         }
 438 #endif
 439         /* Record where RAM is located */
 440         mem = build_lb_mem(head);
 441
 442         /* Record the mptable and the the lb_table (This will be adjusted later) */
 443         lb_add_memory_range(mem, LB_MEM_TABLE,
 444                 low_table_start, low_table_end - low_table_start);
 445
 446         /* Record the pirq table, acpi tables, and maybe the mptable */
 447         lb_add_memory_range(mem, LB_MEM_TABLE,
 448                 rom_table_start, rom_table_end-rom_table_start);
 449
 450         /* AMD rs690 chip, we should remove the UMA from system memory. */
 451 #if (CONFIG_GFXUMA == 1)
 452         printk_info("uma_memory_start=0x%x, uma_memory_size=0x%x \n",
 453         uma_memory_start, uma_memory_size);
 454         lb_add_memory_range(mem, LB_MEM_TABLE,
 455                 uma_memory_start, uma_memory_size);
 456 #endif
 457
 458
 459         /* Note:
 460          * I assume that there is always memory at immediately after
 461          * the low_table_end.  This means that after I setup the coreboot table.
 462          * I can trivially fixup the reserved memory ranges to hold the correct
 463          * size of the coreboot table.
 464          */
 465
 466         /* Record our motherboard */
 467         lb_mainboard(head);
 468         /* Record the serial port, if present */
 469         lb_serial(head);
 470         /* Record our console setup */
 471         lb_console(head);
 472         /* Record our various random string information */
 473         lb_strings(head);
 474
 475         /* Remember where my valid memory ranges are */
 476         return lb_table_fini(head);
 477
 478 }