xen-project/xen
1
0 Fork 0
mirror of https://github.com/xen-project/xen.git synced 2026-10-28 02:01:24 +01:00
Code Issues Activity
Files
3b5201e8cf87dbea558331edcf6f3236ede56980
xen/tools/xentrace/xenctx.c
T
Alejandro Vallejo 3b5201e8cf tools: Use new xc function for some xc_domain_getinfo() calls 
Move calls that require a information about a single precisely identified
domain to the new xc_domain_getinfo_single().

Signed-off-by: Alejandro Vallejo <alejandro.vallejo@cloud.com>
Reviewed-by: Andrew Cooper <andrew.cooper3@citrix.com>
Acked-by: Anthony PERARD <anthony.perard@citrix.com>
2023-05-10 19:59:27 +01:00

1329 lines
38 KiB
C
Raw Blame History

/******************************************************************************
* tools/xentrace/xenctx.c
*
* Tool for dumping the cpu context
*
* Copyright (C) 2005 by Intel Corp
*
* Author: Arun Sharma <arun.sharma@intel.com>
* Date: February 2005
*/
#include <time.h>
#include <stdlib.h>
#include <sys/mman.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <errno.h>
#include <signal.h>
#include <ctype.h>
#include <string.h>
#include <inttypes.h>
#include <getopt.h>
#include <limits.h>
#define XC_WANT_COMPAT_MAP_FOREIGN_API
#include <xenctrl.h>
#include <xen/foreign/x86_32.h>
#include <xen/foreign/x86_64.h>
#include <xen/hvm/save.h>
#define DEFAULT_NR_STACK_PAGES 1
#define DEFAULT_BYTES_PER_LINE 32
#define DEFAULT_LINES 5
/* Note: the order of these matter.
* NOT_KERNEL_ADDR must be < both KERNEL_DATA_ADDR and KERNEL_TEXT_ADDR.
* KERNEL_DATA_ADDR must be < KERNEL_TEXT_ADDR. */
typedef enum type_of_addr_ {
NOT_KERNEL_ADDR,
KERNEL_DATA_ADDR,
KERNEL_TEXT_ADDR,
} type_of_addr;
#if defined (__i386__) || defined (__x86_64__)
static const uint64_t cr_reg_mask[5] = { [2] = ~UINT64_C(0) };
static const uint64_t dr_reg_mask[8] = { [0 ... 3] = ~UINT64_C(0) };
typedef unsigned long long guest_word_t;
#define FMT_16B_WORD "%04llx"
#define FMT_32B_WORD "%08llx"
#define FMT_64B_WORD "%016llx"
/* Word-length of the guest's own data structures */
int guest_word_size = sizeof (unsigned long);
/* Word-length of the context record we get from xen */
int ctxt_word_size = sizeof (unsigned long);
int guest_protected_mode = 1;
#elif defined(__arm__)
#define NO_TRANSLATION
typedef uint64_t guest_word_t;
#define FMT_16B_WORD "%04llx"
#define FMT_32B_WORD "%08llx"
#define FMT_64B_WORD "%016llx"
#elif defined(__aarch64__)
#define NO_TRANSLATION
typedef uint64_t guest_word_t;
#define FMT_16B_WORD "%04llx"
#define FMT_32B_WORD "%08llx"
#define FMT_64B_WORD "%016llx"
#endif
#define MAX_BYTES_PER_LINE 128
static struct xenctx {
xc_interface *xc_handle;
int domid;
int frame_ptrs;
int stack_trace;
int disp_all;
int nr_stack_pages;
int bytes_per_line;
int lines;
int decode_as_ascii;
int tag_stack_dump;
int tag_call_trace;
int all_vcpus;
#ifndef NO_TRANSLATION
guest_word_t mem_addr;
guest_word_t stk_addr;
int do_memory;
int do_stack;
#endif
int kernel_start_set;
xc_domaininfo_t dominfo;
} xenctx;
struct symbol {
guest_word_t address;
char *name;
struct symbol *next;
} *symbol_table = NULL;
guest_word_t kernel_stext, kernel_etext, kernel_sinittext, kernel_einittext, kernel_hypercallpage;
guest_word_t kernel_text;
#if defined (__i386__) || defined (__arm__)
unsigned long long kernel_start = 0xc0000000;
unsigned long long kernel_end = 0xffffffffULL;
#elif defined (__x86_64__)
unsigned long long kernel_start = 0xffffffff80000000UL;
unsigned long long kernel_end = 0xffffffffffffffffUL;
#elif defined (__aarch64__)
unsigned long long kernel_start = 0xffffff8000000000UL;
unsigned long long kernel_end = 0xffffffffffffffffULL;
#endif
static type_of_addr kernel_addr(guest_word_t addr)
{
if ( symbol_table == NULL )
{
if ( addr > kernel_start )
return KERNEL_TEXT_ADDR;
else
return NOT_KERNEL_ADDR;
}
if (addr >= kernel_stext &&
addr <= kernel_etext)
return KERNEL_TEXT_ADDR;
if ( kernel_hypercallpage &&
(addr >= kernel_hypercallpage &&
addr <= kernel_hypercallpage + 4096) )
return KERNEL_TEXT_ADDR;
if (addr >= kernel_sinittext &&
addr <= kernel_einittext)
return KERNEL_TEXT_ADDR;
if ( xenctx.kernel_start_set )
{
if ( addr > kernel_start )
return KERNEL_TEXT_ADDR;
} else {
if ( addr >= kernel_text &&
addr <= kernel_end )
return KERNEL_DATA_ADDR;
if ( addr >= kernel_start &&
addr <= kernel_end )
return KERNEL_TEXT_ADDR;
}
return NOT_KERNEL_ADDR;
}
#if 0
static void free_symbol(struct symbol *symbol)
{
if (symbol == NULL)
return;
if (symbol->name)
free(symbol->name);
free(symbol);
}
#endif
static void insert_symbol(struct symbol *symbol)
{
static struct symbol *prev = NULL;
struct symbol *s = symbol_table;
if (s == NULL) {
symbol_table = symbol;
symbol->next = NULL;
return;
}
/* The System.map is usually already sorted... */
if (prev
&& prev->address <= symbol->address
&& (!prev->next || prev->next->address > symbol->address)) {
s = prev;
} else {
/* ... otherwise do crappy/slow search for the correct place */
while (s->next && s->next->address <= symbol->address)
s = s->next;
}
symbol->next = s->next;
s->next = symbol;
prev = symbol;
}
static struct symbol *lookup_symbol(guest_word_t address)
{
struct symbol *s = symbol_table;
if (!s)
return NULL;
while (s->next && s->next->address < address)
s = s->next;
return s->next && s->next->address <= address ? s->next : s;
}
static void print_symbol(guest_word_t addr, type_of_addr type)
{
struct symbol *s;
if ( kernel_addr(addr) < type )
return;
s = lookup_symbol(addr);
if (s==NULL)
return;
if (addr==s->address)
printf(" %s", s->name);
else
printf(" %s+%#x", s->name, (unsigned int)(addr - s->address));
}
static void read_symbol_table(const char *symtab)
{
char type, line[256];
char *p;
struct symbol *symbol;
FILE *f;
guest_word_t address;
f = fopen(symtab, "r");
if(f == NULL) {
fprintf(stderr, "failed to open symbol table %s\n", symtab);
exit(-1);
}
while(!feof(f)) {
if(fgets(line,256,f)==NULL)
break;
/* need more checks for syntax here... */
address = strtoull(line, &p, 16);
if (!isspace((uint8_t)*p++))
continue;
type = *p++;
if (!isalpha((uint8_t)type) && type != '?')
continue;
if (!isspace((uint8_t)*p++))
continue;
/* in the future we should handle the module name
* being appended here, this would allow us to use
* /proc/kallsyms as our symbol table
*/
if (p[strlen(p)-1] == '\n')
p[strlen(p)-1] = '\0';
switch (type) {
case 'A': /* global absolute */
case 'a': /* local absolute */
break;
case 'U': /* undefined */
case 'v': /* undefined weak object */
case 'w': /* undefined weak function */
continue;
default:
symbol = malloc(sizeof(*symbol));
if (symbol == NULL) {
fclose(f);
return;
}
symbol->address = address;
symbol->name = strdup(p);
if (symbol->name == NULL) {
free(symbol);
fclose(f);
return;
}
insert_symbol(symbol);
break;
}
if (strcmp(p, "_stext") == 0)
kernel_stext = address;
else if (strcmp(p, "_etext") == 0)
kernel_etext = address;
else if ( strcmp(p, "_text") == 0 )
kernel_text = address;
else if ( strcmp(p, "_end") == 0 || strcmp(p, "__bss_stop") == 0 )
kernel_end = address;
else if (strcmp(p, "_sinittext") == 0)
kernel_sinittext = address;
else if (strcmp(p, "_einittext") == 0)
kernel_einittext = address;
else if (strcmp(p, "hypercall_page") == 0)
kernel_hypercallpage = address;
}
fclose(f);
}
#if defined(__i386__) || defined(__x86_64__)
#define CR0_PE 0x1
const char *flag_values[22][2] =
{/* clear, set, bit# */
{ NULL, "c" }, // 0 Carry
{ NULL, NULL }, // 1
{ NULL, "p" }, // 2 Parity
{ NULL, NULL }, // 3
{ NULL, "a" }, // 4 Adjust
{ NULL, NULL }, // 5
{ "nz", "z" }, // 6 Zero
{ NULL, "s" }, // 7 Sign
{ NULL, "tf" }, // 8 Trap
{ NULL, "i" }, // 9 Interrupt (enabled)
{ NULL, "d=b" }, // 10 Direction
{ NULL, "o" }, // 11 Overflow
{ NULL, NULL }, // 12 12+13 == IOPL
{ NULL, NULL }, // 13
{ NULL, "nt" }, // 14 Nested Task
{ NULL, NULL }, // 15
{ NULL, "rf" }, // 16 Resume Flag
{ NULL, "v86" }, // 17 Virtual 8086 mode
{ NULL, "ac" }, // 18 Alignment Check (enabled)
{ NULL, "vif" }, // 19 Virtual Interrupt (enabled)
{ NULL, "vip" }, // 20 Virtual Interrupt Pending
{ NULL, "cid" } // 21 Cpuid Identification Flag
};
static void print_flags(uint64_t flags)
{
int i;
printf("\nflags: %08" PRIx64, flags);
for (i = 21; i >= 0; i--) {
const char *s = flag_values[i][(flags >> i) & 1];
if (s != NULL)
printf(" %s", s);
}
printf("\n");
}
static void print_special(void *regs, const char *name, unsigned int mask,
const uint64_t reg_is_addr_mask[], int width)
{
unsigned int i;
printf("\n");
for (i = 0; mask; mask >>= 1, ++i)
if (mask & 1) {
if ( width == 4 )
{
printf("%s%u: %08"PRIx32, name, i, ((uint32_t *) regs)[i]);
if ( reg_is_addr_mask[i] )
print_symbol(reg_is_addr_mask[i] & ((uint32_t *) regs)[i],
KERNEL_DATA_ADDR);
}
else
{
printf("%s%u: %016"PRIx64, name, i, ((uint64_t *) regs)[i]);
if ( reg_is_addr_mask[i] )
print_symbol(reg_is_addr_mask[i] & ((uint64_t *) regs)[i],
KERNEL_DATA_ADDR);
}
printf("\n");
}
}
static void print_ctx_32(vcpu_guest_context_x86_32_t *ctx)
{
struct cpu_user_regs_x86_32 *regs = &ctx->user_regs;
printf("cs:eip: %04x:%08x", regs->cs, regs->eip);
print_symbol(regs->eip, KERNEL_TEXT_ADDR);
print_flags(regs->eflags);
printf("ss:esp: %04x:%08x\n", regs->ss, regs->esp);
printf("eax: %08x\t", regs->eax);
printf("ebx: %08x\t", regs->ebx);
printf("ecx: %08x\t", regs->ecx);
printf("edx: %08x\n", regs->edx);
printf("esi: %08x\t", regs->esi);
printf("edi: %08x\t", regs->edi);
printf("ebp: %08x\n", regs->ebp);
printf(" ds: %04x\t", regs->ds);
printf(" es: %04x\t", regs->es);
printf(" fs: %04x\t", regs->fs);
printf(" gs: %04x\n", regs->gs);
if (xenctx.disp_all) {
print_special(ctx->ctrlreg, "cr", 0x1d, cr_reg_mask, 4);
print_special(ctx->debugreg, "dr", 0xcf, dr_reg_mask, 4);
}
}
static void print_ctx_32on64(vcpu_guest_context_x86_64_t *ctx)
{
struct cpu_user_regs_x86_64 *regs = &ctx->user_regs;
printf("cs:eip: %04x:%08x", regs->cs, (uint32_t)regs->eip);
print_symbol((uint32_t)regs->eip, KERNEL_TEXT_ADDR);
print_flags((uint32_t)regs->eflags);
printf("ss:esp: %04x:%08x\n", regs->ss, (uint32_t)regs->esp);
printf("eax: %08x\t", (uint32_t)regs->eax);
printf("ebx: %08x\t", (uint32_t)regs->ebx);
printf("ecx: %08x\t", (uint32_t)regs->ecx);
printf("edx: %08x\n", (uint32_t)regs->edx);
printf("esi: %08x\t", (uint32_t)regs->esi);
printf("edi: %08x\t", (uint32_t)regs->edi);
printf("ebp: %08x\n", (uint32_t)regs->ebp);
printf(" ds: %04x\t", regs->ds);
printf(" es: %04x\t", regs->es);
printf(" fs: %04x\t", regs->fs);
printf(" gs: %04x\n", regs->gs);
if (xenctx.disp_all) {
uint32_t tmp_regs[8];
int i;
for (i = 0; i < 5; i++)
tmp_regs[i] = ctx->ctrlreg[i];
print_special(tmp_regs, "cr", 0x1d, cr_reg_mask, 4);
for (i = 0; i < 8; i++)
tmp_regs[i] = ctx->debugreg[i];
print_special(tmp_regs, "dr", 0xcf, dr_reg_mask, 4);
}
}
static void print_ctx_64(vcpu_guest_context_x86_64_t *ctx)
{
struct cpu_user_regs_x86_64 *regs = &ctx->user_regs;
printf("rip: %016"PRIx64, regs->rip);
print_symbol(regs->rip, KERNEL_TEXT_ADDR);
print_flags(regs->rflags);
printf("rsp: %016"PRIx64"\n", regs->rsp);
printf("rax: %016"PRIx64"\t", regs->rax);
printf("rcx: %016"PRIx64"\t", regs->rcx);
printf("rdx: %016"PRIx64"\n", regs->rdx);
printf("rbx: %016"PRIx64"\t", regs->rbx);
printf("rsi: %016"PRIx64"\t", regs->rsi);
printf("rdi: %016"PRIx64"\n", regs->rdi);
printf("rbp: %016"PRIx64"\t", regs->rbp);
printf(" r8: %016"PRIx64"\t", regs->r8);
printf(" r9: %016"PRIx64"\n", regs->r9);
printf("r10: %016"PRIx64"\t", regs->r10);
printf("r11: %016"PRIx64"\t", regs->r11);
printf("r12: %016"PRIx64"\n", regs->r12);
printf("r13: %016"PRIx64"\t", regs->r13);
printf("r14: %016"PRIx64"\t", regs->r14);
printf("r15: %016"PRIx64"\n", regs->r15);
printf(" cs: %04x\t", regs->cs);
printf(" ss: %04x\t", regs->ss);
printf(" ds: %04x\t", regs->ds);
printf(" es: %04x\n", regs->es);
printf(" fs: %04x @ %016"PRIx64, regs->fs, ctx->fs_base);
print_symbol(ctx->fs_base, KERNEL_DATA_ADDR);
printf("\n");
printf(" gs: %04x @ %016"PRIx64"/%016"PRIx64, regs->gs,
ctx->gs_base_kernel, ctx->gs_base_user);
if ( symbol_table )
{
print_symbol(ctx->gs_base_kernel, KERNEL_DATA_ADDR);
printf("/");
print_symbol(ctx->gs_base_user, KERNEL_DATA_ADDR);
}
printf("\n");
if (xenctx.disp_all) {
print_special(ctx->ctrlreg, "cr", 0x1d, cr_reg_mask, 8);
print_special(ctx->debugreg, "dr", 0xcf, dr_reg_mask, 8);
}
}
static void print_ctx(vcpu_guest_context_any_t *ctx)
{
if (ctxt_word_size == 4)
print_ctx_32(&ctx->x32);
else if (guest_word_size != 8)
print_ctx_32on64(&ctx->x64);
else
print_ctx_64(&ctx->x64);
}
#define NONPROT_MODE_SEGMENT_SHIFT 4
static guest_word_t instr_pointer(vcpu_guest_context_any_t *ctx)
{
guest_word_t r;
if (ctxt_word_size == 4)
{
r = ctx->x32.user_regs.eip;
if ( !guest_protected_mode )
r += ctx->x32.user_regs.cs << NONPROT_MODE_SEGMENT_SHIFT;
}
else
{
r = ctx->x64.user_regs.rip;
if ( !guest_protected_mode )
r += ctx->x64.user_regs.cs << NONPROT_MODE_SEGMENT_SHIFT;
}
return r;
}
static guest_word_t stack_pointer(vcpu_guest_context_any_t *ctx)
{
guest_word_t r;
if (ctxt_word_size == 4)
{
r = ctx->x32.user_regs.esp;
if ( !guest_protected_mode )
r += ctx->x32.user_regs.ss << NONPROT_MODE_SEGMENT_SHIFT;
}
else
{
r = ctx->x64.user_regs.rsp;
if ( !guest_protected_mode )
r += ctx->x64.user_regs.ss << NONPROT_MODE_SEGMENT_SHIFT;
}
return r;
}
static guest_word_t frame_pointer(vcpu_guest_context_any_t *ctx)
{
if (ctxt_word_size == 4)
return ctx->x32.user_regs.ebp;
else
return ctx->x64.user_regs.rbp;
}
#elif defined(__arm__) || defined(__aarch64__)
static void print_ctx_32(vcpu_guest_context_t *ctx)
{
vcpu_guest_core_regs_t *regs = &ctx->user_regs;
printf("PC: %08"PRIx32, regs->pc32);
print_symbol(regs->pc32, KERNEL_TEXT_ADDR);
printf("\n");
printf("CPSR: %08"PRIx64"\n", regs->cpsr);
printf("USR: SP:%08"PRIx32" LR:%08"PRIx32"\n",
regs->sp_usr, regs->lr_usr);
printf("SVC: SPSR:%08"PRIx32" SP:%08"PRIx32" LR:%08"PRIx32"\n",
regs->spsr_svc, regs->sp_svc, regs->lr_svc);
printf("FIQ: SPSR:%08"PRIx32" SP:%08"PRIx32" LR:%08"PRIx32"\n",
regs->spsr_fiq, regs->sp_fiq, regs->lr_fiq);
printf("IRQ: SPSR:%08"PRIx32" SP:%08"PRIx32" LR:%08"PRIx32"\n",
regs->spsr_irq, regs->sp_irq, regs->lr_irq);
printf("ABT: SPSR:%08"PRIx32" SP:%08"PRIx32" LR:%08"PRIx32"\n",
regs->spsr_abt, regs->sp_abt, regs->lr_abt);
printf("UND: SPSR:%08"PRIx32" SP:%08"PRIx32" LR:%08"PRIx32"\n",
regs->spsr_und, regs->sp_und, regs->lr_und);
printf("\n");
printf(" r0_usr: %08"PRIx32"\t", regs->r0_usr);
printf(" r1_usr: %08"PRIx32"\t", regs->r1_usr);
printf(" r2_usr: %08"PRIx32"\n", regs->r2_usr);
printf(" r3_usr: %08"PRIx32"\t", regs->r3_usr);
printf(" r4_usr: %08"PRIx32"\t", regs->r4_usr);
printf(" r5_usr: %08"PRIx32"\n", regs->r5_usr);
printf(" r6_usr: %08"PRIx32"\t", regs->r6_usr);
printf(" r7_usr: %08"PRIx32"\t", regs->r7_usr);
printf(" r8_usr: %08"PRIx32"\n", regs->r8_usr);
printf(" r9_usr: %08"PRIx32"\t", regs->r9_usr);
printf("r10_usr: %08"PRIx32"\t", regs->r10_usr);
printf("r11_usr: %08"PRIx32"\n", regs->r11_usr);
printf("r12_usr: %08"PRIx32"\n", regs->r12_usr);
printf("\n");
printf(" r8_fiq: %08"PRIx32"\n", regs->r8_fiq);
printf(" r9_fiq: %08"PRIx32"\t", regs->r9_fiq);
printf("r10_fiq: %08"PRIx32"\t", regs->r10_fiq);
printf("r11_fiq: %08"PRIx32"\n", regs->r11_fiq);
printf("r12_fiq: %08"PRIx32"\n", regs->r12_fiq);
printf("\n");
/* SCTLR is always 32-bit */
printf("SCTLR: %08"PRIx32"\n", (uint32_t)ctx->sctlr);
}
#ifdef __aarch64__
static void print_ctx_64(vcpu_guest_context_t *ctx)
{
vcpu_guest_core_regs_t *regs = &ctx->user_regs;
printf("PC: %016"PRIx64, regs->pc64);
print_symbol(regs->pc64, KERNEL_TEXT_ADDR);
printf("\n");
printf("LR: %016"PRIx64"\n", regs->x30);
printf("ELR_EL1: %016"PRIx64"\n", regs->elr_el1);
printf("CPSR: %08"PRIx64"\n", regs->cpsr);
printf("SPSR_EL1: %08"PRIx64"\n", regs->spsr_el1);
printf("SP_EL0: %016"PRIx64"\n", regs->sp_el0);
printf("SP_EL1: %016"PRIx64"\n", regs->sp_el1);
printf("\n");
printf(" x0: %016"PRIx64"\t", regs->x0);
printf(" x1: %016"PRIx64"\t", regs->x1);
printf(" x2: %016"PRIx64"\n", regs->x2);
printf(" x3: %016"PRIx64"\t", regs->x3);
printf(" x4: %016"PRIx64"\t", regs->x4);
printf(" x5: %016"PRIx64"\n", regs->x5);
printf(" x6: %016"PRIx64"\t", regs->x6);
printf(" x7: %016"PRIx64"\t", regs->x7);
printf(" x8: %016"PRIx64"\n", regs->x8);
printf(" x9: %016"PRIx64"\t", regs->x9);
printf("x10: %016"PRIx64"\t", regs->x10);
printf("x11: %016"PRIx64"\n", regs->x11);
printf("x12: %016"PRIx64"\t", regs->x12);
printf("x13: %016"PRIx64"\t", regs->x13);
printf("x14: %016"PRIx64"\n", regs->x14);
printf("x15: %016"PRIx64"\t", regs->x15);
printf("x16: %016"PRIx64"\t", regs->x16);
printf("x17: %016"PRIx64"\n", regs->x17);
printf("x18: %016"PRIx64"\t", regs->x18);
printf("x19: %016"PRIx64"\t", regs->x19);
printf("x20: %016"PRIx64"\n", regs->x20);
printf("x21: %016"PRIx64"\t", regs->x21);
printf("x22: %016"PRIx64"\t", regs->x22);
printf("x23: %016"PRIx64"\n", regs->x23);
printf("x24: %016"PRIx64"\t", regs->x24);
printf("x25: %016"PRIx64"\t", regs->x25);
printf("x26: %016"PRIx64"\n", regs->x26);
printf("x27: %016"PRIx64"\t", regs->x27);
printf("x28: %016"PRIx64"\t", regs->x28);
printf("x29: %016"PRIx64"\n", regs->x29);
printf("\n");
printf("SCTLR_EL1: %016"PRIx64"\n", ctx->sctlr);
}
#endif /* __aarch64__ */
static void print_ctx(vcpu_guest_context_any_t *ctx_any)
{
vcpu_guest_context_t *ctx = &ctx_any->c;
#ifdef __aarch64__
if (ctx->user_regs.cpsr & PSR_MODE_BIT)
print_ctx_32(ctx);
else
print_ctx_64(ctx);
#else
print_ctx_32(ctx);
#endif
printf("TTBCR: %016"PRIx64"\n", ctx->ttbcr);
printf("TTBR0: %016"PRIx64"\n", ctx->ttbr0);
printf("TTBR1: %016"PRIx64"\n", ctx->ttbr1);
}
#endif
#ifndef NO_TRANSLATION
static void *map_page(vcpu_guest_context_any_t *ctx, int vcpu, guest_word_t virt)
{
static unsigned long previous_mfn = 0;
static void *mapped = NULL;
unsigned long mfn = xc_translate_foreign_address(xenctx.xc_handle, xenctx.domid, vcpu, virt);
unsigned long offset = virt & ~XC_PAGE_MASK;
if (mapped && mfn == previous_mfn)
goto out;
if (mapped)
munmap(mapped, XC_PAGE_SIZE);
previous_mfn = mfn;
mapped = xc_map_foreign_range(xenctx.xc_handle, xenctx.domid, XC_PAGE_SIZE, PROT_READ, mfn);
if (mapped == NULL) {
fprintf(stderr, "\nfailed to map page for "FMT_32B_WORD".\n", virt);
return NULL;
}
out:
return (void *)(mapped + offset);
}
static guest_word_t read_stack_word(guest_word_t *src, int width)
{
guest_word_t word = 0;
/* Little-endian only */
memcpy(&word, src, width);
return word;
}
static guest_word_t read_mem_word(vcpu_guest_context_any_t *ctx, int vcpu,
guest_word_t virt, int width)
{
if ( (virt & 7) == 0 )
{
guest_word_t *p = map_page(ctx, vcpu, virt);
if ( p )
return read_stack_word(p, width);
else
return -1;
}
else
{
guest_word_t word = 0;
char *src, *dst;
int i;
/* Little-endian only */
dst = (char *)&word;
for (i = 0; i < width; i++)
{
src = map_page(ctx, vcpu, virt + i);
if ( src )
*dst++ = *src;
else
{
guest_word_t missing = -1LL;
/* Return all ones for missing memory */
memcpy(dst, &missing, width - i);
return word;
}
}
return word;
}
}
static void print_stack_word(guest_word_t word, int width)
{
if (width == 2)
printf(FMT_16B_WORD, word);
else if (width == 4)
printf(FMT_32B_WORD, word);
else
printf(FMT_64B_WORD, word);
}
static int print_lines(vcpu_guest_context_any_t *ctx, int vcpu, int width,
guest_word_t mem_addr, guest_word_t mem_limit)
{
guest_word_t mem_start = mem_addr;
guest_word_t word;
guest_word_t ascii[MAX_BYTES_PER_LINE/4];
int i;
for (i = 1; i < xenctx.lines + 1 && mem_addr < mem_limit; i++)
{
int j = 0;
int k;
if ( xenctx.tag_stack_dump )
{
print_stack_word(mem_addr, width);
printf(":");
}
while ( mem_addr < mem_limit &&
mem_addr < mem_start + i * xenctx.bytes_per_line )
{
void *p = map_page(ctx, vcpu, mem_addr);
if ( !p )
return -1;
word = read_mem_word(ctx, vcpu, mem_addr, width);
if ( xenctx.decode_as_ascii )
ascii[j++] = word;
printf(" ");
print_stack_word(word, width);
mem_addr += width;
}
if ( xenctx.decode_as_ascii )
{
/*
* Line up ascii output if less than bytes_per_line
* were printed.
*/
for (k = j; k < xenctx.bytes_per_line / width; k++)
printf(" %*s", width * 2, "");
printf(" ");
for (k = 0; k < j; k++)
{
int l;
unsigned char *bytep = (unsigned char *)&ascii[k];
for (l = 0; l < width; l++)
{
if (isprint(*bytep))
printf("%c", *bytep);
else
printf(".");
bytep++;
}
}
}
printf("\n");
}
printf("\n");
return 0;
}
static void print_mem(vcpu_guest_context_any_t *ctx, int vcpu, int width,
guest_word_t mem_addr)
{
printf("Memory (address ");
print_stack_word(mem_addr, width);
printf("):\n");
print_lines(ctx, vcpu, width, mem_addr,
mem_addr + xenctx.lines * xenctx.bytes_per_line);
}
static int print_code(vcpu_guest_context_any_t *ctx, int vcpu)
{
guest_word_t instr;
int i;
instr = instr_pointer(ctx);
printf("Code (instr addr %08llx)\n", instr);
instr -= 21;
for(i=0; i<32; i++) {
unsigned char *c = map_page(ctx, vcpu, instr+i);
if (!c)
return -1;
if (instr+i == instr_pointer(ctx))
printf("<%02x> ", *c);
else
printf("%02x ", *c);
}
printf("\n\n\n");
return 0;
}
static void print_stack_addr(guest_word_t addr, int width)
{
print_stack_word(addr, width);
printf(": ");
}
static int print_stack(vcpu_guest_context_any_t *ctx, int vcpu, int width,
guest_word_t stk_addr_start)
{
guest_word_t stack = stk_addr_start;
guest_word_t stack_limit;
guest_word_t frame;
guest_word_t word;
guest_word_t *p;
if ( width )
xenctx.bytes_per_line =
((xenctx.bytes_per_line + width - 1) / width) * width;
stack_limit = ((stack_pointer(ctx) + XC_PAGE_SIZE)
& ~((guest_word_t) XC_PAGE_SIZE - 1))
+ (xenctx.nr_stack_pages - 1) * XC_PAGE_SIZE;
if ( xenctx.lines )
{
printf("Stack:\n");
if ( print_lines(ctx, vcpu, width, stack, stack_limit) )
return -1;
}
if ( !guest_protected_mode )
return 0;
if(xenctx.stack_trace)
printf("Stack Trace:\n");
else
printf("Call Trace:\n");
if ( !xenctx.do_stack )
{
printf("%*s %c [<", width*2, "", xenctx.stack_trace ? '*' : ' ');
print_stack_word(instr_pointer(ctx), width);
printf(">]");
print_symbol(instr_pointer(ctx), KERNEL_TEXT_ADDR);
printf(" <--\n");
}
if (xenctx.frame_ptrs) {
stack = stack_pointer(ctx);
frame = frame_pointer(ctx);
while(frame && stack < stack_limit) {
if (xenctx.stack_trace) {
while (stack < frame) {
p = map_page(ctx, vcpu, stack);
if (!p)
return -1;
print_stack_addr(stack, width);
printf("| ");
print_stack_word(read_stack_word(p, width), width);
printf("\n");
stack += width;
}
} else {
stack = frame;
}
p = map_page(ctx, vcpu, stack);
if (!p)
return -1;
frame = read_stack_word(p, width);
if (xenctx.stack_trace) {
print_stack_addr(stack, width);
printf("|-- ");
print_stack_word(read_stack_word(p, width), width);
printf("\n");
}
stack += width;
if (frame) {
p = map_page(ctx, vcpu, stack);
if (!p)
return -1;
word = read_stack_word(p, width);
print_stack_addr(stack, width);
printf("%c [<", xenctx.stack_trace ? '|' : ' ');
print_stack_word(word, width);
printf(">]");
print_symbol(word, KERNEL_TEXT_ADDR);
printf("\n");
stack += width;
}
}
} else {
stack = stk_addr_start;
while(stack < stack_limit) {
p = map_page(ctx, vcpu, stack);
if (!p)
return -1;
word = read_mem_word(ctx, vcpu, stack, width);
if ( kernel_addr(word) >= KERNEL_TEXT_ADDR )
{
print_stack_addr(stack, width);
printf(" [<");
print_stack_word(word, width);
printf(">]");
print_symbol(word, KERNEL_TEXT_ADDR);
printf("\n");
} else if (xenctx.stack_trace) {
print_stack_addr(stack, width);
printf(" ");
print_stack_word(word, width);
printf("\n");
}
stack += width;
}
}
return 0;
}
#endif
static void dump_ctx(int vcpu)
{
vcpu_guest_context_any_t ctx;
if (xc_vcpu_getcontext(xenctx.xc_handle, xenctx.domid, vcpu, &ctx) < 0) {
perror("xc_vcpu_getcontext");
return;
}
#if defined(__i386__) || defined(__x86_64__)
{
if (xenctx.dominfo.flags & XEN_DOMINF_hvm_guest) {
struct hvm_hw_cpu cpuctx;
xen_capabilities_info_t xen_caps = "";
if (xc_domain_hvm_getcontext_partial(
xenctx.xc_handle, xenctx.domid, HVM_SAVE_CODE(CPU),
vcpu, &cpuctx, sizeof cpuctx) != 0) {
perror("xc_domain_hvm_getcontext_partial");
return;
}
guest_protected_mode = (cpuctx.cr0 & CR0_PE);
guest_word_size = (cpuctx.msr_efer & 0x400) ? 8 :
guest_protected_mode ? 4 : 2;
/* HVM guest context records are always host-sized */
if (xc_version(xenctx.xc_handle, XENVER_capabilities, &xen_caps) != 0) {
perror("xc_version");
return;
}
ctxt_word_size = (strstr(xen_caps, "xen-3.0-x86_64")) ? 8 : 4;
} else {
unsigned int gw;
if ( !xc_domain_get_guest_width(xenctx.xc_handle, xenctx.domid, &gw) )
ctxt_word_size = guest_word_size = gw;
}
}
#endif
#ifndef NO_TRANSLATION
if ( xenctx.do_memory )
{
print_mem(&ctx, vcpu, guest_word_size, xenctx.mem_addr);
return;
}
if ( xenctx.do_stack )
{
print_stack(&ctx, vcpu, guest_word_size, xenctx.stk_addr);
return;
}
#endif
print_ctx(&ctx);
#ifndef NO_TRANSLATION
if (print_code(&ctx, vcpu))
return;
if ( !guest_protected_mode ||
kernel_addr(instr_pointer(&ctx)) >= KERNEL_TEXT_ADDR )
if ( print_stack(&ctx, vcpu, guest_word_size,
stack_pointer(&ctx)) )
return;
#endif
}
static void dump_all_vcpus(void)
{
xc_vcpuinfo_t vinfo;
int vcpu;
for (vcpu = 0; vcpu <= xenctx.dominfo.max_vcpu_id; vcpu++)
{
if ( xc_vcpu_getinfo(xenctx.xc_handle, xenctx.domid, vcpu, &vinfo) )
continue;
if ( vinfo.online )
{
printf("vcpu%d:\n", vcpu);
dump_ctx(vcpu);
printf("\n");
}
else
printf("vcpu%d offline\n\n", vcpu);
}
}
static void usage(void)
{
printf("usage:\n\n");
printf(" xenctx [options] <DOMAIN> [VCPU]\n\n");
printf("options:\n");
printf(" -f, --frame-pointers\n");
printf(" assume the kernel was compiled with\n");
printf(" frame pointers.\n");
printf(" -s SYMTAB, --symbol-table=SYMTAB\n");
printf(" read symbol table from SYMTAB.\n");
printf(" -S, --stack-trace print a complete stack trace.\n");
printf(" -k KADDR, --kernel-start=KADDR\n");
printf(" set user/kernel split. (default 0x"FMT_32B_WORD")\n",
kernel_start);
printf(" -a, --all display more registers\n");
printf(" -C, --all-vcpus print info for all vcpus\n");
printf(" -n PAGES, --display-stack-pages=PAGES\n");
printf(" Display N pages from the stack pointer. (default %d)\n",
DEFAULT_NR_STACK_PAGES);
printf(" Changes stack limit. Note: use with caution (easy\n");
printf(" to get garbage).\n");
printf(" -b <bytes>, --bytes-per-line <bytes>\n");
printf(" change the number of bytes per line output for Stack.\n");
printf(" (default %d) Note: rounded to native size (4 or 8 bytes).\n",
DEFAULT_BYTES_PER_LINE);
printf(" -l <lines>, --lines <lines>\n");
printf(" change the number of lines output for Stack. (default %d)\n",
DEFAULT_LINES);
printf(" Can be specified as MAX. Note: Fewer lines will be output\n");
printf(" if stack limit reached.\n");
printf(" -D, --decode-as-ascii\n");
printf(" add a decode of Stack dump as ascii.\n");
printf(" -t, --tag-stack-dump\n");
printf(" add address on each line of Stack dump.\n");
#ifndef NO_TRANSLATION
printf(" -m maddr, --memory=maddr\n");
printf(" dump memory at maddr.\n");
printf(" -d daddr, --dump-as-stack=daddr\n");
printf(" dump memory as a stack at daddr.\n");
#endif
}
int main(int argc, char **argv)
{
int ch;
int ret;
const char *prog = argv[0];
static const char *sopts = "fs:hak:SCn:b:l:Dt"
#ifndef NO_TRANSLATION
"m:d:"
#endif
;
static const struct option lopts[] = {
{"stack-trace", 0, NULL, 'S'},
{"symbol-table", 1, NULL, 's'},
{"frame-pointers", 0, NULL, 'f'},
{"kernel-start", 1, NULL, 'k'},
{"display-stack-pages", 0, NULL, 'n'},
{"decode-as-ascii", 0, NULL, 'D'},
{"tag-stack-dump", 0, NULL, 't'},
#ifndef NO_TRANSLATION
{"memory", 1, NULL, 'm'},
{"dump-as-stack", 1, NULL, 'd'},
#endif
{"bytes-per-line", 1, NULL, 'b'},
{"lines", 1, NULL, 'l'},
{"all", 0, NULL, 'a'},
{"all-vcpus", 0, NULL, 'C'},
{"help", 0, NULL, 'h'},
{0, 0, 0, 0}
};
const char *symbol_table = NULL;
int vcpu = 0;
int do_default = 1;
xenctx.bytes_per_line = DEFAULT_BYTES_PER_LINE;
xenctx.lines = DEFAULT_LINES;
xenctx.nr_stack_pages = DEFAULT_NR_STACK_PAGES;
while ((ch = getopt_long(argc, argv, sopts, lopts, NULL)) != -1) {
switch(ch) {
case 'f':
xenctx.frame_ptrs = 1;
break;
case 's':
symbol_table = optarg;
break;
case 'S':
xenctx.stack_trace = 1;
break;
case 'a':
xenctx.disp_all = 1;
break;
case 'n':
xenctx.nr_stack_pages = strtol(optarg, NULL, 0);
if ( xenctx.nr_stack_pages < 1)
{
fprintf(stderr,
"%s: Unsupported value(%d) for --display-stack-pages '%s'. Needs to be >= 1\n",
prog, xenctx.nr_stack_pages, optarg);
exit(-1);
}
break;
case 'D':
xenctx.decode_as_ascii = 1;
break;
case 't':
xenctx.tag_stack_dump = 1;
break;
case 'b':
xenctx.bytes_per_line = strtol(optarg, NULL, 0);
if ( xenctx.bytes_per_line < 4 ||
xenctx.bytes_per_line > MAX_BYTES_PER_LINE )
{
fprintf(stderr,
"%s: Unsupported value for --bytes-per-line '%s'. Needs to be 4 <= %d <= %d\n",
prog, optarg, xenctx.bytes_per_line,
MAX_BYTES_PER_LINE);
exit(-1);
}
break;
case 'l':
if ( !strcmp(optarg, "all") || !strcmp(optarg, "ALL") ||
!strcmp(optarg, "max") || !strcmp(optarg, "MAX") )
xenctx.lines = INT_MAX - 1;
else
xenctx.lines = strtol(optarg, NULL, 0);
if ( xenctx.lines < 0 || xenctx.lines == INT_MAX)
{
fprintf(stderr,
"%s: Unsupported value(%d) for --lines '%s'. Needs to be >= 0, < %d\n",
prog, xenctx.lines, optarg, INT_MAX);
exit(-1);
}
break;
case 'C':
xenctx.all_vcpus = 1;
do_default = 0;
break;
case 'k':
kernel_start = strtoull(optarg, NULL, 0);
xenctx.kernel_start_set = 1;
break;
#ifndef NO_TRANSLATION
case 'm':
xenctx.mem_addr = strtoull(optarg, NULL, 0);
xenctx.do_memory = 1;
do_default = 0;
break;
case 'd':
xenctx.stk_addr = strtoull(optarg, NULL, 0);
xenctx.do_stack = 1;
do_default = 0;
break;
#endif
case 'h':
usage();
exit(-1);
case '?':
fprintf(stderr, "%s --help for more options\n", prog);
exit(-1);
}
}
argv += optind; argc -= optind;
if (argc < 1 || argc > 2) {
printf("usage: xenctx [options] <domid> <optional vcpu>\n");
exit(-1);
}
#ifndef NO_TRANSLATION
if ( xenctx.frame_ptrs && xenctx.do_stack )
{
fprintf(stderr,
"%s: both --frame-pointers and --dump-as-stack is not supported\n",
prog);
exit(-1);
}
#endif
xenctx.domid = atoi(argv[0]);
if (xenctx.domid==0) {
fprintf(stderr, "cannot trace dom0\n");
exit(-1);
}
if ( argc == 2 )
{
if ( xenctx.all_vcpus )
{
fprintf(stderr,
"%s: both --all-vcpus and [VCPU] is not supported\n",
prog);
exit(-1);
}
vcpu = atoi(argv[1]);
}
if (symbol_table)
read_symbol_table(symbol_table);
xenctx.xc_handle = xc_interface_open(0,0,0); /* for accessing control interface */
if (xenctx.xc_handle == NULL) {
perror("xc_interface_open");
exit(-1);
}
ret = xc_domain_getinfo_single(xenctx.xc_handle, xenctx.domid, &xenctx.dominfo);
if (ret < 0) {
perror("xc_domain_getinfo_single");
exit(-1);
}
ret = xc_domain_pause(xenctx.xc_handle, xenctx.domid);
if (ret < 0) {
perror("xc_domain_pause");
exit(-1);
}
#ifndef NO_TRANSLATION
if ( xenctx.do_memory )
{
dump_ctx(vcpu);
if ( xenctx.do_stack || xenctx.all_vcpus )
printf("\n");
}
xenctx.do_memory = 0;
if ( xenctx.do_stack )
{
dump_ctx(vcpu);
if ( xenctx.all_vcpus )
printf("\n");
}
xenctx.do_stack = 0;
#endif
if (xenctx.all_vcpus)
dump_all_vcpus();
if ( do_default )
dump_ctx(vcpu);
ret = xc_domain_unpause(xenctx.xc_handle, xenctx.domid);
if (ret < 0) {
perror("xc_domain_unpause");
exit(-1);
}
ret = xc_interface_close(xenctx.xc_handle);
if (ret < 0) {
perror("xc_interface_close");
exit(-1);
}
return 0;
}
/*
* Local variables:
* mode: C
* c-file-style: "BSD"
* c-basic-offset: 4
* tab-width: 4
* indent-tabs-mode: nil
* End:
*/
Reference in new issue View Git Blame Copy Permalink