mirror of
https://github.com/reactos/reactos.git
synced 2024-10-31 03:48:17 +00:00
0b8d0e0a61
Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org> wine commit id 5d8067c6088a30cdb4fe6945e6ae1cda0da85467 by Jacek Caban <jacek@codeweavers.com>
296 lines
9.2 KiB
C
296 lines
9.2 KiB
C
/*
|
|
* File cpu_arm64.c
|
|
*
|
|
* Copyright (C) 2009 Eric Pouech
|
|
* Copyright (C) 2010-2013 André Hentschel
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include <assert.h>
|
|
|
|
#define NONAMELESSUNION
|
|
#define NONAMELESSSTRUCT
|
|
#include "ntstatus.h"
|
|
#define WIN32_NO_STATUS
|
|
#include "dbghelp_private.h"
|
|
#include "winternl.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(dbghelp);
|
|
|
|
static BOOL arm64_get_addr(HANDLE hThread, const CONTEXT* ctx,
|
|
enum cpu_addr ca, ADDRESS64* addr)
|
|
{
|
|
addr->Mode = AddrModeFlat;
|
|
addr->Segment = 0; /* don't need segment */
|
|
switch (ca)
|
|
{
|
|
#ifdef __aarch64__
|
|
case cpu_addr_pc: addr->Offset = ctx->Pc; return TRUE;
|
|
case cpu_addr_stack: addr->Offset = ctx->Sp; return TRUE;
|
|
case cpu_addr_frame: addr->Offset = ctx->u.s.Fp; return TRUE;
|
|
#endif
|
|
default: addr->Mode = -1;
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
#ifdef __aarch64__
|
|
enum st_mode {stm_start, stm_arm64, stm_done};
|
|
|
|
/* indexes in Reserved array */
|
|
#define __CurrentModeCount 0
|
|
|
|
#define curr_mode (frame->Reserved[__CurrentModeCount] & 0x0F)
|
|
#define curr_count (frame->Reserved[__CurrentModeCount] >> 4)
|
|
|
|
#define set_curr_mode(m) {frame->Reserved[__CurrentModeCount] &= ~0x0F; frame->Reserved[__CurrentModeCount] |= (m & 0x0F);}
|
|
#define inc_curr_count() (frame->Reserved[__CurrentModeCount] += 0x10)
|
|
|
|
/* fetch_next_frame()
|
|
*
|
|
* modify (at least) context.Pc using unwind information
|
|
* either out of debug info (dwarf), or simple Lr trace
|
|
*/
|
|
static BOOL fetch_next_frame(struct cpu_stack_walk* csw, union ctx *pcontext,
|
|
DWORD_PTR curr_pc)
|
|
{
|
|
DWORD64 xframe;
|
|
CONTEXT *context = &pcontext->ctx;
|
|
DWORD_PTR oldReturn = context->u.s.Lr;
|
|
|
|
if (dwarf2_virtual_unwind(csw, curr_pc, pcontext, &xframe))
|
|
{
|
|
context->Sp = xframe;
|
|
context->Pc = oldReturn;
|
|
return TRUE;
|
|
}
|
|
|
|
if (context->Pc == context->u.s.Lr) return FALSE;
|
|
context->Pc = oldReturn;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL arm64_stack_walk(struct cpu_stack_walk *csw, STACKFRAME64 *frame,
|
|
union ctx *context)
|
|
{
|
|
unsigned deltapc = curr_count <= 1 ? 0 : 4;
|
|
|
|
/* sanity check */
|
|
if (curr_mode >= stm_done) return FALSE;
|
|
|
|
TRACE("Enter: PC=%s Frame=%s Return=%s Stack=%s Mode=%s Count=%s\n",
|
|
wine_dbgstr_addr(&frame->AddrPC),
|
|
wine_dbgstr_addr(&frame->AddrFrame),
|
|
wine_dbgstr_addr(&frame->AddrReturn),
|
|
wine_dbgstr_addr(&frame->AddrStack),
|
|
curr_mode == stm_start ? "start" : "ARM64",
|
|
wine_dbgstr_longlong(curr_count));
|
|
|
|
if (curr_mode == stm_start)
|
|
{
|
|
/* Init done */
|
|
set_curr_mode(stm_arm64);
|
|
frame->AddrReturn.Mode = frame->AddrStack.Mode = AddrModeFlat;
|
|
/* don't set up AddrStack on first call. Either the caller has set it up, or
|
|
* we will get it in the next frame
|
|
*/
|
|
memset(&frame->AddrBStore, 0, sizeof(frame->AddrBStore));
|
|
}
|
|
else
|
|
{
|
|
if (context->ctx.Sp != frame->AddrStack.Offset) FIXME("inconsistent Stack Pointer\n");
|
|
if (context->ctx.Pc != frame->AddrPC.Offset) FIXME("inconsistent Program Counter\n");
|
|
|
|
if (frame->AddrReturn.Offset == 0) goto done_err;
|
|
if (!fetch_next_frame(csw, context, frame->AddrPC.Offset - deltapc))
|
|
goto done_err;
|
|
}
|
|
|
|
memset(&frame->Params, 0, sizeof(frame->Params));
|
|
|
|
/* set frame information */
|
|
frame->AddrStack.Offset = context->ctx.Sp;
|
|
frame->AddrReturn.Offset = context->ctx.u.s.Lr;
|
|
frame->AddrFrame.Offset = context->ctx.u.s.Fp;
|
|
frame->AddrPC.Offset = context->ctx.Pc;
|
|
|
|
frame->Far = TRUE;
|
|
frame->Virtual = TRUE;
|
|
inc_curr_count();
|
|
|
|
TRACE("Leave: PC=%s Frame=%s Return=%s Stack=%s Mode=%s Count=%s FuncTable=%p\n",
|
|
wine_dbgstr_addr(&frame->AddrPC),
|
|
wine_dbgstr_addr(&frame->AddrFrame),
|
|
wine_dbgstr_addr(&frame->AddrReturn),
|
|
wine_dbgstr_addr(&frame->AddrStack),
|
|
curr_mode == stm_start ? "start" : "ARM64",
|
|
wine_dbgstr_longlong(curr_count),
|
|
frame->FuncTableEntry);
|
|
|
|
return TRUE;
|
|
done_err:
|
|
set_curr_mode(stm_done);
|
|
return FALSE;
|
|
}
|
|
#else
|
|
static BOOL arm64_stack_walk(struct cpu_stack_walk* csw, STACKFRAME64 *frame,
|
|
union ctx *ctx)
|
|
{
|
|
return FALSE;
|
|
}
|
|
#endif
|
|
|
|
static unsigned arm64_map_dwarf_register(unsigned regno, const struct module* module, BOOL eh_frame)
|
|
{
|
|
if (regno <= 28) return CV_ARM64_X0 + regno;
|
|
if (regno == 29) return CV_ARM64_FP;
|
|
if (regno == 30) return CV_ARM64_LR;
|
|
if (regno == 31) return CV_ARM64_SP;
|
|
if (regno >= 64 && regno <= 95) return CV_ARM64_Q0 + regno - 64;
|
|
|
|
FIXME("Don't know how to map register %d\n", regno);
|
|
return CV_ARM64_NOREG;
|
|
}
|
|
|
|
static void *arm64_fetch_context_reg(union ctx *pctx, unsigned regno, unsigned *size)
|
|
{
|
|
#ifdef __aarch64__
|
|
CONTEXT *ctx = pctx;
|
|
|
|
switch (regno)
|
|
{
|
|
case CV_ARM64_X0 + 0:
|
|
case CV_ARM64_X0 + 1:
|
|
case CV_ARM64_X0 + 2:
|
|
case CV_ARM64_X0 + 3:
|
|
case CV_ARM64_X0 + 4:
|
|
case CV_ARM64_X0 + 5:
|
|
case CV_ARM64_X0 + 6:
|
|
case CV_ARM64_X0 + 7:
|
|
case CV_ARM64_X0 + 8:
|
|
case CV_ARM64_X0 + 9:
|
|
case CV_ARM64_X0 + 10:
|
|
case CV_ARM64_X0 + 11:
|
|
case CV_ARM64_X0 + 12:
|
|
case CV_ARM64_X0 + 13:
|
|
case CV_ARM64_X0 + 14:
|
|
case CV_ARM64_X0 + 15:
|
|
case CV_ARM64_X0 + 16:
|
|
case CV_ARM64_X0 + 17:
|
|
case CV_ARM64_X0 + 18:
|
|
case CV_ARM64_X0 + 19:
|
|
case CV_ARM64_X0 + 20:
|
|
case CV_ARM64_X0 + 21:
|
|
case CV_ARM64_X0 + 22:
|
|
case CV_ARM64_X0 + 23:
|
|
case CV_ARM64_X0 + 24:
|
|
case CV_ARM64_X0 + 25:
|
|
case CV_ARM64_X0 + 26:
|
|
case CV_ARM64_X0 + 27:
|
|
case CV_ARM64_X0 + 28: *size = sizeof(ctx->u.X[0]); return &ctx->u.X[regno - CV_ARM64_X0];
|
|
case CV_ARM64_PSTATE: *size = sizeof(ctx->Cpsr); return &ctx->Cpsr;
|
|
case CV_ARM64_FP: *size = sizeof(ctx->u.s.Fp); return &ctx->u.s.Fp;
|
|
case CV_ARM64_LR: *size = sizeof(ctx->u.s.Lr); return &ctx->u.s.Lr;
|
|
case CV_ARM64_SP: *size = sizeof(ctx->Sp); return &ctx->Sp;
|
|
case CV_ARM64_PC: *size = sizeof(ctx->Pc); return &ctx->Pc;
|
|
}
|
|
#endif
|
|
FIXME("Unknown register %x\n", regno);
|
|
return NULL;
|
|
}
|
|
|
|
static const char* arm64_fetch_regname(unsigned regno)
|
|
{
|
|
switch (regno)
|
|
{
|
|
case CV_ARM64_PSTATE: return "cpsr";
|
|
case CV_ARM64_X0 + 0: return "x0";
|
|
case CV_ARM64_X0 + 1: return "x1";
|
|
case CV_ARM64_X0 + 2: return "x2";
|
|
case CV_ARM64_X0 + 3: return "x3";
|
|
case CV_ARM64_X0 + 4: return "x4";
|
|
case CV_ARM64_X0 + 5: return "x5";
|
|
case CV_ARM64_X0 + 6: return "x6";
|
|
case CV_ARM64_X0 + 7: return "x7";
|
|
case CV_ARM64_X0 + 8: return "x8";
|
|
case CV_ARM64_X0 + 9: return "x9";
|
|
case CV_ARM64_X0 + 10: return "x10";
|
|
case CV_ARM64_X0 + 11: return "x11";
|
|
case CV_ARM64_X0 + 12: return "x12";
|
|
case CV_ARM64_X0 + 13: return "x13";
|
|
case CV_ARM64_X0 + 14: return "x14";
|
|
case CV_ARM64_X0 + 15: return "x15";
|
|
case CV_ARM64_X0 + 16: return "x16";
|
|
case CV_ARM64_X0 + 17: return "x17";
|
|
case CV_ARM64_X0 + 18: return "x18";
|
|
case CV_ARM64_X0 + 19: return "x19";
|
|
case CV_ARM64_X0 + 20: return "x20";
|
|
case CV_ARM64_X0 + 21: return "x21";
|
|
case CV_ARM64_X0 + 22: return "x22";
|
|
case CV_ARM64_X0 + 23: return "x23";
|
|
case CV_ARM64_X0 + 24: return "x24";
|
|
case CV_ARM64_X0 + 25: return "x25";
|
|
case CV_ARM64_X0 + 26: return "x26";
|
|
case CV_ARM64_X0 + 27: return "x27";
|
|
case CV_ARM64_X0 + 28: return "x28";
|
|
|
|
case CV_ARM64_FP: return "fp";
|
|
case CV_ARM64_LR: return "lr";
|
|
case CV_ARM64_SP: return "sp";
|
|
case CV_ARM64_PC: return "pc";
|
|
}
|
|
FIXME("Unknown register %x\n", regno);
|
|
return NULL;
|
|
}
|
|
|
|
static BOOL arm64_fetch_minidump_thread(struct dump_context* dc, unsigned index, unsigned flags, const CONTEXT* ctx)
|
|
{
|
|
if (ctx->ContextFlags && (flags & ThreadWriteInstructionWindow))
|
|
{
|
|
/* FIXME: crop values across module boundaries, */
|
|
#ifdef __aarch64__
|
|
ULONG base = ctx->Pc <= 0x80 ? 0 : ctx->Pc - 0x80;
|
|
minidump_add_memory_block(dc, base, ctx->Pc + 0x80 - base, 0);
|
|
#endif
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL arm64_fetch_minidump_module(struct dump_context* dc, unsigned index, unsigned flags)
|
|
{
|
|
/* FIXME: actually, we should probably take care of FPO data, unless it's stored in
|
|
* function table minidump stream
|
|
*/
|
|
return FALSE;
|
|
}
|
|
|
|
DECLSPEC_HIDDEN struct cpu cpu_arm64 = {
|
|
IMAGE_FILE_MACHINE_ARM64,
|
|
8,
|
|
CV_ARM64_FP,
|
|
arm64_get_addr,
|
|
arm64_stack_walk,
|
|
NULL,
|
|
arm64_map_dwarf_register,
|
|
arm64_fetch_context_reg,
|
|
arm64_fetch_regname,
|
|
arm64_fetch_minidump_thread,
|
|
arm64_fetch_minidump_module,
|
|
};
|