1429 lines
55 KiB
C
1429 lines
55 KiB
C
/*
|
|
* x86-64 signal handling routines
|
|
*
|
|
* Copyright 1999, 2005 Alexandre Julliard
|
|
*
|
|
* 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
|
|
*/
|
|
|
|
#ifdef __x86_64__
|
|
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
|
|
#define NONAMELESSUNION
|
|
#define NONAMELESSSTRUCT
|
|
#include "ntstatus.h"
|
|
#define WIN32_NO_STATUS
|
|
#include "windef.h"
|
|
#include "winternl.h"
|
|
#include "wine/exception.h"
|
|
#include "wine/list.h"
|
|
#include "ntdll_misc.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(seh);
|
|
|
|
typedef struct _SCOPE_TABLE
|
|
{
|
|
ULONG Count;
|
|
struct
|
|
{
|
|
ULONG BeginAddress;
|
|
ULONG EndAddress;
|
|
ULONG HandlerAddress;
|
|
ULONG JumpTarget;
|
|
} ScopeRecord[1];
|
|
} SCOPE_TABLE, *PSCOPE_TABLE;
|
|
|
|
|
|
/* layering violation: the setjmp buffer is defined in msvcrt, but used by RtlUnwindEx */
|
|
struct MSVCRT_JUMP_BUFFER
|
|
{
|
|
ULONG64 Frame;
|
|
ULONG64 Rbx;
|
|
ULONG64 Rsp;
|
|
ULONG64 Rbp;
|
|
ULONG64 Rsi;
|
|
ULONG64 Rdi;
|
|
ULONG64 R12;
|
|
ULONG64 R13;
|
|
ULONG64 R14;
|
|
ULONG64 R15;
|
|
ULONG64 Rip;
|
|
ULONG64 Spare;
|
|
M128A Xmm6;
|
|
M128A Xmm7;
|
|
M128A Xmm8;
|
|
M128A Xmm9;
|
|
M128A Xmm10;
|
|
M128A Xmm11;
|
|
M128A Xmm12;
|
|
M128A Xmm13;
|
|
M128A Xmm14;
|
|
M128A Xmm15;
|
|
};
|
|
|
|
/***********************************************************************
|
|
* Definitions for Win32 unwind tables
|
|
*/
|
|
|
|
union handler_data
|
|
{
|
|
RUNTIME_FUNCTION chain;
|
|
ULONG handler;
|
|
};
|
|
|
|
struct opcode
|
|
{
|
|
BYTE offset;
|
|
BYTE code : 4;
|
|
BYTE info : 4;
|
|
};
|
|
|
|
struct UNWIND_INFO
|
|
{
|
|
BYTE version : 3;
|
|
BYTE flags : 5;
|
|
BYTE prolog;
|
|
BYTE count;
|
|
BYTE frame_reg : 4;
|
|
BYTE frame_offset : 4;
|
|
struct opcode opcodes[1]; /* info->count entries */
|
|
/* followed by handler_data */
|
|
};
|
|
|
|
#define UWOP_PUSH_NONVOL 0
|
|
#define UWOP_ALLOC_LARGE 1
|
|
#define UWOP_ALLOC_SMALL 2
|
|
#define UWOP_SET_FPREG 3
|
|
#define UWOP_SAVE_NONVOL 4
|
|
#define UWOP_SAVE_NONVOL_FAR 5
|
|
#define UWOP_EPILOG 6
|
|
#define UWOP_SAVE_XMM128 8
|
|
#define UWOP_SAVE_XMM128_FAR 9
|
|
#define UWOP_PUSH_MACHFRAME 10
|
|
|
|
static void dump_unwind_info( ULONG64 base, RUNTIME_FUNCTION *function )
|
|
{
|
|
static const char * const reg_names[16] =
|
|
{ "rax", "rcx", "rdx", "rbx", "rsp", "rbp", "rsi", "rdi",
|
|
"r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15" };
|
|
|
|
union handler_data *handler_data;
|
|
struct UNWIND_INFO *info;
|
|
unsigned int i, count;
|
|
|
|
TRACE( "**** func %x-%x\n", function->BeginAddress, function->EndAddress );
|
|
for (;;)
|
|
{
|
|
if (function->UnwindData & 1)
|
|
{
|
|
RUNTIME_FUNCTION *next = (RUNTIME_FUNCTION *)((char *)base + (function->UnwindData & ~1));
|
|
TRACE( "unwind info for function %p-%p chained to function %p-%p\n",
|
|
(char *)base + function->BeginAddress, (char *)base + function->EndAddress,
|
|
(char *)base + next->BeginAddress, (char *)base + next->EndAddress );
|
|
function = next;
|
|
continue;
|
|
}
|
|
info = (struct UNWIND_INFO *)((char *)base + function->UnwindData);
|
|
|
|
TRACE( "unwind info at %p flags %x prolog 0x%x bytes function %p-%p\n",
|
|
info, info->flags, info->prolog,
|
|
(char *)base + function->BeginAddress, (char *)base + function->EndAddress );
|
|
|
|
if (info->frame_reg)
|
|
TRACE( " frame register %s offset 0x%x(%%rsp)\n",
|
|
reg_names[info->frame_reg], info->frame_offset * 16 );
|
|
|
|
for (i = 0; i < info->count; i++)
|
|
{
|
|
TRACE( " 0x%x: ", info->opcodes[i].offset );
|
|
switch (info->opcodes[i].code)
|
|
{
|
|
case UWOP_PUSH_NONVOL:
|
|
TRACE( "pushq %%%s\n", reg_names[info->opcodes[i].info] );
|
|
break;
|
|
case UWOP_ALLOC_LARGE:
|
|
if (info->opcodes[i].info)
|
|
{
|
|
count = *(DWORD *)&info->opcodes[i+1];
|
|
i += 2;
|
|
}
|
|
else
|
|
{
|
|
count = *(USHORT *)&info->opcodes[i+1] * 8;
|
|
i++;
|
|
}
|
|
TRACE( "subq $0x%x,%%rsp\n", count );
|
|
break;
|
|
case UWOP_ALLOC_SMALL:
|
|
count = (info->opcodes[i].info + 1) * 8;
|
|
TRACE( "subq $0x%x,%%rsp\n", count );
|
|
break;
|
|
case UWOP_SET_FPREG:
|
|
TRACE( "leaq 0x%x(%%rsp),%s\n",
|
|
info->frame_offset * 16, reg_names[info->frame_reg] );
|
|
break;
|
|
case UWOP_SAVE_NONVOL:
|
|
count = *(USHORT *)&info->opcodes[i+1] * 8;
|
|
TRACE( "movq %%%s,0x%x(%%rsp)\n", reg_names[info->opcodes[i].info], count );
|
|
i++;
|
|
break;
|
|
case UWOP_SAVE_NONVOL_FAR:
|
|
count = *(DWORD *)&info->opcodes[i+1];
|
|
TRACE( "movq %%%s,0x%x(%%rsp)\n", reg_names[info->opcodes[i].info], count );
|
|
i += 2;
|
|
break;
|
|
case UWOP_SAVE_XMM128:
|
|
count = *(USHORT *)&info->opcodes[i+1] * 16;
|
|
TRACE( "movaps %%xmm%u,0x%x(%%rsp)\n", info->opcodes[i].info, count );
|
|
i++;
|
|
break;
|
|
case UWOP_SAVE_XMM128_FAR:
|
|
count = *(DWORD *)&info->opcodes[i+1];
|
|
TRACE( "movaps %%xmm%u,0x%x(%%rsp)\n", info->opcodes[i].info, count );
|
|
i += 2;
|
|
break;
|
|
case UWOP_PUSH_MACHFRAME:
|
|
TRACE( "PUSH_MACHFRAME %u\n", info->opcodes[i].info );
|
|
break;
|
|
case UWOP_EPILOG:
|
|
if (info->version == 2)
|
|
{
|
|
unsigned int offset;
|
|
if (info->opcodes[i].info)
|
|
offset = info->opcodes[i].offset;
|
|
else
|
|
offset = (info->opcodes[i+1].info << 8) + info->opcodes[i+1].offset;
|
|
TRACE("epilog %p-%p\n", (char *)base + function->EndAddress - offset,
|
|
(char *)base + function->EndAddress - offset + info->opcodes[i].offset );
|
|
i += 1;
|
|
break;
|
|
}
|
|
default:
|
|
FIXME( "unknown code %u\n", info->opcodes[i].code );
|
|
break;
|
|
}
|
|
}
|
|
|
|
handler_data = (union handler_data *)&info->opcodes[(info->count + 1) & ~1];
|
|
if (info->flags & UNW_FLAG_CHAININFO)
|
|
{
|
|
TRACE( " chained to function %p-%p\n",
|
|
(char *)base + handler_data->chain.BeginAddress,
|
|
(char *)base + handler_data->chain.EndAddress );
|
|
function = &handler_data->chain;
|
|
continue;
|
|
}
|
|
if (info->flags & (UNW_FLAG_EHANDLER | UNW_FLAG_UHANDLER))
|
|
TRACE( " handler %p data at %p\n",
|
|
(char *)base + handler_data->handler, &handler_data->handler + 1 );
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void dump_scope_table( ULONG64 base, const SCOPE_TABLE *table )
|
|
{
|
|
unsigned int i;
|
|
|
|
TRACE( "scope table at %p\n", table );
|
|
for (i = 0; i < table->Count; i++)
|
|
TRACE( " %u: %lx-%lx handler %lx target %lx\n", i,
|
|
base + table->ScopeRecord[i].BeginAddress,
|
|
base + table->ScopeRecord[i].EndAddress,
|
|
base + table->ScopeRecord[i].HandlerAddress,
|
|
base + table->ScopeRecord[i].JumpTarget );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* virtual_unwind
|
|
*/
|
|
static NTSTATUS virtual_unwind( ULONG type, DISPATCHER_CONTEXT *dispatch, CONTEXT *context )
|
|
{
|
|
LDR_DATA_TABLE_ENTRY *module;
|
|
NTSTATUS status;
|
|
|
|
dispatch->ImageBase = 0;
|
|
dispatch->ScopeIndex = 0;
|
|
dispatch->ControlPc = context->Rip;
|
|
|
|
/* first look for PE exception information */
|
|
|
|
if ((dispatch->FunctionEntry = lookup_function_info( context->Rip, &dispatch->ImageBase, &module )))
|
|
{
|
|
dispatch->LanguageHandler = RtlVirtualUnwind( type, dispatch->ImageBase, context->Rip,
|
|
dispatch->FunctionEntry, context,
|
|
&dispatch->HandlerData, &dispatch->EstablisherFrame,
|
|
NULL );
|
|
return STATUS_SUCCESS;
|
|
}
|
|
|
|
/* then look for host system exception information */
|
|
|
|
if (!module || (module->Flags & LDR_WINE_INTERNAL))
|
|
{
|
|
status = unix_funcs->unwind_builtin_dll( type, dispatch, context );
|
|
|
|
if (!status && dispatch->LanguageHandler && !module)
|
|
{
|
|
FIXME( "calling personality routine in system library not supported yet\n" );
|
|
dispatch->LanguageHandler = NULL;
|
|
}
|
|
if (status != STATUS_UNSUCCESSFUL) return status;
|
|
}
|
|
else WARN( "exception data not found in %s\n", debugstr_w(module->BaseDllName.Buffer) );
|
|
|
|
/* no exception information, treat as a leaf function */
|
|
|
|
dispatch->EstablisherFrame = context->Rsp;
|
|
dispatch->LanguageHandler = NULL;
|
|
context->Rip = *(ULONG64 *)context->Rsp;
|
|
context->Rsp = context->Rsp + sizeof(ULONG64);
|
|
return STATUS_SUCCESS;
|
|
}
|
|
|
|
|
|
/**************************************************************************
|
|
* __chkstk (NTDLL.@)
|
|
*
|
|
* Supposed to touch all the stack pages, but we shouldn't need that.
|
|
*/
|
|
__ASM_GLOBAL_FUNC( __chkstk, "ret" );
|
|
|
|
|
|
/***********************************************************************
|
|
* RtlCaptureContext (NTDLL.@)
|
|
*/
|
|
__ASM_GLOBAL_FUNC( RtlCaptureContext,
|
|
"pushfq\n\t"
|
|
__ASM_CFI(".cfi_adjust_cfa_offset 8\n\t")
|
|
"movl $0x001000f,0x30(%rcx)\n\t" /* context->ContextFlags */
|
|
"stmxcsr 0x34(%rcx)\n\t" /* context->MxCsr */
|
|
"movw %cs,0x38(%rcx)\n\t" /* context->SegCs */
|
|
"movw %ds,0x3a(%rcx)\n\t" /* context->SegDs */
|
|
"movw %es,0x3c(%rcx)\n\t" /* context->SegEs */
|
|
"movw %fs,0x3e(%rcx)\n\t" /* context->SegFs */
|
|
"movw %gs,0x40(%rcx)\n\t" /* context->SegGs */
|
|
"movw %ss,0x42(%rcx)\n\t" /* context->SegSs */
|
|
"popq 0x44(%rcx)\n\t" /* context->Eflags */
|
|
__ASM_CFI(".cfi_adjust_cfa_offset -8\n\t")
|
|
"movq %rax,0x78(%rcx)\n\t" /* context->Rax */
|
|
"movq %rcx,0x80(%rcx)\n\t" /* context->Rcx */
|
|
"movq %rdx,0x88(%rcx)\n\t" /* context->Rdx */
|
|
"movq %rbx,0x90(%rcx)\n\t" /* context->Rbx */
|
|
"leaq 8(%rsp),%rax\n\t"
|
|
"movq %rax,0x98(%rcx)\n\t" /* context->Rsp */
|
|
"movq %rbp,0xa0(%rcx)\n\t" /* context->Rbp */
|
|
"movq %rsi,0xa8(%rcx)\n\t" /* context->Rsi */
|
|
"movq %rdi,0xb0(%rcx)\n\t" /* context->Rdi */
|
|
"movq %r8,0xb8(%rcx)\n\t" /* context->R8 */
|
|
"movq %r9,0xc0(%rcx)\n\t" /* context->R9 */
|
|
"movq %r10,0xc8(%rcx)\n\t" /* context->R10 */
|
|
"movq %r11,0xd0(%rcx)\n\t" /* context->R11 */
|
|
"movq %r12,0xd8(%rcx)\n\t" /* context->R12 */
|
|
"movq %r13,0xe0(%rcx)\n\t" /* context->R13 */
|
|
"movq %r14,0xe8(%rcx)\n\t" /* context->R14 */
|
|
"movq %r15,0xf0(%rcx)\n\t" /* context->R15 */
|
|
"movq (%rsp),%rax\n\t"
|
|
"movq %rax,0xf8(%rcx)\n\t" /* context->Rip */
|
|
"fxsave 0x100(%rcx)\n\t" /* context->FtlSave */
|
|
"movdqa %xmm0,0x1a0(%rcx)\n\t" /* context->Xmm0 */
|
|
"movdqa %xmm1,0x1b0(%rcx)\n\t" /* context->Xmm1 */
|
|
"movdqa %xmm2,0x1c0(%rcx)\n\t" /* context->Xmm2 */
|
|
"movdqa %xmm3,0x1d0(%rcx)\n\t" /* context->Xmm3 */
|
|
"movdqa %xmm4,0x1e0(%rcx)\n\t" /* context->Xmm4 */
|
|
"movdqa %xmm5,0x1f0(%rcx)\n\t" /* context->Xmm5 */
|
|
"movdqa %xmm6,0x200(%rcx)\n\t" /* context->Xmm6 */
|
|
"movdqa %xmm7,0x210(%rcx)\n\t" /* context->Xmm7 */
|
|
"movdqa %xmm8,0x220(%rcx)\n\t" /* context->Xmm8 */
|
|
"movdqa %xmm9,0x230(%rcx)\n\t" /* context->Xmm9 */
|
|
"movdqa %xmm10,0x240(%rcx)\n\t" /* context->Xmm10 */
|
|
"movdqa %xmm11,0x250(%rcx)\n\t" /* context->Xmm11 */
|
|
"movdqa %xmm12,0x260(%rcx)\n\t" /* context->Xmm12 */
|
|
"movdqa %xmm13,0x270(%rcx)\n\t" /* context->Xmm13 */
|
|
"movdqa %xmm14,0x280(%rcx)\n\t" /* context->Xmm14 */
|
|
"movdqa %xmm15,0x290(%rcx)\n\t" /* context->Xmm15 */
|
|
"ret" );
|
|
|
|
/******************************************************************************
|
|
* RtlWow64GetThreadContext (NTDLL.@)
|
|
*/
|
|
NTSTATUS WINAPI RtlWow64GetThreadContext( HANDLE handle, WOW64_CONTEXT *context )
|
|
{
|
|
return NtQueryInformationThread( handle, ThreadWow64Context, context, sizeof(*context), NULL );
|
|
}
|
|
|
|
|
|
/******************************************************************************
|
|
* RtlWow64SetThreadContext (NTDLL.@)
|
|
*/
|
|
NTSTATUS WINAPI RtlWow64SetThreadContext( HANDLE handle, const WOW64_CONTEXT *context )
|
|
{
|
|
return NtSetInformationThread( handle, ThreadWow64Context, context, sizeof(*context) );
|
|
}
|
|
|
|
|
|
static DWORD __cdecl nested_exception_handler( EXCEPTION_RECORD *rec, EXCEPTION_REGISTRATION_RECORD *frame,
|
|
CONTEXT *context, EXCEPTION_REGISTRATION_RECORD **dispatcher )
|
|
{
|
|
if (rec->ExceptionFlags & (EH_UNWINDING | EH_EXIT_UNWIND)) return ExceptionContinueSearch;
|
|
|
|
/* FIXME */
|
|
return ExceptionNestedException;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* call_handler
|
|
*
|
|
* Call a single exception handler.
|
|
* FIXME: Handle nested exceptions.
|
|
*/
|
|
static DWORD call_handler( EXCEPTION_RECORD *rec, CONTEXT *context, DISPATCHER_CONTEXT *dispatch )
|
|
{
|
|
EXCEPTION_REGISTRATION_RECORD frame;
|
|
DWORD res;
|
|
|
|
frame.Handler = nested_exception_handler;
|
|
__wine_push_frame( &frame );
|
|
|
|
TRACE( "calling handler %p (rec=%p, frame=0x%lx context=%p, dispatch=%p)\n",
|
|
dispatch->LanguageHandler, rec, dispatch->EstablisherFrame, dispatch->ContextRecord, dispatch );
|
|
res = dispatch->LanguageHandler( rec, (void *)dispatch->EstablisherFrame, context, dispatch );
|
|
TRACE( "handler at %p returned %u\n", dispatch->LanguageHandler, res );
|
|
|
|
rec->ExceptionFlags &= EH_NONCONTINUABLE;
|
|
__wine_pop_frame( &frame );
|
|
return res;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* call_teb_handler
|
|
*
|
|
* Call a single exception handler from the TEB chain.
|
|
* FIXME: Handle nested exceptions.
|
|
*/
|
|
static DWORD call_teb_handler( EXCEPTION_RECORD *rec, CONTEXT *context, DISPATCHER_CONTEXT *dispatch,
|
|
EXCEPTION_REGISTRATION_RECORD *teb_frame )
|
|
{
|
|
DWORD res;
|
|
|
|
TRACE( "calling TEB handler %p (rec=%p, frame=%p context=%p, dispatch=%p)\n",
|
|
teb_frame->Handler, rec, teb_frame, dispatch->ContextRecord, dispatch );
|
|
res = teb_frame->Handler( rec, teb_frame, context, (EXCEPTION_REGISTRATION_RECORD**)dispatch );
|
|
TRACE( "handler at %p returned %u\n", teb_frame->Handler, res );
|
|
return res;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* call_stack_handlers
|
|
*
|
|
* Call the stack handlers chain.
|
|
*/
|
|
static NTSTATUS call_stack_handlers( EXCEPTION_RECORD *rec, CONTEXT *orig_context )
|
|
{
|
|
EXCEPTION_REGISTRATION_RECORD *teb_frame = NtCurrentTeb()->Tib.ExceptionList;
|
|
UNWIND_HISTORY_TABLE table;
|
|
DISPATCHER_CONTEXT dispatch;
|
|
CONTEXT context;
|
|
NTSTATUS status;
|
|
|
|
context = *orig_context;
|
|
dispatch.TargetIp = 0;
|
|
dispatch.ContextRecord = &context;
|
|
dispatch.HistoryTable = &table;
|
|
for (;;)
|
|
{
|
|
status = virtual_unwind( UNW_FLAG_EHANDLER, &dispatch, &context );
|
|
if (status != STATUS_SUCCESS) return status;
|
|
|
|
unwind_done:
|
|
if (!dispatch.EstablisherFrame) break;
|
|
|
|
if ((dispatch.EstablisherFrame & 7) ||
|
|
dispatch.EstablisherFrame < (ULONG64)NtCurrentTeb()->Tib.StackLimit ||
|
|
dispatch.EstablisherFrame > (ULONG64)NtCurrentTeb()->Tib.StackBase)
|
|
{
|
|
ERR( "invalid frame %lx (%p-%p)\n", dispatch.EstablisherFrame,
|
|
NtCurrentTeb()->Tib.StackLimit, NtCurrentTeb()->Tib.StackBase );
|
|
rec->ExceptionFlags |= EH_STACK_INVALID;
|
|
break;
|
|
}
|
|
|
|
if (dispatch.LanguageHandler)
|
|
{
|
|
switch (call_handler( rec, orig_context, &dispatch ))
|
|
{
|
|
case ExceptionContinueExecution:
|
|
if (rec->ExceptionFlags & EH_NONCONTINUABLE) return STATUS_NONCONTINUABLE_EXCEPTION;
|
|
return STATUS_SUCCESS;
|
|
case ExceptionContinueSearch:
|
|
break;
|
|
case ExceptionNestedException:
|
|
FIXME( "nested exception\n" );
|
|
break;
|
|
case ExceptionCollidedUnwind: {
|
|
ULONG64 frame;
|
|
|
|
context = *dispatch.ContextRecord;
|
|
dispatch.ContextRecord = &context;
|
|
RtlVirtualUnwind( UNW_FLAG_NHANDLER, dispatch.ImageBase,
|
|
dispatch.ControlPc, dispatch.FunctionEntry,
|
|
&context, NULL, &frame, NULL );
|
|
goto unwind_done;
|
|
}
|
|
default:
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
}
|
|
/* hack: call wine handlers registered in the tib list */
|
|
else while ((ULONG64)teb_frame < context.Rsp)
|
|
{
|
|
TRACE( "found wine frame %p rsp %lx handler %p\n",
|
|
teb_frame, context.Rsp, teb_frame->Handler );
|
|
dispatch.EstablisherFrame = (ULONG64)teb_frame;
|
|
switch (call_teb_handler( rec, orig_context, &dispatch, teb_frame ))
|
|
{
|
|
case ExceptionContinueExecution:
|
|
if (rec->ExceptionFlags & EH_NONCONTINUABLE) return STATUS_NONCONTINUABLE_EXCEPTION;
|
|
return STATUS_SUCCESS;
|
|
case ExceptionContinueSearch:
|
|
break;
|
|
case ExceptionNestedException:
|
|
FIXME( "nested exception\n" );
|
|
break;
|
|
case ExceptionCollidedUnwind: {
|
|
ULONG64 frame;
|
|
|
|
context = *dispatch.ContextRecord;
|
|
dispatch.ContextRecord = &context;
|
|
RtlVirtualUnwind( UNW_FLAG_NHANDLER, dispatch.ImageBase,
|
|
dispatch.ControlPc, dispatch.FunctionEntry,
|
|
&context, NULL, &frame, NULL );
|
|
teb_frame = teb_frame->Prev;
|
|
goto unwind_done;
|
|
}
|
|
default:
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
teb_frame = teb_frame->Prev;
|
|
}
|
|
|
|
if (context.Rsp == (ULONG64)NtCurrentTeb()->Tib.StackBase) break;
|
|
}
|
|
return STATUS_UNHANDLED_EXCEPTION;
|
|
}
|
|
|
|
|
|
NTSTATUS WINAPI dispatch_exception( EXCEPTION_RECORD *rec, CONTEXT *context )
|
|
{
|
|
NTSTATUS status;
|
|
DWORD c;
|
|
|
|
TRACE( "code=%x flags=%x addr=%p ip=%lx tid=%04x\n",
|
|
rec->ExceptionCode, rec->ExceptionFlags, rec->ExceptionAddress,
|
|
context->Rip, GetCurrentThreadId() );
|
|
for (c = 0; c < min( EXCEPTION_MAXIMUM_PARAMETERS, rec->NumberParameters ); c++)
|
|
TRACE( " info[%d]=%016lx\n", c, rec->ExceptionInformation[c] );
|
|
|
|
if (rec->ExceptionCode == EXCEPTION_WINE_STUB)
|
|
{
|
|
if (rec->ExceptionInformation[1] >> 16)
|
|
MESSAGE( "wine: Call from %p to unimplemented function %s.%s, aborting\n",
|
|
rec->ExceptionAddress,
|
|
(char*)rec->ExceptionInformation[0], (char*)rec->ExceptionInformation[1] );
|
|
else
|
|
MESSAGE( "wine: Call from %p to unimplemented function %s.%ld, aborting\n",
|
|
rec->ExceptionAddress,
|
|
(char*)rec->ExceptionInformation[0], rec->ExceptionInformation[1] );
|
|
}
|
|
else
|
|
{
|
|
TRACE(" rax=%016lx rbx=%016lx rcx=%016lx rdx=%016lx\n",
|
|
context->Rax, context->Rbx, context->Rcx, context->Rdx );
|
|
TRACE(" rsi=%016lx rdi=%016lx rbp=%016lx rsp=%016lx\n",
|
|
context->Rsi, context->Rdi, context->Rbp, context->Rsp );
|
|
TRACE(" r8=%016lx r9=%016lx r10=%016lx r11=%016lx\n",
|
|
context->R8, context->R9, context->R10, context->R11 );
|
|
TRACE(" r12=%016lx r13=%016lx r14=%016lx r15=%016lx\n",
|
|
context->R12, context->R13, context->R14, context->R15 );
|
|
}
|
|
|
|
if (call_vectored_handlers( rec, context ) == EXCEPTION_CONTINUE_EXECUTION)
|
|
NtContinue( context, FALSE );
|
|
|
|
if ((status = call_stack_handlers( rec, context )) == STATUS_SUCCESS)
|
|
NtContinue( context, FALSE );
|
|
|
|
if (status != STATUS_UNHANDLED_EXCEPTION) RtlRaiseStatus( status );
|
|
return NtRaiseException( rec, context, FALSE );
|
|
}
|
|
|
|
|
|
/*******************************************************************
|
|
* KiUserExceptionDispatcher (NTDLL.@)
|
|
*/
|
|
__ASM_GLOBAL_FUNC( KiUserExceptionDispatcher,
|
|
"mov 0x98(%rsp),%rcx\n\t" /* context->Rsp */
|
|
"mov 0xf8(%rsp),%rdx\n\t" /* context->Rip */
|
|
"mov %rdx,-0x8(%rcx)\n\t"
|
|
"mov %rbp,-0x10(%rcx)\n\t"
|
|
"mov %rdi,-0x18(%rcx)\n\t"
|
|
"mov %rsi,-0x20(%rcx)\n\t"
|
|
"lea -0x20(%rcx),%rbp\n\t"
|
|
"mov %rsp,%rdx\n\t" /* context */
|
|
"lea 0x4f0(%rsp),%rcx\n\t" /* rec */
|
|
__ASM_SEH(".seh_pushreg %rbp\n\t")
|
|
__ASM_SEH(".seh_pushreg %rdi\n\t")
|
|
__ASM_SEH(".seh_pushreg %rsi\n\t")
|
|
__ASM_SEH(".seh_setframe %rbp,0\n\t")
|
|
__ASM_SEH(".seh_endprologue\n\t")
|
|
|
|
__ASM_CFI(".cfi_signal_frame\n\t")
|
|
__ASM_CFI(".cfi_adjust_cfa_offset 0x20\n\t")
|
|
__ASM_CFI(".cfi_def_cfa %rbp,0x20\n\t")
|
|
__ASM_CFI(".cfi_rel_offset %rip,0x18\n\t")
|
|
__ASM_CFI(".cfi_rel_offset %rbp,0x10\n\t")
|
|
__ASM_CFI(".cfi_rel_offset %rdi,0x8\n\t")
|
|
__ASM_CFI(".cfi_rel_offset %rsi,0\n\t")
|
|
"call " __ASM_NAME("dispatch_exception") "\n\t"
|
|
"int3")
|
|
|
|
static ULONG64 get_int_reg( CONTEXT *context, int reg )
|
|
{
|
|
return *(&context->Rax + reg);
|
|
}
|
|
|
|
static void set_int_reg( CONTEXT *context, KNONVOLATILE_CONTEXT_POINTERS *ctx_ptr, int reg, ULONG64 *val )
|
|
{
|
|
*(&context->Rax + reg) = *val;
|
|
if (ctx_ptr) ctx_ptr->u2.IntegerContext[reg] = val;
|
|
}
|
|
|
|
static void set_float_reg( CONTEXT *context, KNONVOLATILE_CONTEXT_POINTERS *ctx_ptr, int reg, M128A *val )
|
|
{
|
|
/* Use a memcpy() to avoid issues if val is misaligned. */
|
|
memcpy(&context->u.s.Xmm0 + reg, val, sizeof(*val));
|
|
if (ctx_ptr) ctx_ptr->u.FloatingContext[reg] = val;
|
|
}
|
|
|
|
static int get_opcode_size( struct opcode op )
|
|
{
|
|
switch (op.code)
|
|
{
|
|
case UWOP_ALLOC_LARGE:
|
|
return 2 + (op.info != 0);
|
|
case UWOP_SAVE_NONVOL:
|
|
case UWOP_SAVE_XMM128:
|
|
case UWOP_EPILOG:
|
|
return 2;
|
|
case UWOP_SAVE_NONVOL_FAR:
|
|
case UWOP_SAVE_XMM128_FAR:
|
|
return 3;
|
|
default:
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
static BOOL is_inside_epilog( BYTE *pc, ULONG64 base, const RUNTIME_FUNCTION *function )
|
|
{
|
|
/* add or lea must be the first instruction, and it must have a rex.W prefix */
|
|
if ((pc[0] & 0xf8) == 0x48)
|
|
{
|
|
switch (pc[1])
|
|
{
|
|
case 0x81: /* add $nnnn,%rsp */
|
|
if (pc[0] == 0x48 && pc[2] == 0xc4)
|
|
{
|
|
pc += 7;
|
|
break;
|
|
}
|
|
return FALSE;
|
|
case 0x83: /* add $n,%rsp */
|
|
if (pc[0] == 0x48 && pc[2] == 0xc4)
|
|
{
|
|
pc += 4;
|
|
break;
|
|
}
|
|
return FALSE;
|
|
case 0x8d: /* lea n(reg),%rsp */
|
|
if (pc[0] & 0x06) return FALSE; /* rex.RX must be cleared */
|
|
if (((pc[2] >> 3) & 7) != 4) return FALSE; /* dest reg mus be %rsp */
|
|
if ((pc[2] & 7) == 4) return FALSE; /* no SIB byte allowed */
|
|
if ((pc[2] >> 6) == 1) /* 8-bit offset */
|
|
{
|
|
pc += 4;
|
|
break;
|
|
}
|
|
if ((pc[2] >> 6) == 2) /* 32-bit offset */
|
|
{
|
|
pc += 7;
|
|
break;
|
|
}
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
/* now check for various pop instructions */
|
|
|
|
for (;;)
|
|
{
|
|
if ((*pc & 0xf0) == 0x40) pc++; /* rex prefix */
|
|
|
|
switch (*pc)
|
|
{
|
|
case 0x58: /* pop %rax/%r8 */
|
|
case 0x59: /* pop %rcx/%r9 */
|
|
case 0x5a: /* pop %rdx/%r10 */
|
|
case 0x5b: /* pop %rbx/%r11 */
|
|
case 0x5c: /* pop %rsp/%r12 */
|
|
case 0x5d: /* pop %rbp/%r13 */
|
|
case 0x5e: /* pop %rsi/%r14 */
|
|
case 0x5f: /* pop %rdi/%r15 */
|
|
pc++;
|
|
continue;
|
|
case 0xc2: /* ret $nn */
|
|
case 0xc3: /* ret */
|
|
return TRUE;
|
|
case 0xe9: /* jmp nnnn */
|
|
pc += 5 + *(LONG *)(pc + 1);
|
|
if (pc - (BYTE *)base >= function->BeginAddress && pc - (BYTE *)base < function->EndAddress)
|
|
continue;
|
|
break;
|
|
case 0xeb: /* jmp n */
|
|
pc += 2 + (signed char)pc[1];
|
|
if (pc - (BYTE *)base >= function->BeginAddress && pc - (BYTE *)base < function->EndAddress)
|
|
continue;
|
|
break;
|
|
case 0xf3: /* rep; ret (for amd64 prediction bug) */
|
|
return pc[1] == 0xc3;
|
|
}
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
/* execute a function epilog, which must have been validated with is_inside_epilog() */
|
|
static void interpret_epilog( BYTE *pc, CONTEXT *context, KNONVOLATILE_CONTEXT_POINTERS *ctx_ptr )
|
|
{
|
|
for (;;)
|
|
{
|
|
BYTE rex = 0;
|
|
|
|
if ((*pc & 0xf0) == 0x40) rex = *pc++ & 0x0f; /* rex prefix */
|
|
|
|
switch (*pc)
|
|
{
|
|
case 0x58: /* pop %rax/r8 */
|
|
case 0x59: /* pop %rcx/r9 */
|
|
case 0x5a: /* pop %rdx/r10 */
|
|
case 0x5b: /* pop %rbx/r11 */
|
|
case 0x5c: /* pop %rsp/r12 */
|
|
case 0x5d: /* pop %rbp/r13 */
|
|
case 0x5e: /* pop %rsi/r14 */
|
|
case 0x5f: /* pop %rdi/r15 */
|
|
set_int_reg( context, ctx_ptr, *pc - 0x58 + (rex & 1) * 8, (ULONG64 *)context->Rsp );
|
|
context->Rsp += sizeof(ULONG64);
|
|
pc++;
|
|
continue;
|
|
case 0x81: /* add $nnnn,%rsp */
|
|
context->Rsp += *(LONG *)(pc + 2);
|
|
pc += 2 + sizeof(LONG);
|
|
continue;
|
|
case 0x83: /* add $n,%rsp */
|
|
context->Rsp += (signed char)pc[2];
|
|
pc += 3;
|
|
continue;
|
|
case 0x8d:
|
|
if ((pc[1] >> 6) == 1) /* lea n(reg),%rsp */
|
|
{
|
|
context->Rsp = get_int_reg( context, (pc[1] & 7) + (rex & 1) * 8 ) + (signed char)pc[2];
|
|
pc += 3;
|
|
}
|
|
else /* lea nnnn(reg),%rsp */
|
|
{
|
|
context->Rsp = get_int_reg( context, (pc[1] & 7) + (rex & 1) * 8 ) + *(LONG *)(pc + 2);
|
|
pc += 2 + sizeof(LONG);
|
|
}
|
|
continue;
|
|
case 0xc2: /* ret $nn */
|
|
context->Rip = *(ULONG64 *)context->Rsp;
|
|
context->Rsp += sizeof(ULONG64) + *(WORD *)(pc + 1);
|
|
return;
|
|
case 0xc3: /* ret */
|
|
case 0xf3: /* rep; ret */
|
|
context->Rip = *(ULONG64 *)context->Rsp;
|
|
context->Rsp += sizeof(ULONG64);
|
|
return;
|
|
case 0xe9: /* jmp nnnn */
|
|
pc += 5 + *(LONG *)(pc + 1);
|
|
continue;
|
|
case 0xeb: /* jmp n */
|
|
pc += 2 + (signed char)pc[1];
|
|
continue;
|
|
}
|
|
return;
|
|
}
|
|
}
|
|
|
|
/**********************************************************************
|
|
* RtlVirtualUnwind (NTDLL.@)
|
|
*/
|
|
PVOID WINAPI RtlVirtualUnwind( ULONG type, ULONG64 base, ULONG64 pc,
|
|
RUNTIME_FUNCTION *function, CONTEXT *context,
|
|
PVOID *data, ULONG64 *frame_ret,
|
|
KNONVOLATILE_CONTEXT_POINTERS *ctx_ptr )
|
|
{
|
|
union handler_data *handler_data;
|
|
ULONG64 frame, off;
|
|
struct UNWIND_INFO *info;
|
|
unsigned int i, prolog_offset;
|
|
|
|
TRACE( "type %x rip %lx rsp %lx\n", type, pc, context->Rsp );
|
|
if (TRACE_ON(seh)) dump_unwind_info( base, function );
|
|
|
|
frame = *frame_ret = context->Rsp;
|
|
for (;;)
|
|
{
|
|
info = (struct UNWIND_INFO *)((char *)base + function->UnwindData);
|
|
handler_data = (union handler_data *)&info->opcodes[(info->count + 1) & ~1];
|
|
|
|
if (info->version != 1 && info->version != 2)
|
|
{
|
|
FIXME( "unknown unwind info version %u at %p\n", info->version, info );
|
|
return NULL;
|
|
}
|
|
|
|
if (info->frame_reg)
|
|
frame = get_int_reg( context, info->frame_reg ) - info->frame_offset * 16;
|
|
|
|
/* check if in prolog */
|
|
if (pc >= base + function->BeginAddress && pc < base + function->BeginAddress + info->prolog)
|
|
{
|
|
prolog_offset = pc - base - function->BeginAddress;
|
|
}
|
|
else
|
|
{
|
|
prolog_offset = ~0;
|
|
if (is_inside_epilog( (BYTE *)pc, base, function ))
|
|
{
|
|
interpret_epilog( (BYTE *)pc, context, ctx_ptr );
|
|
*frame_ret = frame;
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < info->count; i += get_opcode_size(info->opcodes[i]))
|
|
{
|
|
if (prolog_offset < info->opcodes[i].offset) continue; /* skip it */
|
|
|
|
switch (info->opcodes[i].code)
|
|
{
|
|
case UWOP_PUSH_NONVOL: /* pushq %reg */
|
|
set_int_reg( context, ctx_ptr, info->opcodes[i].info, (ULONG64 *)context->Rsp );
|
|
context->Rsp += sizeof(ULONG64);
|
|
break;
|
|
case UWOP_ALLOC_LARGE: /* subq $nn,%rsp */
|
|
if (info->opcodes[i].info) context->Rsp += *(DWORD *)&info->opcodes[i+1];
|
|
else context->Rsp += *(USHORT *)&info->opcodes[i+1] * 8;
|
|
break;
|
|
case UWOP_ALLOC_SMALL: /* subq $n,%rsp */
|
|
context->Rsp += (info->opcodes[i].info + 1) * 8;
|
|
break;
|
|
case UWOP_SET_FPREG: /* leaq nn(%rsp),%framereg */
|
|
context->Rsp = *frame_ret = frame;
|
|
break;
|
|
case UWOP_SAVE_NONVOL: /* movq %reg,n(%rsp) */
|
|
off = frame + *(USHORT *)&info->opcodes[i+1] * 8;
|
|
set_int_reg( context, ctx_ptr, info->opcodes[i].info, (ULONG64 *)off );
|
|
break;
|
|
case UWOP_SAVE_NONVOL_FAR: /* movq %reg,nn(%rsp) */
|
|
off = frame + *(DWORD *)&info->opcodes[i+1];
|
|
set_int_reg( context, ctx_ptr, info->opcodes[i].info, (ULONG64 *)off );
|
|
break;
|
|
case UWOP_SAVE_XMM128: /* movaps %xmmreg,n(%rsp) */
|
|
off = frame + *(USHORT *)&info->opcodes[i+1] * 16;
|
|
set_float_reg( context, ctx_ptr, info->opcodes[i].info, (M128A *)off );
|
|
break;
|
|
case UWOP_SAVE_XMM128_FAR: /* movaps %xmmreg,nn(%rsp) */
|
|
off = frame + *(DWORD *)&info->opcodes[i+1];
|
|
set_float_reg( context, ctx_ptr, info->opcodes[i].info, (M128A *)off );
|
|
break;
|
|
case UWOP_PUSH_MACHFRAME:
|
|
FIXME( "PUSH_MACHFRAME %u\n", info->opcodes[i].info );
|
|
break;
|
|
case UWOP_EPILOG:
|
|
if (info->version == 2)
|
|
break; /* nothing to do */
|
|
default:
|
|
FIXME( "unknown code %u\n", info->opcodes[i].code );
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (!(info->flags & UNW_FLAG_CHAININFO)) break;
|
|
function = &handler_data->chain; /* restart with the chained info */
|
|
}
|
|
|
|
/* now pop return address */
|
|
context->Rip = *(ULONG64 *)context->Rsp;
|
|
context->Rsp += sizeof(ULONG64);
|
|
|
|
if (!(info->flags & type)) return NULL; /* no matching handler */
|
|
if (prolog_offset != ~0) return NULL; /* inside prolog */
|
|
|
|
*data = &handler_data->handler + 1;
|
|
return (char *)base + handler_data->handler;
|
|
}
|
|
|
|
struct unwind_exception_frame
|
|
{
|
|
EXCEPTION_REGISTRATION_RECORD frame;
|
|
DISPATCHER_CONTEXT *dispatch;
|
|
};
|
|
|
|
/**********************************************************************
|
|
* unwind_exception_handler
|
|
*
|
|
* Handler for exceptions happening while calling an unwind handler.
|
|
*/
|
|
static DWORD __cdecl unwind_exception_handler( EXCEPTION_RECORD *rec, EXCEPTION_REGISTRATION_RECORD *frame,
|
|
CONTEXT *context, EXCEPTION_REGISTRATION_RECORD **dispatcher )
|
|
{
|
|
struct unwind_exception_frame *unwind_frame = (struct unwind_exception_frame *)frame;
|
|
DISPATCHER_CONTEXT *dispatch = (DISPATCHER_CONTEXT *)dispatcher;
|
|
|
|
/* copy the original dispatcher into the current one, except for the TargetIp */
|
|
dispatch->ControlPc = unwind_frame->dispatch->ControlPc;
|
|
dispatch->ImageBase = unwind_frame->dispatch->ImageBase;
|
|
dispatch->FunctionEntry = unwind_frame->dispatch->FunctionEntry;
|
|
dispatch->EstablisherFrame = unwind_frame->dispatch->EstablisherFrame;
|
|
dispatch->ContextRecord = unwind_frame->dispatch->ContextRecord;
|
|
dispatch->LanguageHandler = unwind_frame->dispatch->LanguageHandler;
|
|
dispatch->HandlerData = unwind_frame->dispatch->HandlerData;
|
|
dispatch->HistoryTable = unwind_frame->dispatch->HistoryTable;
|
|
dispatch->ScopeIndex = unwind_frame->dispatch->ScopeIndex;
|
|
TRACE( "detected collided unwind\n" );
|
|
return ExceptionCollidedUnwind;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* call_unwind_handler
|
|
*
|
|
* Call a single unwind handler.
|
|
*/
|
|
static DWORD call_unwind_handler( EXCEPTION_RECORD *rec, DISPATCHER_CONTEXT *dispatch )
|
|
{
|
|
struct unwind_exception_frame frame;
|
|
DWORD res;
|
|
|
|
frame.frame.Handler = unwind_exception_handler;
|
|
frame.dispatch = dispatch;
|
|
__wine_push_frame( &frame.frame );
|
|
|
|
TRACE( "calling handler %p (rec=%p, frame=0x%lx context=%p, dispatch=%p)\n",
|
|
dispatch->LanguageHandler, rec, dispatch->EstablisherFrame, dispatch->ContextRecord, dispatch );
|
|
res = dispatch->LanguageHandler( rec, (void *)dispatch->EstablisherFrame, dispatch->ContextRecord, dispatch );
|
|
TRACE( "handler %p returned %x\n", dispatch->LanguageHandler, res );
|
|
|
|
__wine_pop_frame( &frame.frame );
|
|
|
|
switch (res)
|
|
{
|
|
case ExceptionContinueSearch:
|
|
case ExceptionCollidedUnwind:
|
|
break;
|
|
default:
|
|
raise_status( STATUS_INVALID_DISPOSITION, rec );
|
|
break;
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* call_teb_unwind_handler
|
|
*
|
|
* Call a single unwind handler from the TEB chain.
|
|
*/
|
|
static DWORD call_teb_unwind_handler( EXCEPTION_RECORD *rec, DISPATCHER_CONTEXT *dispatch,
|
|
EXCEPTION_REGISTRATION_RECORD *teb_frame )
|
|
{
|
|
DWORD res;
|
|
|
|
TRACE( "calling TEB handler %p (rec=%p, frame=%p context=%p, dispatch=%p)\n",
|
|
teb_frame->Handler, rec, teb_frame, dispatch->ContextRecord, dispatch );
|
|
res = teb_frame->Handler( rec, teb_frame, dispatch->ContextRecord, (EXCEPTION_REGISTRATION_RECORD**)dispatch );
|
|
TRACE( "handler at %p returned %u\n", teb_frame->Handler, res );
|
|
|
|
switch (res)
|
|
{
|
|
case ExceptionContinueSearch:
|
|
case ExceptionCollidedUnwind:
|
|
break;
|
|
default:
|
|
raise_status( STATUS_INVALID_DISPOSITION, rec );
|
|
break;
|
|
}
|
|
|
|
return res;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* call_consolidate_callback
|
|
*
|
|
* Wrapper function to call a consolidate callback from a fake frame.
|
|
* If the callback executes RtlUnwindEx (like for example done in C++ handlers),
|
|
* we have to skip all frames which were already processed. To do that we
|
|
* trick the unwinding functions into thinking the call came from somewhere
|
|
* else. All CFI instructions are either DW_CFA_def_cfa_expression or
|
|
* DW_CFA_expression, and the expressions have the following format:
|
|
*
|
|
* DW_OP_breg6; sleb128 0x10 | Load %rbp + 0x10
|
|
* DW_OP_deref | Get *(%rbp + 0x10) == context
|
|
* DW_OP_plus_uconst; uleb128 <OFFSET> | Add offset to get struct member
|
|
* [DW_OP_deref] | Dereference, only for CFA
|
|
*/
|
|
extern void * WINAPI call_consolidate_callback( CONTEXT *context,
|
|
void *(CALLBACK *callback)(EXCEPTION_RECORD *),
|
|
EXCEPTION_RECORD *rec );
|
|
__ASM_GLOBAL_FUNC( call_consolidate_callback,
|
|
"pushq %rbp\n\t"
|
|
__ASM_SEH(".seh_pushreg %rbp\n\t")
|
|
__ASM_CFI(".cfi_adjust_cfa_offset 8\n\t")
|
|
__ASM_CFI(".cfi_rel_offset %rbp,0\n\t")
|
|
"movq %rsp,%rbp\n\t"
|
|
__ASM_SEH(".seh_setframe %rbp,0\n\t")
|
|
__ASM_CFI(".cfi_def_cfa_register %rbp\n\t")
|
|
"subq $0x20,%rsp\n\t"
|
|
__ASM_SEH(".seh_stackalloc 0x20\n\t")
|
|
__ASM_SEH(".seh_endprologue\n\t")
|
|
"movq %rcx,0x10(%rbp)\n\t"
|
|
__ASM_CFI(".cfi_remember_state\n\t")
|
|
__ASM_CFI(".cfi_escape 0x0f,0x07,0x76,0x10,0x06,0x23,0x98,0x01,0x06\n\t") /* CFA */
|
|
__ASM_CFI(".cfi_escape 0x10,0x03,0x06,0x76,0x10,0x06,0x23,0x90,0x01\n\t") /* %rbx */
|
|
__ASM_CFI(".cfi_escape 0x10,0x04,0x06,0x76,0x10,0x06,0x23,0xa8,0x01\n\t") /* %rsi */
|
|
__ASM_CFI(".cfi_escape 0x10,0x05,0x06,0x76,0x10,0x06,0x23,0xb0,0x01\n\t") /* %rdi */
|
|
__ASM_CFI(".cfi_escape 0x10,0x06,0x06,0x76,0x10,0x06,0x23,0xa0,0x01\n\t") /* %rbp */
|
|
__ASM_CFI(".cfi_escape 0x10,0x0c,0x06,0x76,0x10,0x06,0x23,0xd8,0x01\n\t") /* %r12 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x0d,0x06,0x76,0x10,0x06,0x23,0xe0,0x01\n\t") /* %r13 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x0e,0x06,0x76,0x10,0x06,0x23,0xe8,0x01\n\t") /* %r14 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x0f,0x06,0x76,0x10,0x06,0x23,0xf0,0x01\n\t") /* %r15 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x10,0x06,0x76,0x10,0x06,0x23,0xf8,0x01\n\t") /* %rip */
|
|
__ASM_CFI(".cfi_escape 0x10,0x17,0x06,0x76,0x10,0x06,0x23,0x80,0x04\n\t") /* %xmm6 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x18,0x06,0x76,0x10,0x06,0x23,0x90,0x04\n\t") /* %xmm7 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x19,0x06,0x76,0x10,0x06,0x23,0xa0,0x04\n\t") /* %xmm8 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1a,0x06,0x76,0x10,0x06,0x23,0xb0,0x04\n\t") /* %xmm9 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1b,0x06,0x76,0x10,0x06,0x23,0xc0,0x04\n\t") /* %xmm10 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1c,0x06,0x76,0x10,0x06,0x23,0xd0,0x04\n\t") /* %xmm11 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1d,0x06,0x76,0x10,0x06,0x23,0xe0,0x04\n\t") /* %xmm12 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1e,0x06,0x76,0x10,0x06,0x23,0xf0,0x04\n\t") /* %xmm13 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1f,0x06,0x76,0x10,0x06,0x23,0x80,0x05\n\t") /* %xmm14 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x20,0x06,0x76,0x10,0x06,0x23,0x90,0x05\n\t") /* %xmm15 */
|
|
"movq %r8,%rcx\n\t"
|
|
"callq *%rdx\n\t"
|
|
__ASM_CFI(".cfi_restore_state\n\t")
|
|
"leaq 0(%rbp),%rsp\n\t"
|
|
__ASM_CFI(".cfi_def_cfa_register %rsp\n\t")
|
|
"popq %rbp\n\t"
|
|
__ASM_CFI(".cfi_adjust_cfa_offset -8\n\t")
|
|
__ASM_CFI(".cfi_same_value %rbp\n\t")
|
|
"ret")
|
|
|
|
/*******************************************************************
|
|
* RtlRestoreContext (NTDLL.@)
|
|
*/
|
|
void CDECL RtlRestoreContext( CONTEXT *context, EXCEPTION_RECORD *rec )
|
|
{
|
|
EXCEPTION_REGISTRATION_RECORD *teb_frame = NtCurrentTeb()->Tib.ExceptionList;
|
|
|
|
if (rec && rec->ExceptionCode == STATUS_LONGJUMP && rec->NumberParameters >= 1)
|
|
{
|
|
struct MSVCRT_JUMP_BUFFER *jmp = (struct MSVCRT_JUMP_BUFFER *)rec->ExceptionInformation[0];
|
|
context->Rbx = jmp->Rbx;
|
|
context->Rsp = jmp->Rsp;
|
|
context->Rbp = jmp->Rbp;
|
|
context->Rsi = jmp->Rsi;
|
|
context->Rdi = jmp->Rdi;
|
|
context->R12 = jmp->R12;
|
|
context->R13 = jmp->R13;
|
|
context->R14 = jmp->R14;
|
|
context->R15 = jmp->R15;
|
|
context->Rip = jmp->Rip;
|
|
context->u.s.Xmm6 = jmp->Xmm6;
|
|
context->u.s.Xmm7 = jmp->Xmm7;
|
|
context->u.s.Xmm8 = jmp->Xmm8;
|
|
context->u.s.Xmm9 = jmp->Xmm9;
|
|
context->u.s.Xmm10 = jmp->Xmm10;
|
|
context->u.s.Xmm11 = jmp->Xmm11;
|
|
context->u.s.Xmm12 = jmp->Xmm12;
|
|
context->u.s.Xmm13 = jmp->Xmm13;
|
|
context->u.s.Xmm14 = jmp->Xmm14;
|
|
context->u.s.Xmm15 = jmp->Xmm15;
|
|
}
|
|
else if (rec && rec->ExceptionCode == STATUS_UNWIND_CONSOLIDATE && rec->NumberParameters >= 1)
|
|
{
|
|
PVOID (CALLBACK *consolidate)(EXCEPTION_RECORD *) = (void *)rec->ExceptionInformation[0];
|
|
TRACE( "calling consolidate callback %p (rec=%p)\n", consolidate, rec );
|
|
context->Rip = (ULONG64)call_consolidate_callback( context, consolidate, rec );
|
|
}
|
|
|
|
/* hack: remove no longer accessible TEB frames */
|
|
while ((ULONG64)teb_frame < context->Rsp)
|
|
{
|
|
TRACE( "removing TEB frame: %p\n", teb_frame );
|
|
teb_frame = __wine_pop_frame( teb_frame );
|
|
}
|
|
|
|
TRACE( "returning to %lx stack %lx\n", context->Rip, context->Rsp );
|
|
NtSetContextThread( GetCurrentThread(), context );
|
|
}
|
|
|
|
|
|
/*******************************************************************
|
|
* RtlUnwindEx (NTDLL.@)
|
|
*/
|
|
void WINAPI RtlUnwindEx( PVOID end_frame, PVOID target_ip, EXCEPTION_RECORD *rec,
|
|
PVOID retval, CONTEXT *context, UNWIND_HISTORY_TABLE *table )
|
|
{
|
|
EXCEPTION_REGISTRATION_RECORD *teb_frame = NtCurrentTeb()->Tib.ExceptionList;
|
|
EXCEPTION_RECORD record;
|
|
DISPATCHER_CONTEXT dispatch;
|
|
CONTEXT new_context;
|
|
NTSTATUS status;
|
|
DWORD i;
|
|
|
|
RtlCaptureContext( context );
|
|
new_context = *context;
|
|
|
|
/* build an exception record, if we do not have one */
|
|
if (!rec)
|
|
{
|
|
record.ExceptionCode = STATUS_UNWIND;
|
|
record.ExceptionFlags = 0;
|
|
record.ExceptionRecord = NULL;
|
|
record.ExceptionAddress = (void *)context->Rip;
|
|
record.NumberParameters = 0;
|
|
rec = &record;
|
|
}
|
|
|
|
rec->ExceptionFlags |= EH_UNWINDING | (end_frame ? 0 : EH_EXIT_UNWIND);
|
|
|
|
TRACE( "code=%x flags=%x end_frame=%p target_ip=%p rip=%016lx\n",
|
|
rec->ExceptionCode, rec->ExceptionFlags, end_frame, target_ip, context->Rip );
|
|
for (i = 0; i < min( EXCEPTION_MAXIMUM_PARAMETERS, rec->NumberParameters ); i++)
|
|
TRACE( " info[%d]=%016lx\n", i, rec->ExceptionInformation[i] );
|
|
TRACE(" rax=%016lx rbx=%016lx rcx=%016lx rdx=%016lx\n",
|
|
context->Rax, context->Rbx, context->Rcx, context->Rdx );
|
|
TRACE(" rsi=%016lx rdi=%016lx rbp=%016lx rsp=%016lx\n",
|
|
context->Rsi, context->Rdi, context->Rbp, context->Rsp );
|
|
TRACE(" r8=%016lx r9=%016lx r10=%016lx r11=%016lx\n",
|
|
context->R8, context->R9, context->R10, context->R11 );
|
|
TRACE(" r12=%016lx r13=%016lx r14=%016lx r15=%016lx\n",
|
|
context->R12, context->R13, context->R14, context->R15 );
|
|
|
|
dispatch.EstablisherFrame = context->Rsp;
|
|
dispatch.TargetIp = (ULONG64)target_ip;
|
|
dispatch.ContextRecord = context;
|
|
dispatch.HistoryTable = table;
|
|
|
|
for (;;)
|
|
{
|
|
status = virtual_unwind( UNW_FLAG_UHANDLER, &dispatch, &new_context );
|
|
if (status != STATUS_SUCCESS) raise_status( status, rec );
|
|
|
|
unwind_done:
|
|
if (!dispatch.EstablisherFrame) break;
|
|
|
|
if ((dispatch.EstablisherFrame & 7) ||
|
|
dispatch.EstablisherFrame < (ULONG64)NtCurrentTeb()->Tib.StackLimit ||
|
|
dispatch.EstablisherFrame > (ULONG64)NtCurrentTeb()->Tib.StackBase)
|
|
{
|
|
ERR( "invalid frame %lx (%p-%p)\n", dispatch.EstablisherFrame,
|
|
NtCurrentTeb()->Tib.StackLimit, NtCurrentTeb()->Tib.StackBase );
|
|
rec->ExceptionFlags |= EH_STACK_INVALID;
|
|
break;
|
|
}
|
|
|
|
if (dispatch.LanguageHandler)
|
|
{
|
|
if (end_frame && (dispatch.EstablisherFrame > (ULONG64)end_frame))
|
|
{
|
|
ERR( "invalid end frame %lx/%p\n", dispatch.EstablisherFrame, end_frame );
|
|
raise_status( STATUS_INVALID_UNWIND_TARGET, rec );
|
|
}
|
|
if (dispatch.EstablisherFrame == (ULONG64)end_frame) rec->ExceptionFlags |= EH_TARGET_UNWIND;
|
|
if (call_unwind_handler( rec, &dispatch ) == ExceptionCollidedUnwind)
|
|
{
|
|
ULONG64 frame;
|
|
|
|
*context = new_context = *dispatch.ContextRecord;
|
|
dispatch.ContextRecord = context;
|
|
RtlVirtualUnwind( UNW_FLAG_NHANDLER, dispatch.ImageBase,
|
|
dispatch.ControlPc, dispatch.FunctionEntry,
|
|
&new_context, NULL, &frame, NULL );
|
|
rec->ExceptionFlags |= EH_COLLIDED_UNWIND;
|
|
goto unwind_done;
|
|
}
|
|
rec->ExceptionFlags &= ~EH_COLLIDED_UNWIND;
|
|
}
|
|
else /* hack: call builtin handlers registered in the tib list */
|
|
{
|
|
DWORD64 backup_frame = dispatch.EstablisherFrame;
|
|
while ((ULONG64)teb_frame < new_context.Rsp && (ULONG64)teb_frame < (ULONG64)end_frame)
|
|
{
|
|
TRACE( "found builtin frame %p handler %p\n", teb_frame, teb_frame->Handler );
|
|
dispatch.EstablisherFrame = (ULONG64)teb_frame;
|
|
if (call_teb_unwind_handler( rec, &dispatch, teb_frame ) == ExceptionCollidedUnwind)
|
|
{
|
|
ULONG64 frame;
|
|
|
|
teb_frame = __wine_pop_frame( teb_frame );
|
|
|
|
*context = new_context = *dispatch.ContextRecord;
|
|
dispatch.ContextRecord = context;
|
|
RtlVirtualUnwind( UNW_FLAG_NHANDLER, dispatch.ImageBase,
|
|
dispatch.ControlPc, dispatch.FunctionEntry,
|
|
&new_context, NULL, &frame, NULL );
|
|
rec->ExceptionFlags |= EH_COLLIDED_UNWIND;
|
|
goto unwind_done;
|
|
}
|
|
teb_frame = __wine_pop_frame( teb_frame );
|
|
}
|
|
if ((ULONG64)teb_frame == (ULONG64)end_frame && (ULONG64)end_frame < new_context.Rsp) break;
|
|
dispatch.EstablisherFrame = backup_frame;
|
|
}
|
|
|
|
if (dispatch.EstablisherFrame == (ULONG64)end_frame) break;
|
|
*context = new_context;
|
|
}
|
|
|
|
context->Rax = (ULONG64)retval;
|
|
context->Rip = (ULONG64)target_ip;
|
|
RtlRestoreContext(context, rec);
|
|
}
|
|
|
|
|
|
/*******************************************************************
|
|
* RtlUnwind (NTDLL.@)
|
|
*/
|
|
void WINAPI RtlUnwind( void *frame, void *target_ip, EXCEPTION_RECORD *rec, void *retval )
|
|
{
|
|
CONTEXT context;
|
|
RtlUnwindEx( frame, target_ip, rec, retval, &context, NULL );
|
|
}
|
|
|
|
|
|
/*******************************************************************
|
|
* _local_unwind (NTDLL.@)
|
|
*/
|
|
void WINAPI _local_unwind( void *frame, void *target_ip )
|
|
{
|
|
CONTEXT context;
|
|
RtlUnwindEx( frame, target_ip, NULL, NULL, &context, NULL );
|
|
}
|
|
|
|
/*******************************************************************
|
|
* __C_specific_handler (NTDLL.@)
|
|
*/
|
|
EXCEPTION_DISPOSITION WINAPI __C_specific_handler( EXCEPTION_RECORD *rec,
|
|
void *frame,
|
|
CONTEXT *context,
|
|
struct _DISPATCHER_CONTEXT *dispatch )
|
|
{
|
|
SCOPE_TABLE *table = dispatch->HandlerData;
|
|
ULONG i;
|
|
|
|
TRACE( "%p %p %p %p\n", rec, frame, context, dispatch );
|
|
if (TRACE_ON(seh)) dump_scope_table( dispatch->ImageBase, table );
|
|
|
|
if (rec->ExceptionFlags & (EH_UNWINDING | EH_EXIT_UNWIND))
|
|
{
|
|
for (i = dispatch->ScopeIndex; i < table->Count; i++)
|
|
{
|
|
if (dispatch->ControlPc >= dispatch->ImageBase + table->ScopeRecord[i].BeginAddress &&
|
|
dispatch->ControlPc < dispatch->ImageBase + table->ScopeRecord[i].EndAddress)
|
|
{
|
|
PTERMINATION_HANDLER handler;
|
|
|
|
if (table->ScopeRecord[i].JumpTarget) continue;
|
|
|
|
if (rec->ExceptionFlags & EH_TARGET_UNWIND &&
|
|
dispatch->TargetIp >= dispatch->ImageBase + table->ScopeRecord[i].BeginAddress &&
|
|
dispatch->TargetIp < dispatch->ImageBase + table->ScopeRecord[i].EndAddress)
|
|
{
|
|
break;
|
|
}
|
|
|
|
handler = (PTERMINATION_HANDLER)(dispatch->ImageBase + table->ScopeRecord[i].HandlerAddress);
|
|
dispatch->ScopeIndex = i+1;
|
|
|
|
TRACE( "calling __finally %p frame %p\n", handler, frame );
|
|
handler( TRUE, frame );
|
|
}
|
|
}
|
|
return ExceptionContinueSearch;
|
|
}
|
|
|
|
for (i = dispatch->ScopeIndex; i < table->Count; i++)
|
|
{
|
|
if (dispatch->ControlPc >= dispatch->ImageBase + table->ScopeRecord[i].BeginAddress &&
|
|
dispatch->ControlPc < dispatch->ImageBase + table->ScopeRecord[i].EndAddress)
|
|
{
|
|
if (!table->ScopeRecord[i].JumpTarget) continue;
|
|
if (table->ScopeRecord[i].HandlerAddress != EXCEPTION_EXECUTE_HANDLER)
|
|
{
|
|
EXCEPTION_POINTERS ptrs;
|
|
PEXCEPTION_FILTER filter;
|
|
|
|
filter = (PEXCEPTION_FILTER)(dispatch->ImageBase + table->ScopeRecord[i].HandlerAddress);
|
|
ptrs.ExceptionRecord = rec;
|
|
ptrs.ContextRecord = context;
|
|
TRACE( "calling filter %p ptrs %p frame %p\n", filter, &ptrs, frame );
|
|
switch (filter( &ptrs, frame ))
|
|
{
|
|
case EXCEPTION_EXECUTE_HANDLER:
|
|
break;
|
|
case EXCEPTION_CONTINUE_SEARCH:
|
|
continue;
|
|
case EXCEPTION_CONTINUE_EXECUTION:
|
|
return ExceptionContinueExecution;
|
|
}
|
|
}
|
|
TRACE( "unwinding to target %lx\n", dispatch->ImageBase + table->ScopeRecord[i].JumpTarget );
|
|
RtlUnwindEx( frame, (char *)dispatch->ImageBase + table->ScopeRecord[i].JumpTarget,
|
|
rec, 0, dispatch->ContextRecord, dispatch->HistoryTable );
|
|
}
|
|
}
|
|
return ExceptionContinueSearch;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* RtlRaiseException (NTDLL.@)
|
|
*/
|
|
__ASM_GLOBAL_FUNC( RtlRaiseException,
|
|
"sub $0x4f8,%rsp\n\t"
|
|
__ASM_SEH(".seh_stackalloc 0x4f8\n\t")
|
|
__ASM_SEH(".seh_endprologue\n\t")
|
|
__ASM_CFI(".cfi_adjust_cfa_offset 0x4f8\n\t")
|
|
"movq %rcx,0x500(%rsp)\n\t"
|
|
"leaq 0x20(%rsp),%rcx\n\t"
|
|
"call " __ASM_NAME("RtlCaptureContext") "\n\t"
|
|
"leaq 0x20(%rsp),%rdx\n\t" /* context pointer */
|
|
"leaq 0x500(%rsp),%rax\n\t" /* orig stack pointer */
|
|
"movq %rax,0x98(%rdx)\n\t" /* context->Rsp */
|
|
"movq (%rax),%rcx\n\t" /* original first parameter */
|
|
"movq %rcx,0x80(%rdx)\n\t" /* context->Rcx */
|
|
"movq 0x4f8(%rsp),%rax\n\t" /* return address */
|
|
"movq %rax,0xf8(%rdx)\n\t" /* context->Rip */
|
|
"movq %rax,0x10(%rcx)\n\t" /* rec->ExceptionAddress */
|
|
"movl $1,%r8d\n\t"
|
|
"movq %gs:(0x30),%rax\n\t" /* Teb */
|
|
"movq 0x60(%rax),%rax\n\t" /* Peb */
|
|
"cmpb $0,0x02(%rax)\n\t" /* BeingDebugged */
|
|
"jne 1f\n\t"
|
|
"call " __ASM_NAME("dispatch_exception") "\n"
|
|
"1:\tcall " __ASM_NAME("NtRaiseException") "\n\t"
|
|
"movq %rax,%rcx\n\t"
|
|
"call " __ASM_NAME("RtlRaiseStatus") /* does not return */ );
|
|
|
|
|
|
static inline ULONG hash_pointers( void **ptrs, ULONG count )
|
|
{
|
|
/* Based on MurmurHash2, which is in the public domain */
|
|
static const ULONG m = 0x5bd1e995;
|
|
static const ULONG r = 24;
|
|
ULONG hash = count * sizeof(void*);
|
|
for (; count > 0; ptrs++, count--)
|
|
{
|
|
ULONG_PTR data = (ULONG_PTR)*ptrs;
|
|
ULONG k1 = (ULONG)(data & 0xffffffff), k2 = (ULONG)(data >> 32);
|
|
k1 *= m;
|
|
k1 = (k1 ^ (k1 >> r)) * m;
|
|
k2 *= m;
|
|
k2 = (k2 ^ (k2 >> r)) * m;
|
|
hash = (((hash * m) ^ k1) * m) ^ k2;
|
|
}
|
|
hash = (hash ^ (hash >> 13)) * m;
|
|
return hash ^ (hash >> 15);
|
|
}
|
|
|
|
|
|
/*************************************************************************
|
|
* RtlCaptureStackBackTrace (NTDLL.@)
|
|
*/
|
|
USHORT WINAPI RtlCaptureStackBackTrace( ULONG skip, ULONG count, PVOID *buffer, ULONG *hash )
|
|
{
|
|
UNWIND_HISTORY_TABLE table;
|
|
DISPATCHER_CONTEXT dispatch;
|
|
CONTEXT context;
|
|
NTSTATUS status;
|
|
ULONG i;
|
|
USHORT num_entries = 0;
|
|
|
|
TRACE( "(%u, %u, %p, %p)\n", skip, count, buffer, hash );
|
|
|
|
RtlCaptureContext( &context );
|
|
dispatch.TargetIp = 0;
|
|
dispatch.ContextRecord = &context;
|
|
dispatch.HistoryTable = &table;
|
|
if (hash) *hash = 0;
|
|
for (i = 0; i < skip + count; i++)
|
|
{
|
|
status = virtual_unwind( UNW_FLAG_NHANDLER, &dispatch, &context );
|
|
if (status != STATUS_SUCCESS) return i;
|
|
|
|
if (!dispatch.EstablisherFrame) break;
|
|
|
|
if ((dispatch.EstablisherFrame & 7) ||
|
|
dispatch.EstablisherFrame < (ULONG64)NtCurrentTeb()->Tib.StackLimit ||
|
|
dispatch.EstablisherFrame > (ULONG64)NtCurrentTeb()->Tib.StackBase)
|
|
{
|
|
ERR( "invalid frame %lx (%p-%p)\n", dispatch.EstablisherFrame,
|
|
NtCurrentTeb()->Tib.StackLimit, NtCurrentTeb()->Tib.StackBase );
|
|
break;
|
|
}
|
|
|
|
if (context.Rsp == (ULONG64)NtCurrentTeb()->Tib.StackBase) break;
|
|
|
|
if (i >= skip) buffer[num_entries++] = (void *)context.Rip;
|
|
}
|
|
if (hash && num_entries > 0) *hash = hash_pointers( buffer, num_entries );
|
|
TRACE( "captured %hu frames\n", num_entries );
|
|
return num_entries;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* DbgBreakPoint (NTDLL.@)
|
|
*/
|
|
__ASM_STDCALL_FUNC( DbgBreakPoint, 0, "int $3; ret"
|
|
"\n\tnop; nop; nop; nop; nop; nop; nop; nop"
|
|
"\n\tnop; nop; nop; nop; nop; nop" );
|
|
|
|
/**********************************************************************
|
|
* DbgUserBreakPoint (NTDLL.@)
|
|
*/
|
|
__ASM_STDCALL_FUNC( DbgUserBreakPoint, 0, "int $3; ret"
|
|
"\n\tnop; nop; nop; nop; nop; nop; nop; nop"
|
|
"\n\tnop; nop; nop; nop; nop; nop" );
|
|
|
|
#endif /* __x86_64__ */
|