ntdll: Implement RtlVirtualUnwind for arm.
Signed-off-by: Martin Storsjö <martin@martin.st> Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Martin Storsjö
Alexandre Julliard
parent
eeb18e4913
commit
dd1c560752
|
|
@ -12,4 +12,4 @@
|
|||
@ cdecl -arch=arm64,x86_64 RtlRestoreContext(ptr ptr) ntdll.RtlRestoreContext
|
||||
@ stdcall -norelay RtlUnwind(ptr ptr ptr ptr) ntdll.RtlUnwind
|
||||
@ stdcall -arch=arm64,x86_64 RtlUnwindEx(ptr ptr ptr ptr ptr ptr) ntdll.RtlUnwindEx
|
||||
@ stdcall -arch=arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr) ntdll.RtlVirtualUnwind
|
||||
@ stdcall -arch=arm,arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr) ntdll.RtlVirtualUnwind
|
||||
|
|
|
|||
|
|
@ -13,4 +13,4 @@
|
|||
@ cdecl -arch=arm64,x86_64 RtlRestoreContext(ptr ptr) ntdll.RtlRestoreContext
|
||||
@ stdcall -norelay RtlUnwind(ptr ptr ptr ptr) ntdll.RtlUnwind
|
||||
@ stdcall -arch=arm64,x86_64 RtlUnwindEx(ptr ptr ptr ptr ptr ptr) ntdll.RtlUnwindEx
|
||||
@ stdcall -arch=arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr) ntdll.RtlVirtualUnwind
|
||||
@ stdcall -arch=arm,arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr) ntdll.RtlVirtualUnwind
|
||||
|
|
|
|||
|
|
@ -1314,7 +1314,7 @@
|
|||
@ cdecl -arch=arm64,x86_64 RtlRestoreContext(ptr ptr) ntdll.RtlRestoreContext
|
||||
@ stdcall RtlUnwind(ptr ptr ptr long) ntdll.RtlUnwind
|
||||
@ stdcall -arch=arm64,x86_64 RtlUnwindEx(long long ptr long ptr) ntdll.RtlUnwindEx
|
||||
@ stdcall -arch=arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr) ntdll.RtlVirtualUnwind
|
||||
@ stdcall -arch=arm,arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr) ntdll.RtlVirtualUnwind
|
||||
@ stdcall RtlZeroMemory(ptr long) ntdll.RtlZeroMemory
|
||||
@ stdcall -i386 -private -norelay SMapLS() krnl386.exe16.SMapLS
|
||||
@ stdcall -i386 -private -norelay SMapLS_IP_EBP_12() krnl386.exe16.SMapLS_IP_EBP_12
|
||||
|
|
|
|||
|
|
@ -1067,7 +1067,7 @@
|
|||
@ stub RtlValidateProcessHeaps
|
||||
# @ stub RtlValidateUnicodeString
|
||||
@ stdcall RtlVerifyVersionInfo(ptr long int64)
|
||||
@ stdcall -arch=arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr)
|
||||
@ stdcall -arch=arm,arm64,x86_64 RtlVirtualUnwind(long long long ptr ptr ptr ptr ptr)
|
||||
@ stdcall RtlWaitOnAddress(ptr ptr long ptr)
|
||||
@ stdcall RtlWakeAddressAll(ptr)
|
||||
@ stdcall RtlWakeAddressSingle(ptr)
|
||||
|
|
|
|||
|
|
@ -217,6 +217,530 @@ void WINAPI KiUserCallbackDispatcher( ULONG id, void *args, ULONG len )
|
|||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* Definitions for Win32 unwind tables
|
||||
*/
|
||||
|
||||
struct unwind_info
|
||||
{
|
||||
DWORD function_length : 18;
|
||||
DWORD version : 2;
|
||||
DWORD x : 1;
|
||||
DWORD e : 1;
|
||||
DWORD f : 1;
|
||||
DWORD epilog : 5;
|
||||
DWORD codes : 4;
|
||||
};
|
||||
|
||||
struct unwind_info_ext
|
||||
{
|
||||
WORD epilog;
|
||||
BYTE codes;
|
||||
BYTE reserved;
|
||||
};
|
||||
|
||||
struct unwind_info_epilog
|
||||
{
|
||||
DWORD offset : 18;
|
||||
DWORD res : 2;
|
||||
DWORD cond : 4;
|
||||
DWORD index : 8;
|
||||
};
|
||||
|
||||
static const BYTE unwind_code_len[256] =
|
||||
{
|
||||
/* 00 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
|
||||
/* 20 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
|
||||
/* 40 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
|
||||
/* 60 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
|
||||
/* 80 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||||
/* a0 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||||
/* c0 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
|
||||
/* e0 */ 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,4,3,4,1,1,1,1,1
|
||||
};
|
||||
|
||||
static const BYTE unwind_instr_len[256] =
|
||||
{
|
||||
/* 00 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||||
/* 20 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||||
/* 40 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||||
/* 60 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
|
||||
/* 80 */ 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
|
||||
/* a0 */ 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
|
||||
/* c0 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,4,4,4,4,4,
|
||||
/* e0 */ 4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,4,0,0,0,0,0,4,4,2,2,4,4,2,4,2,4,0
|
||||
};
|
||||
|
||||
/***********************************************************************
|
||||
* get_sequence_len
|
||||
*/
|
||||
static unsigned int get_sequence_len( BYTE *ptr, BYTE *end, int include_end )
|
||||
{
|
||||
unsigned int ret = 0;
|
||||
|
||||
while (ptr < end)
|
||||
{
|
||||
if (*ptr >= 0xfd)
|
||||
{
|
||||
if (*ptr <= 0xfe && include_end)
|
||||
ret += unwind_instr_len[*ptr];
|
||||
break;
|
||||
}
|
||||
ret += unwind_instr_len[*ptr];
|
||||
ptr += unwind_code_len[*ptr];
|
||||
}
|
||||
return ret;
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* pop_regs_mask
|
||||
*/
|
||||
static void pop_regs_mask( int mask, CONTEXT *context,
|
||||
KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
||||
{
|
||||
int i;
|
||||
for (i = 0; i <= 12; i++)
|
||||
{
|
||||
if (!(mask & (1 << i))) continue;
|
||||
if (ptrs && i >= 4 && i <= 11) (&ptrs->R4)[i - 4] = (DWORD *)context->Sp;
|
||||
if (i >= 4) (&context->R0)[i] = *(DWORD *)context->Sp;
|
||||
context->Sp += 4;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* pop_regs_range
|
||||
*/
|
||||
static void pop_regs_range( int last, CONTEXT *context,
|
||||
KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
||||
{
|
||||
int i;
|
||||
for (i = 4; i <= last; i++)
|
||||
{
|
||||
if (ptrs) (&ptrs->R4)[i - 4] = (DWORD *)context->Sp;
|
||||
(&context->R0)[i] = *(DWORD *)context->Sp;
|
||||
context->Sp += 4;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* pop_lr
|
||||
*/
|
||||
static void pop_lr( int increment, CONTEXT *context,
|
||||
KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
||||
{
|
||||
if (ptrs) ptrs->Lr = (DWORD *)context->Sp;
|
||||
context->Lr = *(DWORD *)context->Sp;
|
||||
context->Sp += increment;
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* pop_fpregs_range
|
||||
*/
|
||||
static void pop_fpregs_range( int first, int last, CONTEXT *context,
|
||||
KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
||||
{
|
||||
int i;
|
||||
for (i = first; i <= last; i++)
|
||||
{
|
||||
if (ptrs && i >= 8 && i <= 15) (&ptrs->D8)[i - 8] = (ULONGLONG *)context->Sp;
|
||||
context->u.D[i] = *(ULONGLONG *)context->Sp;
|
||||
context->Sp += 8;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* process_unwind_codes
|
||||
*/
|
||||
static void process_unwind_codes( BYTE *ptr, BYTE *end, CONTEXT *context,
|
||||
KNONVOLATILE_CONTEXT_POINTERS *ptrs, int skip )
|
||||
{
|
||||
unsigned int val, len;
|
||||
unsigned int i;
|
||||
|
||||
/* skip codes */
|
||||
while (ptr < end && skip)
|
||||
{
|
||||
if (*ptr >= 0xfd) break;
|
||||
skip -= unwind_instr_len[*ptr];
|
||||
ptr += unwind_code_len[*ptr];
|
||||
}
|
||||
|
||||
while (ptr < end)
|
||||
{
|
||||
len = unwind_code_len[*ptr];
|
||||
if (ptr + len > end) break;
|
||||
val = 0;
|
||||
for (i = 0; i < len; i++)
|
||||
val = (val << 8) | ptr[i];
|
||||
|
||||
if (*ptr <= 0x7f) /* add sp, sp, #x */
|
||||
context->Sp += 4 * (val & 0x7f);
|
||||
else if (*ptr <= 0xbf) /* pop {r0-r12,lr} */
|
||||
{
|
||||
pop_regs_mask( val & 0x1fff, context, ptrs );
|
||||
if (val & 0x2000)
|
||||
pop_lr( 4, context, ptrs );
|
||||
}
|
||||
else if (*ptr <= 0xcf) /* mov sp, rX */
|
||||
context->Sp = (&context->R0)[val & 0x0f];
|
||||
else if (*ptr <= 0xd7) /* pop {r4-rX,lr} */
|
||||
{
|
||||
pop_regs_range( (val & 0x03) + 4, context, ptrs );
|
||||
if (val & 0x04)
|
||||
pop_lr( 4, context, ptrs );
|
||||
}
|
||||
else if (*ptr <= 0xdf) /* pop {r4-rX,lr} */
|
||||
{
|
||||
pop_regs_range( (val & 0x03) + 8, context, ptrs );
|
||||
if (val & 0x04)
|
||||
pop_lr( 4, context, ptrs );
|
||||
}
|
||||
else if (*ptr <= 0xe7) /* vpop {d8-dX} */
|
||||
pop_fpregs_range( 8, (val & 0x07) + 8, context, ptrs );
|
||||
else if (*ptr <= 0xeb) /* add sp, sp, #x */
|
||||
context->Sp += 4 * (val & 0x3ff);
|
||||
else if (*ptr <= 0xed) /* pop {r0-r12,lr} */
|
||||
{
|
||||
pop_regs_mask( val & 0xff, context, ptrs );
|
||||
if (val & 0x100)
|
||||
pop_lr( 4, context, ptrs );
|
||||
}
|
||||
else if (*ptr <= 0xee) /* Microsoft-specific 0x00-0x0f, Available 0x10-0xff */
|
||||
WARN( "unsupported code %02x\n", *ptr );
|
||||
else if (*ptr <= 0xef && ((val & 0xff) <= 0x0f)) /* ldr lr, [sp], #x */
|
||||
pop_lr( 4 * (val & 0x0f), context, ptrs );
|
||||
else if (*ptr <= 0xf4) /* Available */
|
||||
WARN( "unsupported code %02x\n", *ptr );
|
||||
else if (*ptr <= 0xf5) /* vpop {dS-dE} */
|
||||
pop_fpregs_range( (val & 0xf0) >> 4, (val & 0x0f), context, ptrs );
|
||||
else if (*ptr <= 0xf6) /* vpop {dS-dE} */
|
||||
pop_fpregs_range( ((val & 0xf0) >> 4) + 16, (val & 0x0f) + 16, context, ptrs );
|
||||
else if (*ptr == 0xf7 || *ptr == 0xf9) /* add sp, sp, #x */
|
||||
context->Sp += 4 * (val & 0xffff);
|
||||
else if (*ptr == 0xf8 || *ptr == 0xfa) /* add sp, sp, #x */
|
||||
context->Sp += 4 * (val & 0xffffff);
|
||||
else if (*ptr <= 0xfc) /* nop */
|
||||
/* nop */ ;
|
||||
else /* end */
|
||||
break;
|
||||
|
||||
ptr += len;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* unwind_packed_data
|
||||
*/
|
||||
static void *unwind_packed_data( ULONG_PTR base, ULONG_PTR pc, RUNTIME_FUNCTION *func,
|
||||
CONTEXT *context, KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
||||
{
|
||||
int i, pos = 0;
|
||||
int pf = 0, ef = 0, fpoffset = 0, stack = func->u.s.StackAdjust;
|
||||
int prologue_regmask = 0;
|
||||
int epilogue_regmask = 0;
|
||||
unsigned int offset, len;
|
||||
BYTE prologue[10], *prologue_end, epilogue[20], *epilogue_end;
|
||||
|
||||
TRACE( "function %lx-%lx: len=%#x flag=%x ret=%u H=%u reg=%u R=%u L=%u C=%u stackadjust=%x\n",
|
||||
base + func->BeginAddress, base + func->BeginAddress + func->u.s.FunctionLength * 2,
|
||||
func->u.s.FunctionLength, func->u.s.Flag, func->u.s.Ret,
|
||||
func->u.s.H, func->u.s.Reg, func->u.s.R, func->u.s.L, func->u.s.C, func->u.s.StackAdjust );
|
||||
|
||||
offset = (pc - base) - func->BeginAddress;
|
||||
if (func->u.s.StackAdjust >= 0x03f4)
|
||||
{
|
||||
pf = func->u.s.StackAdjust & 0x04;
|
||||
ef = func->u.s.StackAdjust & 0x08;
|
||||
stack = (func->u.s.StackAdjust & 3) + 1;
|
||||
}
|
||||
|
||||
if (!func->u.s.R || pf)
|
||||
{
|
||||
int first = 4, last = func->u.s.Reg + 4;
|
||||
if (pf)
|
||||
{
|
||||
first = (~func->u.s.StackAdjust) & 3;
|
||||
if (func->u.s.R)
|
||||
last = 3;
|
||||
}
|
||||
for (i = first; i <= last; i++)
|
||||
prologue_regmask |= 1 << i;
|
||||
fpoffset = last + 1 - first;
|
||||
}
|
||||
|
||||
if (!func->u.s.R || ef)
|
||||
{
|
||||
int first = 4, last = func->u.s.Reg + 4;
|
||||
if (ef)
|
||||
{
|
||||
first = (~func->u.s.StackAdjust) & 3;
|
||||
if (func->u.s.R)
|
||||
last = 3;
|
||||
}
|
||||
for (i = first; i <= last; i++)
|
||||
epilogue_regmask |= 1 << i;
|
||||
}
|
||||
|
||||
if (func->u.s.C)
|
||||
{
|
||||
prologue_regmask |= 1 << 11;
|
||||
epilogue_regmask |= 1 << 11;
|
||||
}
|
||||
|
||||
if (func->u.s.L)
|
||||
{
|
||||
prologue_regmask |= 1 << 14; /* lr */
|
||||
if (func->u.s.Ret != 0)
|
||||
epilogue_regmask |= 1 << 14; /* lr */
|
||||
else if (!func->u.s.H)
|
||||
epilogue_regmask |= 1 << 15; /* pc */
|
||||
}
|
||||
|
||||
/* Synthesize prologue opcodes */
|
||||
if (stack && !pf)
|
||||
{
|
||||
if (stack <= 0x7f)
|
||||
{
|
||||
prologue[pos++] = stack; /* sub sp, sp, #x */
|
||||
}
|
||||
else
|
||||
{
|
||||
prologue[pos++] = 0xe8 | (stack >> 8); /* sub.w sp, sp, #x */
|
||||
prologue[pos++] = stack & 0xff;
|
||||
}
|
||||
}
|
||||
|
||||
if (func->u.s.R && func->u.s.Reg != 7)
|
||||
prologue[pos++] = 0xe0 | func->u.s.Reg; /* vpush {d8-dX} */
|
||||
|
||||
if (func->u.s.C && fpoffset == 0)
|
||||
prologue[pos++] = 0xfb; /* mov r11, sp - handled as nop16 */
|
||||
else if (func->u.s.C)
|
||||
prologue[pos++] = 0xfc; /* add r11, sp, #x - handled as nop32 */
|
||||
|
||||
if (prologue_regmask & 0xf00) /* r8-r11 set */
|
||||
{
|
||||
int bitmask = prologue_regmask & 0x1fff;
|
||||
if (prologue_regmask & (1 << 14)) /* lr */
|
||||
bitmask |= 0x2000;
|
||||
prologue[pos++] = 0x80 | (bitmask >> 8); /* push.w {r0-r12,lr} */
|
||||
prologue[pos++] = bitmask & 0xff;
|
||||
}
|
||||
else if (prologue_regmask) /* r0-r7, lr set */
|
||||
{
|
||||
int bitmask = prologue_regmask & 0xff;
|
||||
if (prologue_regmask & (1 << 14)) /* lr */
|
||||
bitmask |= 0x100;
|
||||
prologue[pos++] = 0xec | (bitmask >> 8); /* push {r0-r7,lr} */
|
||||
prologue[pos++] = bitmask & 0xff;
|
||||
}
|
||||
|
||||
if (func->u.s.H)
|
||||
prologue[pos++] = 0x04; /* push {r0-r3} - handled as sub sp, sp, #16 */
|
||||
|
||||
prologue[pos++] = 0xff; /* end */
|
||||
prologue_end = &prologue[pos];
|
||||
|
||||
/* Synthesize epilogue opcodes */
|
||||
pos = 0;
|
||||
if (stack && !ef)
|
||||
{
|
||||
if (stack <= 0x7f)
|
||||
{
|
||||
epilogue[pos++] = stack; /* sub sp, sp, #x */
|
||||
}
|
||||
else
|
||||
{
|
||||
epilogue[pos++] = 0xe8 | (stack >> 8); /* sub.w sp, sp, #x */
|
||||
epilogue[pos++] = stack & 0xff;
|
||||
}
|
||||
}
|
||||
|
||||
if (func->u.s.R && func->u.s.Reg != 7)
|
||||
epilogue[pos++] = 0xe0 | func->u.s.Reg; /* vpush {d8-dX} */
|
||||
|
||||
if (epilogue_regmask & 0x7f00) /* r8-r11, lr set */
|
||||
{
|
||||
int bitmask = epilogue_regmask & 0x1fff;
|
||||
if (epilogue_regmask & (3 << 14)) /* lr or pc */
|
||||
bitmask |= 0x2000;
|
||||
epilogue[pos++] = 0x80 | (bitmask >> 8); /* push.w {r0-r12,lr} */
|
||||
epilogue[pos++] = bitmask & 0xff;
|
||||
}
|
||||
else if (epilogue_regmask) /* r0-r7, pc set */
|
||||
{
|
||||
int bitmask = epilogue_regmask & 0xff;
|
||||
if (epilogue_regmask & (1 << 15)) /* pc */
|
||||
bitmask |= 0x100; /* lr */
|
||||
epilogue[pos++] = 0xec | (bitmask >> 8); /* push {r0-r7,lr} */
|
||||
epilogue[pos++] = bitmask & 0xff;
|
||||
}
|
||||
|
||||
if (func->u.s.H && !(func->u.s.L && func->u.s.Ret == 0))
|
||||
epilogue[pos++] = 0x04; /* add sp, sp, #16 */
|
||||
else if (func->u.s.H && (func->u.s.L && func->u.s.Ret == 0))
|
||||
{
|
||||
epilogue[pos++] = 0xef; /* ldr lr, [sp], #20 */
|
||||
epilogue[pos++] = 5;
|
||||
}
|
||||
|
||||
if (func->u.s.Ret == 1)
|
||||
epilogue[pos++] = 0xfd; /* bx lr */
|
||||
else if (func->u.s.Ret == 2)
|
||||
epilogue[pos++] = 0xfe; /* b address */
|
||||
else
|
||||
epilogue[pos++] = 0xff; /* end */
|
||||
epilogue_end = &epilogue[pos];
|
||||
|
||||
if (func->u.s.Flag == 1 && offset < 4 * (prologue_end - prologue)) {
|
||||
/* Check prologue */
|
||||
len = get_sequence_len( prologue, prologue_end, 0 );
|
||||
if (offset < len)
|
||||
{
|
||||
process_unwind_codes( prologue, prologue_end, context, ptrs, len - offset );
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
|
||||
if (func->u.s.Ret != 3 && 2 * func->u.s.FunctionLength - offset <= 4 * (epilogue_end - epilogue)) {
|
||||
/* Check epilogue */
|
||||
len = get_sequence_len( epilogue, epilogue_end, 1 );
|
||||
if (offset >= 2 * func->u.s.FunctionLength - len)
|
||||
{
|
||||
process_unwind_codes( epilogue, epilogue_end, context, ptrs, offset - (2 * func->u.s.FunctionLength - len) );
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
|
||||
/* Execute full prologue */
|
||||
process_unwind_codes( prologue, prologue_end, context, ptrs, 0 );
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* unwind_full_data
|
||||
*/
|
||||
static void *unwind_full_data( ULONG_PTR base, ULONG_PTR pc, RUNTIME_FUNCTION *func,
|
||||
CONTEXT *context, PVOID *handler_data, KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
||||
{
|
||||
struct unwind_info *info;
|
||||
struct unwind_info_epilog *info_epilog;
|
||||
unsigned int i, codes, epilogs, len, offset;
|
||||
void *data;
|
||||
BYTE *end;
|
||||
|
||||
info = (struct unwind_info *)((char *)base + func->u.UnwindData);
|
||||
data = info + 1;
|
||||
epilogs = info->epilog;
|
||||
codes = info->codes;
|
||||
if (!codes && !epilogs)
|
||||
{
|
||||
struct unwind_info_ext *infoex = data;
|
||||
codes = infoex->codes;
|
||||
epilogs = infoex->epilog;
|
||||
data = infoex + 1;
|
||||
}
|
||||
info_epilog = data;
|
||||
if (!info->e) data = info_epilog + epilogs;
|
||||
|
||||
offset = (pc - base) - func->BeginAddress;
|
||||
end = (BYTE *)data + codes * 4;
|
||||
|
||||
TRACE( "function %lx-%lx: len=%#x ver=%u X=%u E=%u F=%u epilogs=%u codes=%u\n",
|
||||
base + func->BeginAddress, base + func->BeginAddress + info->function_length * 4,
|
||||
info->function_length, info->version, info->x, info->e, info->f, epilogs, codes * 4 );
|
||||
|
||||
/* check for prolog */
|
||||
if (offset < codes * 4 * 4 && !info->f)
|
||||
{
|
||||
len = get_sequence_len( data, end, 0 );
|
||||
if (offset < len)
|
||||
{
|
||||
process_unwind_codes( data, end, context, ptrs, len - offset );
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
|
||||
/* check for epilog */
|
||||
if (!info->e)
|
||||
{
|
||||
for (i = 0; i < epilogs; i++)
|
||||
{
|
||||
/* TODO: Currently not checking epilogue conditions. */
|
||||
if (offset < 2 * info_epilog[i].offset) break;
|
||||
if (offset - 2 * info_epilog[i].offset < (codes * 4 - info_epilog[i].index) * 4)
|
||||
{
|
||||
BYTE *ptr = (BYTE *)data + info_epilog[i].index;
|
||||
len = get_sequence_len( ptr, end, 1 );
|
||||
if (offset <= 2 * info_epilog[i].offset + len)
|
||||
{
|
||||
process_unwind_codes( ptr, end, context, ptrs, offset - 2 * info_epilog[i].offset );
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
else if (2 * info->function_length - offset <= (codes * 4 - epilogs) * 4)
|
||||
{
|
||||
BYTE *ptr = (BYTE *)data + epilogs;
|
||||
len = get_sequence_len( ptr, end, 1 );
|
||||
if (offset >= 2 * info->function_length - len)
|
||||
{
|
||||
process_unwind_codes( ptr, end, context, ptrs, offset - (2 * info->function_length - len) );
|
||||
return NULL;
|
||||
}
|
||||
}
|
||||
|
||||
process_unwind_codes( data, end, context, ptrs, 0 );
|
||||
|
||||
/* get handler since we are inside the main code */
|
||||
if (info->x)
|
||||
{
|
||||
DWORD *handler_rva = (DWORD *)data + codes;
|
||||
*handler_data = handler_rva + 1;
|
||||
return (char *)base + *handler_rva;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
/***********************************************************************
|
||||
* RtlVirtualUnwind (NTDLL.@)
|
||||
*/
|
||||
PVOID WINAPI RtlVirtualUnwind( ULONG type, ULONG_PTR base, ULONG_PTR pc,
|
||||
RUNTIME_FUNCTION *func, CONTEXT *context,
|
||||
PVOID *handler_data, ULONG_PTR *frame_ret,
|
||||
KNONVOLATILE_CONTEXT_POINTERS *ctx_ptr )
|
||||
{
|
||||
void *handler;
|
||||
|
||||
TRACE( "type %x pc %lx sp %x func %lx\n", type, pc, context->Sp, base + func->BeginAddress );
|
||||
|
||||
*handler_data = NULL;
|
||||
|
||||
context->Pc = 0;
|
||||
if (func->u.s.Flag)
|
||||
handler = unwind_packed_data( base, pc, func, context, ctx_ptr );
|
||||
else
|
||||
handler = unwind_full_data( base, pc, func, context, handler_data, ctx_ptr );
|
||||
|
||||
TRACE( "ret: lr=%x sp=%x handler=%p\n", context->Lr, context->Sp, handler );
|
||||
if (!context->Pc)
|
||||
context->Pc = context->Lr;
|
||||
context->ContextFlags |= CONTEXT_UNWOUND_TO_CALL;
|
||||
*frame_ret = context->Sp;
|
||||
return handler;
|
||||
}
|
||||
|
||||
|
||||
/***********************************************************************
|
||||
* RtlUnwind (NTDLL.@)
|
||||
*/
|
||||
|
|
|
|||
Loading…
Reference in New Issue