static void hpet_parse_device_hpet(
fwts_framework *fw,
const char *table,
fwts_list_link *item,
bool *parsed)
{
for (; item != NULL; item = item->next) {
const char *str = fwts_text_list_text(item);
if ((strstr(str, "Name") != NULL) &&
(strstr(str, "ResourceTemplate") != NULL)) {
fwts_list_link *tmp_item = item->next;
for (; tmp_item != NULL; tmp_item = tmp_item->next) {
const char *tmpstr = fwts_text_list_text(tmp_item);
if (strstr(tmpstr, "Memory32Fixed") != NULL) {
/* Next line contains base address */
if (tmp_item->next != NULL) {
hpet_parse_check_base(fw, table, tmp_item->next, parsed);
return;
}
} else if (strstr(tmpstr, "DWordMemory") != NULL) {
if (tmp_item->next != NULL && /* Granularity */
tmp_item->next->next != NULL) { /* Base address */
hpet_parse_check_base(fw, table, tmp_item->next->next, parsed);
return;
}
}
}
}
}
}
static void hpet_parse_check_base(
fwts_framework *fw,
const char *table,
fwts_list_link *item,
bool *parsed)
{
char *val;
if ((val = strstr(fwts_text_list_text(item), "0x")) != NULL) {
uint64_t address_base;
char *idx = index(val, ',');
if (idx)
*idx = '\0';
address_base = strtoul(val, NULL, 0x10);
if (hpet_base_p != 0) {
*parsed = true;
if (hpet_base_p != address_base)
fwts_failed(fw, LOG_LEVEL_MEDIUM,
"HPETBaseMismatch",
"Mismatched HPET base between %s (%" PRIx64 ") "
"and the kernel (0x%" PRIx64 ").",
table,
hpet_base_p,
address_base);
else
fwts_passed(fw,
"HPET base matches that between %s and "
"the kernel (0x%" PRIx64 ").",
table,
hpet_base_p);
}
}
}
/*
* syntaxcheck_dump_code()
* output a block of source around where the error is reported
*/
static void syntaxcheck_dump_code(fwts_framework *fw,
int error_code,
int carat_offset,
char *error_message,
fwts_list* iasl_disassembly,
int error_line,
int howmany)
{
int i = 0;
fwts_list_link *item;
fwts_log_info_verbatum(fw, "Line | AML source\n");
fwts_log_underline(fw->results, '-');
fwts_list_foreach(item, iasl_disassembly) {
i++;
if (i >= error_line + (howmany / 2))
break;
if (i > error_line - (howmany / 2)) {
fwts_log_info_verbatum(fw, "%5.5d| %s\n", i,
fwts_text_list_text(item));
if (i == error_line) {
fwts_log_info_verbatum(fw, " | %*.*s", carat_offset, carat_offset, "^");
fwts_log_info_verbatum(fw, " | %s %d: %s\n",
syntaxcheck_error_level(error_code), error_code, error_message);
}
}
}
/*
* fwts_acpi_find_rsdp_klog()
* Get RSDP by parsing kernel log
*/
static void *fwts_acpi_find_rsdp_klog(void)
{
fwts_list *klog;
fwts_list_link *item;
void *rsdp = NULL;
if ((klog = fwts_klog_read()) == NULL)
return NULL;
fwts_list_foreach(item, klog) {
char *text = fwts_text_list_text(item);
char *ptr = strstr(text, "ACPI: RSDP");
if (ptr) {
rsdp = (void *)strtoul(ptr + 11, NULL, 16);
break;
}
}
/*
* check_hpet_base_dsdt()
* used to parse the DSDT for HPET base info
*/
static void hpet_check_base_acpi_table(
fwts_framework *fw,
fwts_acpi_table_info *info)
{
fwts_list *output;
fwts_list_link *item;
if (fwts_iasl_disassemble(fw, info, true, &output) != FWTS_OK) {
fwts_iasl_deinit();
return;
}
if (output == NULL)
return;
fwts_list_foreach(item, output)
if (strstr(fwts_text_list_text(item), "Device (HPET)") != NULL)
hpet_parse_device_hpet(fw, info->name, item);
fwts_text_list_free(output);
}
static int hpet_check_test1(fwts_framework *fw)
{
fwts_list_link *item;
if (klog == NULL)
return FWTS_ERROR;
fwts_log_info(fw,
"This test checks the HPET PCI BAR for each timer block "
"in the timer. The base address is passed by the firmware "
"via an ACPI table. IRQ routing and initialization is also "
"verified by the test.");
fwts_list_foreach(item, klog) {
char *text = fwts_text_list_text(item);
/* Old format */
if (strstr(text, "ACPI: HPET id:") != NULL) {
char *str = strstr(text, "base: ");
if (str) {
hpet_base_p = strtoul(str+6, NULL, 0x10);
fwts_passed(fw,
"Found HPET base 0x%" PRIx64 " in kernel log.",
hpet_base_p);
break;
}
}
/* New format */
/* [ 0.277934] hpet0: at MMIO 0xfed00000, IRQs 2, 8, 0 */
if ((strstr(text, "hpet") != NULL) &&
(strstr(text, "IRQs") != NULL)) {
char *str = strstr(text, "at MMIO ");
if (str) {
hpet_base_p = strtoul(str+8, NULL, 0x10);
fwts_passed(fw,
"Found HPET base 0x%" PRIx64 " in kernel log.",
hpet_base_p);
break;
}
}
}
static int acpidump_test1(fwts_framework *fw)
{
int i;
fwts_infoonly(fw);
if (fwts_iasl_init(fw) != FWTS_OK) {
fwts_aborted(fw, "Failure to initialise iasl, aborting.");
return FWTS_ERROR;
}
for (i = 0; i < ACPI_MAX_TABLES; i++) {
fwts_acpi_table_info *table;
fwts_list *output;
char *provenance;
if (fwts_acpi_get_table(fw, i, &table) != FWTS_OK)
break;
if (table == NULL)
break;
switch (table->provenance) {
case FWTS_ACPI_TABLE_FROM_FILE:
provenance = " (loaded from file)";
break;
case FWTS_ACPI_TABLE_FROM_FIXUP:
provenance = " (generated by fwts)";
break;
default:
provenance = "";
break;
}
fwts_log_info_verbatim(fw, "%s @ %lx (%zd bytes)%s",
table->name, (unsigned long)table->addr, table->length, provenance);
fwts_log_info_verbatim(fw, "----");
if (!strcmp(table->name, "RSDP")) {
/* RSDP is a special case */
acpidump_rsdp(fw, table);
} else if (table->has_aml) {
/* Disassembling the AML bloats the output, so ignore */
uint8_t *data = (uint8_t *)table->data;
fwts_acpi_table_header hdr;
fwts_acpi_table_get_header(&hdr, data);
acpidump_hdr(fw, &hdr, table->length);
fwts_log_info_verbatim(fw, "Contains AML Object Code.");
} else if (fwts_iasl_disassemble(fw, table, true, &output) != FWTS_OK) {
/* Cannot find, assume standard table header */
uint8_t *data = (uint8_t *)table->data;
fwts_acpi_table_header hdr;
fwts_acpi_table_get_header(&hdr, data);
acpidump_hdr(fw, &hdr, table->length);
acpi_dump_raw_table(fw, table);
} else {
/* Successfully disassembled, so parse */
fwts_list_link *line;
bool skip = false;
bool unknown = false;
fwts_list_foreach(line, output) {
char *text = fwts_text_list_text(line);
bool ignore = (strstr(text, "Raw Table Data:") != NULL);
/* We don't want to emit this line */
if (strstr(text, "Unknown ACPI table signature") != NULL) {
unknown = true;
ignore = true;
}
/* and we want to ignore text in comments */
if (!strncmp(text, "/*", 2))
skip = true;
if (!(ignore | skip | unknown))
fwts_log_info_verbatim(fw, "%s", fwts_text_list_text(line));
if (!strncmp(text, " */", 3))
skip = false;
}
fwts_text_list_free(output);
if (unknown)
acpi_dump_raw_table(fw, table);
}
fwts_log_nl(fw);
}
