/* * Copyright © 2018 Intel Corporation * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice (including the next * paragraph) shall be included in all copies or substantial portions of the * Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS * IN THE SOFTWARE. * */ #include #include #include #include #include #include #include #include #include #include "util/list.h" #include "aub_write.h" #include "drm-uapi/i915_drm.h" #include "intel_aub.h" static void __attribute__ ((format(__printf__, 2, 3))) fail_if(int cond, const char *format, ...) { va_list args; if (!cond) return; va_start(args, format); vfprintf(stderr, format, args); va_end(args); raise(SIGTRAP); } #define fail(...) fail_if(true, __VA_ARGS__) static int zlib_inflate(uint32_t **ptr, int len) { struct z_stream_s zstream; void *out; const uint32_t out_size = 128*4096; /* approximate obj size */ memset(&zstream, 0, sizeof(zstream)); zstream.next_in = (unsigned char *)*ptr; zstream.avail_in = 4*len; if (inflateInit(&zstream) != Z_OK) return 0; out = malloc(out_size); zstream.next_out = out; zstream.avail_out = out_size; do { switch (inflate(&zstream, Z_SYNC_FLUSH)) { case Z_STREAM_END: goto end; case Z_OK: break; default: inflateEnd(&zstream); return 0; } if (zstream.avail_out) break; out = realloc(out, 2*zstream.total_out); if (out == NULL) { inflateEnd(&zstream); return 0; } zstream.next_out = (unsigned char *)out + zstream.total_out; zstream.avail_out = zstream.total_out; } while (1); end: inflateEnd(&zstream); free(*ptr); *ptr = out; return zstream.total_out / 4; } static int ascii85_decode(const char *in, uint32_t **out, bool inflate) { int len = 0, size = 1024; *out = realloc(*out, sizeof(uint32_t)*size); if (*out == NULL) return 0; while (*in >= '!' && *in <= 'z') { uint32_t v = 0; if (len == size) { size *= 2; *out = realloc(*out, sizeof(uint32_t)*size); if (*out == NULL) return 0; } if (*in == 'z') { in++; } else { v += in[0] - 33; v *= 85; v += in[1] - 33; v *= 85; v += in[2] - 33; v *= 85; v += in[3] - 33; v *= 85; v += in[4] - 33; in += 5; } (*out)[len++] = v; } if (!inflate) return len; return zlib_inflate(out, len); } static void print_help(const char *progname, FILE *file) { fprintf(file, "Usage: %s [OPTION]... [FILE]\n" "Convert an Intel GPU i915 error state to an aub file.\n" " -h, --help display this help and exit\n" " -o, --output=FILE the output aub file (default FILE.aub)\n", progname); } struct bo { enum address_space { PPGTT, GGTT, } gtt; enum bo_type { BO_TYPE_UNKNOWN = 0, BO_TYPE_BATCH, BO_TYPE_USER, BO_TYPE_CONTEXT, BO_TYPE_RINGBUFFER, BO_TYPE_STATUS, BO_TYPE_CONTEXT_WA, } type; const char *name; uint64_t addr; uint8_t *data; uint64_t size; enum drm_i915_gem_engine_class engine_class; int engine_instance; struct list_head link; }; static struct bo * find_or_create(struct list_head *bo_list, uint64_t addr, enum address_space gtt, enum drm_i915_gem_engine_class engine_class, int engine_instance) { list_for_each_entry(struct bo, bo_entry, bo_list, link) { if (bo_entry->addr == addr && bo_entry->gtt == gtt && bo_entry->engine_class == engine_class && bo_entry->engine_instance == engine_instance) return bo_entry; } struct bo *new_bo = calloc(1, sizeof(*new_bo)); new_bo->addr = addr; new_bo->gtt = gtt; new_bo->engine_class = engine_class; new_bo->engine_instance = engine_instance; list_addtail(&new_bo->link, bo_list); return new_bo; } static void engine_from_name(const char *engine_name, enum drm_i915_gem_engine_class *engine_class, int *engine_instance) { const struct { const char *match; enum drm_i915_gem_engine_class engine_class; bool parse_instance; } rings[] = { { "rcs", I915_ENGINE_CLASS_RENDER, true }, { "vcs", I915_ENGINE_CLASS_VIDEO, true }, { "vecs", I915_ENGINE_CLASS_VIDEO_ENHANCE, true }, { "bcs", I915_ENGINE_CLASS_COPY, true }, { "global", I915_ENGINE_CLASS_INVALID, false }, { "render command stream", I915_ENGINE_CLASS_RENDER, false }, { "blt command stream", I915_ENGINE_CLASS_COPY, false }, { "bsd command stream", I915_ENGINE_CLASS_VIDEO, false }, { "vebox command stream", I915_ENGINE_CLASS_VIDEO_ENHANCE, false }, { NULL, I915_ENGINE_CLASS_INVALID }, }, *r; for (r = rings; r->match; r++) { if (strncasecmp(engine_name, r->match, strlen(r->match)) == 0) { *engine_class = r->engine_class; if (r->parse_instance) *engine_instance = strtol(engine_name + strlen(r->match), NULL, 10); else *engine_instance = 0; return; } } fail("Unknown engine %s\n", engine_name); } int main(int argc, char *argv[]) { int i, c; bool help = false, verbose; char *out_filename = NULL, *in_filename = NULL; const struct option aubinator_opts[] = { { "help", no_argument, NULL, 'h' }, { "output", required_argument, NULL, 'o' }, { "verbose", no_argument, NULL, 'v' }, { NULL, 0, NULL, 0 } }; i = 0; while ((c = getopt_long(argc, argv, "ho:v", aubinator_opts, &i)) != -1) { switch (c) { case 'h': help = true; break; case 'o': out_filename = strdup(optarg); break; case 'v': verbose = true; break; default: break; } } if (optind < argc) in_filename = argv[optind++]; if (help || argc == 1 || !in_filename) { print_help(argv[0], stderr); return in_filename ? EXIT_SUCCESS : EXIT_FAILURE; } if (out_filename == NULL) { int out_filename_size = strlen(in_filename) + 5; out_filename = malloc(out_filename_size); snprintf(out_filename, out_filename_size, "%s.aub", in_filename); } FILE *err_file = fopen(in_filename, "r"); fail_if(!err_file, "Failed to open error file \"%s\": %m\n", in_filename); FILE *aub_file = fopen(out_filename, "w"); fail_if(!aub_file, "Failed to open aub file \"%s\": %m\n", in_filename); struct aub_file aub = {}; enum drm_i915_gem_engine_class active_engine_class = I915_ENGINE_CLASS_INVALID; int active_engine_instance = -1; enum address_space active_gtt = PPGTT; enum address_space default_gtt = PPGTT; struct { struct { uint32_t ring_buffer_head; uint32_t ring_buffer_tail; } instances[3]; } engines[I915_ENGINE_CLASS_VIDEO_ENHANCE + 1]; memset(engines, 0, sizeof(engines)); int num_ring_bos = 0; struct list_head bo_list; list_inithead(&bo_list); struct bo *last_bo = NULL; char *line = NULL; size_t line_size; while (getline(&line, &line_size, err_file) > 0) { const char *pci_id_start = strstr(line, "PCI ID"); if (pci_id_start) { int pci_id; int matched = sscanf(line, "PCI ID: 0x%04x\n", &pci_id); fail_if(!matched, "Invalid error state file!\n"); aub_file_init(&aub, aub_file, NULL, pci_id, "error_state"); if (verbose) aub.verbose_log_file = stdout; default_gtt = active_gtt = aub_use_execlists(&aub) ? PPGTT : GGTT; continue; } if (strstr(line, " command stream:")) { engine_from_name(line, &active_engine_class, &active_engine_instance); continue; } if (sscanf(line, " ring->head: 0x%x\n", &engines[ active_engine_class].instances[ active_engine_instance].ring_buffer_head) == 1) { continue; } if (sscanf(line, " ring->tail: 0x%x\n", &engines[ active_engine_class].instances[ active_engine_instance].ring_buffer_tail) == 1) { continue; } const char *active_start = "Active ("; if (strncmp(line, active_start, strlen(active_start)) == 0) { char *ring = line + strlen(active_start); engine_from_name(ring, &active_engine_class, &active_engine_instance); active_gtt = default_gtt; char *count = strchr(ring, '['); fail_if(!count || sscanf(count, "[%d]:", &num_ring_bos) < 1, "Failed to parse BO table header\n"); continue; } const char *global_start = "Pinned (global) ["; if (strncmp(line, global_start, strlen(global_start)) == 0) { active_engine_class = I915_ENGINE_CLASS_INVALID; active_engine_instance = -1; active_gtt = GGTT; continue; } if (num_ring_bos > 0) { unsigned hi, lo, size; if (sscanf(line, " %x_%x %d", &hi, &lo, &size) == 3) { struct bo *bo_entry = find_or_create(&bo_list, ((uint64_t)hi) << 32 | lo, active_gtt, active_engine_class, active_engine_instance); bo_entry->size = size; num_ring_bos--; } else { fail("Not enough BO entries in the active table\n"); } continue; } if (line[0] == ':' || line[0] == '~') { if (!last_bo || last_bo->type == BO_TYPE_UNKNOWN) continue; int count = ascii85_decode(line+1, (uint32_t **) &last_bo->data, line[0] == ':'); fail_if(count == 0, "ASCII85 decode failed.\n"); last_bo->size = count * 4; continue; } char *dashes = strstr(line, " --- "); if (dashes) { dashes += 5; engine_from_name(line, &active_engine_class, &active_engine_instance); uint32_t hi, lo; char *bo_address_str = strchr(dashes, '='); if (!bo_address_str || sscanf(bo_address_str, "= 0x%08x %08x\n", &hi, &lo) != 2) continue; const struct { const char *match; enum bo_type type; enum address_space gtt; } bo_types[] = { { "gtt_offset", BO_TYPE_BATCH, default_gtt }, { "user", BO_TYPE_USER, default_gtt }, { "HW context", BO_TYPE_CONTEXT, GGTT }, { "ringbuffer", BO_TYPE_RINGBUFFER, GGTT }, { "HW Status", BO_TYPE_STATUS, GGTT }, { "WA context", BO_TYPE_CONTEXT_WA, GGTT }, { "unknown", BO_TYPE_UNKNOWN, GGTT }, }, *b; for (b = bo_types; b->type != BO_TYPE_UNKNOWN; b++) { if (strncasecmp(dashes, b->match, strlen(b->match)) == 0) break; } last_bo = find_or_create(&bo_list, ((uint64_t) hi) << 32 | lo, b->gtt, active_engine_class, active_engine_instance); /* The batch buffer will appear twice as gtt_offset and user. Only * keep the batch type. */ if (last_bo->type == BO_TYPE_UNKNOWN) { last_bo->type = b->type; last_bo->name = b->match; } continue; } } if (verbose) { fprintf(stdout, "BOs found:\n"); list_for_each_entry(struct bo, bo_entry, &bo_list, link) { fprintf(stdout, "\t type=%i addr=0x%016" PRIx64 " size=%" PRIu64 "\n", bo_entry->type, bo_entry->addr, bo_entry->size); } } /* Find the batch that trigger the hang */ struct bo *batch_bo = NULL; list_for_each_entry(struct bo, bo_entry, &bo_list, link) { if (bo_entry->type == BO_TYPE_BATCH) { batch_bo = bo_entry; break; } } fail_if(!batch_bo, "Failed to find batch buffer.\n"); /* Add all the BOs to the aub file */ struct bo *hwsp_bo = NULL; list_for_each_entry(struct bo, bo_entry, &bo_list, link) { switch (bo_entry->type) { case BO_TYPE_BATCH: if (bo_entry->gtt == PPGTT) { aub_map_ppgtt(&aub, bo_entry->addr, bo_entry->size); aub_write_trace_block(&aub, AUB_TRACE_TYPE_BATCH, bo_entry->data, bo_entry->size, bo_entry->addr); } else aub_write_ggtt(&aub, bo_entry->addr, bo_entry->size, bo_entry->data); break; case BO_TYPE_USER: if (bo_entry->gtt == PPGTT) { aub_map_ppgtt(&aub, bo_entry->addr, bo_entry->size); aub_write_trace_block(&aub, AUB_TRACE_TYPE_NOTYPE, bo_entry->data, bo_entry->size, bo_entry->addr); } else aub_write_ggtt(&aub, bo_entry->addr, bo_entry->size, bo_entry->data); break; case BO_TYPE_CONTEXT: if (bo_entry->engine_class == batch_bo->engine_class && bo_entry->engine_instance == batch_bo->engine_instance && aub_use_execlists(&aub)) { hwsp_bo = bo_entry; uint32_t *context = (uint32_t *) (bo_entry->data + 4096 /* GuC */ + 4096 /* HWSP */); if (context[1] == 0) { fprintf(stderr, "Invalid context image data.\n" "This is likely a kernel issue : https://bugs.freedesktop.org/show_bug.cgi?id=107691\n"); } /* Update the ring buffer at the last known location. */ context[5] = engines[bo_entry->engine_class].instances[bo_entry->engine_instance].ring_buffer_head; context[7] = engines[bo_entry->engine_class].instances[bo_entry->engine_instance].ring_buffer_tail; fprintf(stdout, "engine start=0x%x head/tail=0x%x/0x%x\n", context[9], context[5], context[7]); /* The error state doesn't provide a dump of the page tables, so * we have to provide our own, that's easy enough. */ context[49] = aub.pml4.phys_addr >> 32; context[51] = aub.pml4.phys_addr & 0xffffffff; fprintf(stdout, "context dump:\n"); for (int i = 0; i < 60; i++) { if (i % 4 == 0) fprintf(stdout, "\n 0x%08" PRIx64 ": ", bo_entry->addr + 8192 + i * 4); fprintf(stdout, "0x%08x ", context[i]); } fprintf(stdout, "\n"); } aub_write_ggtt(&aub, bo_entry->addr, bo_entry->size, bo_entry->data); break; case BO_TYPE_RINGBUFFER: case BO_TYPE_STATUS: case BO_TYPE_CONTEXT_WA: aub_write_ggtt(&aub, bo_entry->addr, bo_entry->size, bo_entry->data); break; case BO_TYPE_UNKNOWN: if (bo_entry->gtt == PPGTT) { aub_map_ppgtt(&aub, bo_entry->addr, bo_entry->size); if (bo_entry->data) { aub_write_trace_block(&aub, AUB_TRACE_TYPE_NOTYPE, bo_entry->data, bo_entry->size, bo_entry->addr); } } else { if (bo_entry->size > 0) { void *zero_data = calloc(1, bo_entry->size); aub_write_ggtt(&aub, bo_entry->addr, bo_entry->size, zero_data); free(zero_data); } } break; default: break; } } if (aub_use_execlists(&aub)) { fail_if(!hwsp_bo, "Failed to find Context buffer.\n"); aub_write_context_execlists(&aub, hwsp_bo->addr + 4096 /* skip GuC page */, hwsp_bo->engine_class); } else { /* Use context id 0 -- if we are not using execlists it doesn't matter * anyway */ aub_write_exec(&aub, 0, batch_bo->addr, 0, I915_ENGINE_CLASS_RENDER); } /* Cleanup */ list_for_each_entry_safe(struct bo, bo_entry, &bo_list, link) { list_del(&bo_entry->link); free(bo_entry->data); free(bo_entry); } free(out_filename); free(line); if(err_file) { fclose(err_file); } if(aub.file) { aub_file_finish(&aub); } else if(aub_file) { fclose(aub_file); } return EXIT_SUCCESS; } /* vim: set ts=8 sw=8 tw=0 cino=:0,(0 noet :*/