forked from Mirrors/wine-wine
1377 lines
54 KiB
C
1377 lines
54 KiB
C
/*
|
|
* ARM64 signal handling routines
|
|
*
|
|
* Copyright 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
|
|
*/
|
|
|
|
#ifdef __aarch64__
|
|
|
|
#include "config.h"
|
|
#include "wine/port.h"
|
|
|
|
#include <assert.h>
|
|
#include <signal.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#ifdef HAVE_UNISTD_H
|
|
# include <unistd.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_PARAM_H
|
|
# include <sys/param.h>
|
|
#endif
|
|
#ifdef HAVE_SYSCALL_H
|
|
# include <syscall.h>
|
|
#else
|
|
# ifdef HAVE_SYS_SYSCALL_H
|
|
# include <sys/syscall.h>
|
|
# endif
|
|
#endif
|
|
#ifdef HAVE_SYS_SIGNAL_H
|
|
# include <sys/signal.h>
|
|
#endif
|
|
#ifdef HAVE_SYS_UCONTEXT_H
|
|
# include <sys/ucontext.h>
|
|
#endif
|
|
#ifdef HAVE_LIBUNWIND
|
|
# define UNW_LOCAL_ONLY
|
|
# include <libunwind.h>
|
|
#endif
|
|
|
|
#define NONAMELESSUNION
|
|
#define NONAMELESSSTRUCT
|
|
#include "ntstatus.h"
|
|
#define WIN32_NO_STATUS
|
|
#include "windef.h"
|
|
#include "winternl.h"
|
|
#include "wine/exception.h"
|
|
#include "ntdll_misc.h"
|
|
#include "wine/debug.h"
|
|
#include "winnt.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(seh);
|
|
|
|
/* layering violation: the setjmp buffer is defined in msvcrt, but used by RtlUnwindEx */
|
|
struct MSVCRT_JUMP_BUFFER
|
|
{
|
|
unsigned __int64 Frame;
|
|
unsigned __int64 Reserved;
|
|
unsigned __int64 X19;
|
|
unsigned __int64 X20;
|
|
unsigned __int64 X21;
|
|
unsigned __int64 X22;
|
|
unsigned __int64 X23;
|
|
unsigned __int64 X24;
|
|
unsigned __int64 X25;
|
|
unsigned __int64 X26;
|
|
unsigned __int64 X27;
|
|
unsigned __int64 X28;
|
|
unsigned __int64 Fp;
|
|
unsigned __int64 Lr;
|
|
unsigned __int64 Sp;
|
|
unsigned long Fpcr;
|
|
unsigned long Fpsr;
|
|
double D[8];
|
|
};
|
|
|
|
struct arm64_thread_data
|
|
{
|
|
void *exit_frame; /* exit frame pointer */
|
|
CONTEXT *context; /* context to set with SIGUSR2 */
|
|
};
|
|
|
|
C_ASSERT( sizeof(struct arm64_thread_data) <= sizeof(((TEB *)0)->SystemReserved2) );
|
|
C_ASSERT( offsetof( TEB, SystemReserved2 ) + offsetof( struct arm64_thread_data, exit_frame ) == 0x300 );
|
|
|
|
static inline struct arm64_thread_data *arm64_thread_data(void)
|
|
{
|
|
return (struct arm64_thread_data *)NtCurrentTeb()->SystemReserved2;
|
|
}
|
|
|
|
|
|
/*******************************************************************
|
|
* is_valid_frame
|
|
*/
|
|
static inline BOOL is_valid_frame( ULONG_PTR frame )
|
|
{
|
|
if (frame & 7) return FALSE;
|
|
return ((void *)frame >= NtCurrentTeb()->Tib.StackLimit &&
|
|
(void **)frame < (void **)NtCurrentTeb()->Tib.StackBase - 1);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* RtlCaptureContext (NTDLL.@)
|
|
*/
|
|
__ASM_STDCALL_FUNC( RtlCaptureContext, 8,
|
|
"stp x1, x2, [x0, #0x10]\n\t" /* context->X1,X2 */
|
|
"stp x3, x4, [x0, #0x20]\n\t" /* context->X3,X4 */
|
|
"stp x5, x6, [x0, #0x30]\n\t" /* context->X5,X6 */
|
|
"stp x7, x8, [x0, #0x40]\n\t" /* context->X7,X8 */
|
|
"stp x9, x10, [x0, #0x50]\n\t" /* context->X9,X10 */
|
|
"stp x11, x12, [x0, #0x60]\n\t" /* context->X11,X12 */
|
|
"stp x13, x14, [x0, #0x70]\n\t" /* context->X13,X14 */
|
|
"stp x15, x16, [x0, #0x80]\n\t" /* context->X15,X16 */
|
|
"stp x17, x18, [x0, #0x90]\n\t" /* context->X17,X18 */
|
|
"stp x19, x20, [x0, #0xa0]\n\t" /* context->X19,X20 */
|
|
"stp x21, x22, [x0, #0xb0]\n\t" /* context->X21,X22 */
|
|
"stp x23, x24, [x0, #0xc0]\n\t" /* context->X23,X24 */
|
|
"stp x25, x26, [x0, #0xd0]\n\t" /* context->X25,X26 */
|
|
"stp x27, x28, [x0, #0xe0]\n\t" /* context->X27,X28 */
|
|
"stp x29, x30, [x0, #0xf0]\n\t" /* context->Fp,Lr */
|
|
"mov x1, sp\n\t"
|
|
"stp x1, x30, [x0, #0x100]\n\t" /* context->Sp,Pc */
|
|
"mov w1, #0x400000\n\t" /* CONTEXT_ARM64 */
|
|
"add w1, w1, #0x3\n\t" /* CONTEXT_FULL */
|
|
"str w1, [x0]\n\t" /* context->ContextFlags */
|
|
"mrs x1, NZCV\n\t"
|
|
"str w1, [x0, #0x4]\n\t" /* context->Cpsr */
|
|
"ret" )
|
|
|
|
/***********************************************************************
|
|
* set_cpu_context
|
|
*
|
|
* Set the new CPU context.
|
|
*/
|
|
static void set_cpu_context( const CONTEXT *context )
|
|
{
|
|
InterlockedExchangePointer( (void **)&arm64_thread_data()->context, (void *)context );
|
|
raise( SIGUSR2 );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* libunwind_virtual_unwind
|
|
*
|
|
* Equivalent of RtlVirtualUnwind for builtin modules.
|
|
*/
|
|
static NTSTATUS libunwind_virtual_unwind( ULONG_PTR ip, ULONG_PTR *frame, CONTEXT *context,
|
|
PEXCEPTION_ROUTINE *handler, void **handler_data )
|
|
{
|
|
#ifdef HAVE_LIBUNWIND
|
|
unw_context_t unw_context;
|
|
unw_cursor_t cursor;
|
|
unw_proc_info_t info;
|
|
int rc;
|
|
|
|
memcpy( unw_context.uc_mcontext.regs, context->u.X, sizeof(context->u.X) );
|
|
unw_context.uc_mcontext.sp = context->Sp;
|
|
unw_context.uc_mcontext.pc = context->Pc;
|
|
|
|
rc = unw_init_local( &cursor, &unw_context );
|
|
if (rc != UNW_ESUCCESS)
|
|
{
|
|
WARN( "setup failed: %d\n", rc );
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
rc = unw_get_proc_info( &cursor, &info );
|
|
if (rc != UNW_ESUCCESS && rc != -UNW_ENOINFO)
|
|
{
|
|
WARN( "failed to get info: %d\n", rc );
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
if (rc == -UNW_ENOINFO || ip < info.start_ip || ip > info.end_ip)
|
|
{
|
|
TRACE( "no info found for %lx ip %lx-%lx, assuming leaf function\n",
|
|
ip, info.start_ip, info.end_ip );
|
|
*handler = NULL;
|
|
*frame = context->Sp;
|
|
context->Pc = context->u.s.Lr;
|
|
context->Sp = context->Sp + sizeof(ULONG64);
|
|
context->ContextFlags |= CONTEXT_UNWOUND_TO_CALL;
|
|
return STATUS_SUCCESS;
|
|
}
|
|
|
|
TRACE( "ip %#lx function %#lx-%#lx personality %#lx lsda %#lx fde %#lx\n",
|
|
ip, (unsigned long)info.start_ip, (unsigned long)info.end_ip, (unsigned long)info.handler,
|
|
(unsigned long)info.lsda, (unsigned long)info.unwind_info );
|
|
|
|
rc = unw_step( &cursor );
|
|
if (rc < 0)
|
|
{
|
|
WARN( "failed to unwind: %d %d\n", rc, UNW_ENOINFO );
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
|
|
*handler = (void *)info.handler;
|
|
*handler_data = (void *)info.lsda;
|
|
*frame = context->Sp;
|
|
unw_get_reg( &cursor, UNW_AARCH64_X0, (unw_word_t *)&context->u.s.X0 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X1, (unw_word_t *)&context->u.s.X1 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X2, (unw_word_t *)&context->u.s.X2 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X3, (unw_word_t *)&context->u.s.X3 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X4, (unw_word_t *)&context->u.s.X4 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X5, (unw_word_t *)&context->u.s.X5 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X6, (unw_word_t *)&context->u.s.X6 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X7, (unw_word_t *)&context->u.s.X7 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X8, (unw_word_t *)&context->u.s.X8 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X9, (unw_word_t *)&context->u.s.X9 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X10, (unw_word_t *)&context->u.s.X10 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X11, (unw_word_t *)&context->u.s.X11 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X12, (unw_word_t *)&context->u.s.X12 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X13, (unw_word_t *)&context->u.s.X13 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X14, (unw_word_t *)&context->u.s.X14 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X15, (unw_word_t *)&context->u.s.X15 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X16, (unw_word_t *)&context->u.s.X16 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X17, (unw_word_t *)&context->u.s.X17 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X18, (unw_word_t *)&context->u.s.X18 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X19, (unw_word_t *)&context->u.s.X19 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X20, (unw_word_t *)&context->u.s.X20 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X21, (unw_word_t *)&context->u.s.X21 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X22, (unw_word_t *)&context->u.s.X22 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X23, (unw_word_t *)&context->u.s.X23 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X24, (unw_word_t *)&context->u.s.X24 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X25, (unw_word_t *)&context->u.s.X25 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X26, (unw_word_t *)&context->u.s.X26 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X27, (unw_word_t *)&context->u.s.X27 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X28, (unw_word_t *)&context->u.s.X28 );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X29, (unw_word_t *)&context->u.s.Fp );
|
|
unw_get_reg( &cursor, UNW_AARCH64_X30, (unw_word_t *)&context->u.s.Lr );
|
|
unw_get_reg( &cursor, UNW_AARCH64_SP, (unw_word_t *)&context->Sp );
|
|
context->Pc = context->u.s.Lr;
|
|
context->ContextFlags |= CONTEXT_UNWOUND_TO_CALL;
|
|
|
|
TRACE( "next function pc=%016lx%s\n", context->Pc, rc ? "" : " (last frame)" );
|
|
TRACE(" x0=%016lx x1=%016lx x2=%016lx x3=%016lx\n",
|
|
context->u.s.X0, context->u.s.X1, context->u.s.X2, context->u.s.X3 );
|
|
TRACE(" x4=%016lx x5=%016lx x6=%016lx x7=%016lx\n",
|
|
context->u.s.X4, context->u.s.X5, context->u.s.X6, context->u.s.X7 );
|
|
TRACE(" x8=%016lx x9=%016lx x10=%016lx x11=%016lx\n",
|
|
context->u.s.X8, context->u.s.X9, context->u.s.X10, context->u.s.X11 );
|
|
TRACE(" x12=%016lx x13=%016lx x14=%016lx x15=%016lx\n",
|
|
context->u.s.X12, context->u.s.X13, context->u.s.X14, context->u.s.X15 );
|
|
TRACE(" x16=%016lx x17=%016lx x18=%016lx x19=%016lx\n",
|
|
context->u.s.X16, context->u.s.X17, context->u.s.X18, context->u.s.X19 );
|
|
TRACE(" x20=%016lx x21=%016lx x22=%016lx x23=%016lx\n",
|
|
context->u.s.X20, context->u.s.X21, context->u.s.X22, context->u.s.X23 );
|
|
TRACE(" x24=%016lx x25=%016lx x26=%016lx x27=%016lx\n",
|
|
context->u.s.X24, context->u.s.X25, context->u.s.X26, context->u.s.X27 );
|
|
TRACE(" x28=%016lx fp=%016lx lr=%016lx sp=%016lx\n",
|
|
context->u.s.X28, context->u.s.Fp, context->u.s.Lr, context->Sp );
|
|
return STATUS_SUCCESS;
|
|
#else
|
|
return STATUS_INVALID_DISPOSITION;
|
|
#endif
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* 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->EstablisherFrame = 0;
|
|
dispatch->ControlPc = context->Pc;
|
|
/*
|
|
* TODO: CONTEXT_UNWOUND_TO_CALL should be cleared if unwound past a
|
|
* signal frame.
|
|
*/
|
|
dispatch->ControlPcIsUnwound = (context->ContextFlags & CONTEXT_UNWOUND_TO_CALL) != 0;
|
|
|
|
/* first look for PE exception information */
|
|
|
|
if ((dispatch->FunctionEntry = lookup_function_info(
|
|
context->Pc - (dispatch->ControlPcIsUnwound ? 4 : 0),
|
|
&dispatch->ImageBase, &module )))
|
|
{
|
|
dispatch->LanguageHandler = RtlVirtualUnwind( type, dispatch->ImageBase, context->Pc,
|
|
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 = libunwind_virtual_unwind( context->Pc, &dispatch->EstablisherFrame, context,
|
|
&dispatch->LanguageHandler, &dispatch->HandlerData );
|
|
if (status != STATUS_SUCCESS) return status;
|
|
|
|
if (dispatch->EstablisherFrame)
|
|
{
|
|
dispatch->FunctionEntry = NULL;
|
|
if (dispatch->LanguageHandler && !module)
|
|
{
|
|
FIXME( "calling personality routine in system library not supported yet\n" );
|
|
dispatch->LanguageHandler = NULL;
|
|
}
|
|
return STATUS_SUCCESS;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
WARN( "exception data not found in %s\n", debugstr_w(module->BaseDllName.Buffer) );
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
|
|
dispatch->EstablisherFrame = context->u.s.Fp;
|
|
dispatch->LanguageHandler = NULL;
|
|
context->Pc = context->u.s.Lr;
|
|
context->ContextFlags |= CONTEXT_UNWOUND_TO_CALL;
|
|
return STATUS_SUCCESS;
|
|
}
|
|
|
|
|
|
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;
|
|
}
|
|
|
|
|
|
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 );
|
|
|
|
__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_function_handlers
|
|
*
|
|
* Call the per-function handlers.
|
|
*/
|
|
static NTSTATUS call_function_handlers( EXCEPTION_RECORD *rec, CONTEXT *orig_context )
|
|
{
|
|
EXCEPTION_REGISTRATION_RECORD *teb_frame = NtCurrentTeb()->Tib.ExceptionList;
|
|
UNWIND_HISTORY_TABLE table;
|
|
DISPATCHER_CONTEXT dispatch;
|
|
CONTEXT context, prev_context;
|
|
NTSTATUS status;
|
|
|
|
context = *orig_context;
|
|
dispatch.TargetPc = 0;
|
|
dispatch.ContextRecord = &context;
|
|
dispatch.HistoryTable = &table;
|
|
prev_context = context;
|
|
dispatch.NonVolatileRegisters = (BYTE *)&prev_context.u.s.X19;
|
|
|
|
for (;;)
|
|
{
|
|
status = virtual_unwind( UNW_FLAG_EHANDLER, &dispatch, &context );
|
|
if (status != STATUS_SUCCESS) return status;
|
|
|
|
unwind_done:
|
|
if (!dispatch.EstablisherFrame) break;
|
|
|
|
if (!is_valid_frame( dispatch.EstablisherFrame ))
|
|
{
|
|
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, &dispatch.HandlerData, &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.Sp)
|
|
{
|
|
TRACE( "found wine frame %p rsp %lx handler %p\n",
|
|
teb_frame, context.Sp, 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, &dispatch.HandlerData, &frame, NULL );
|
|
teb_frame = teb_frame->Prev;
|
|
goto unwind_done;
|
|
}
|
|
default:
|
|
return STATUS_INVALID_DISPOSITION;
|
|
}
|
|
teb_frame = teb_frame->Prev;
|
|
}
|
|
|
|
if (context.Sp == (ULONG64)NtCurrentTeb()->Tib.StackBase) break;
|
|
prev_context = context;
|
|
}
|
|
return STATUS_UNHANDLED_EXCEPTION;
|
|
}
|
|
|
|
|
|
/*******************************************************************
|
|
* KiUserExceptionDispatcher (NTDLL.@)
|
|
*/
|
|
NTSTATUS WINAPI KiUserExceptionDispatcher( EXCEPTION_RECORD *rec, CONTEXT *context )
|
|
{
|
|
NTSTATUS status;
|
|
DWORD c;
|
|
|
|
TRACE( "code=%x flags=%x addr=%p pc=%lx tid=%04x\n",
|
|
rec->ExceptionCode, rec->ExceptionFlags, rec->ExceptionAddress,
|
|
context->Pc, GetCurrentThreadId() );
|
|
for (c = 0; c < 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(" x0=%016lx x1=%016lx x2=%016lx x3=%016lx\n",
|
|
context->u.s.X0, context->u.s.X1, context->u.s.X2, context->u.s.X3 );
|
|
TRACE(" x4=%016lx x5=%016lx x6=%016lx x7=%016lx\n",
|
|
context->u.s.X4, context->u.s.X5, context->u.s.X6, context->u.s.X7 );
|
|
TRACE(" x8=%016lx x9=%016lx x10=%016lx x11=%016lx\n",
|
|
context->u.s.X8, context->u.s.X9, context->u.s.X10, context->u.s.X11 );
|
|
TRACE(" x12=%016lx x13=%016lx x14=%016lx x15=%016lx\n",
|
|
context->u.s.X12, context->u.s.X13, context->u.s.X14, context->u.s.X15 );
|
|
TRACE(" x16=%016lx x17=%016lx x18=%016lx x19=%016lx\n",
|
|
context->u.s.X16, context->u.s.X17, context->u.s.X18, context->u.s.X19 );
|
|
TRACE(" x20=%016lx x21=%016lx x22=%016lx x23=%016lx\n",
|
|
context->u.s.X20, context->u.s.X21, context->u.s.X22, context->u.s.X23 );
|
|
TRACE(" x24=%016lx x25=%016lx x26=%016lx x27=%016lx\n",
|
|
context->u.s.X24, context->u.s.X25, context->u.s.X26, context->u.s.X27 );
|
|
TRACE(" x28=%016lx fp=%016lx lr=%016lx sp=%016lx\n",
|
|
context->u.s.X28, context->u.s.Fp, context->u.s.Lr, context->Sp );
|
|
}
|
|
|
|
if (call_vectored_handlers( rec, context ) == EXCEPTION_CONTINUE_EXECUTION)
|
|
NtContinue( context, FALSE );
|
|
|
|
if ((status = call_function_handlers( rec, context )) == STATUS_SUCCESS)
|
|
NtContinue( context, FALSE );
|
|
|
|
if (status != STATUS_UNHANDLED_EXCEPTION) RtlRaiseStatus( status );
|
|
return NtRaiseException( rec, context, FALSE );
|
|
}
|
|
|
|
/***********************************************************************
|
|
* Definitions for Win32 unwind tables
|
|
*/
|
|
|
|
struct unwind_info
|
|
{
|
|
DWORD function_length : 18;
|
|
DWORD version : 2;
|
|
DWORD x : 1;
|
|
DWORD e : 1;
|
|
DWORD epilog : 5;
|
|
DWORD codes : 5;
|
|
};
|
|
|
|
struct unwind_info_ext
|
|
{
|
|
WORD epilog;
|
|
BYTE codes;
|
|
BYTE reserved;
|
|
};
|
|
|
|
struct unwind_info_epilog
|
|
{
|
|
DWORD offset : 18;
|
|
DWORD res : 4;
|
|
DWORD index : 10;
|
|
};
|
|
|
|
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 */ 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,
|
|
/* a0 */ 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,
|
|
/* 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,2,2,2,2,2,2,2,2,
|
|
/* e0 */ 4,1,2,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
|
|
};
|
|
|
|
/***********************************************************************
|
|
* get_sequence_len
|
|
*/
|
|
static unsigned int get_sequence_len( BYTE *ptr, BYTE *end )
|
|
{
|
|
unsigned int ret = 0;
|
|
|
|
while (ptr < end)
|
|
{
|
|
if (*ptr == 0xe4 || *ptr == 0xe5) break;
|
|
ptr += unwind_code_len[*ptr];
|
|
ret++;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* restore_regs
|
|
*/
|
|
static void restore_regs( int reg, int count, int pos, CONTEXT *context,
|
|
KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
|
{
|
|
int i, offset = max( 0, pos );
|
|
for (i = 0; i < count; i++)
|
|
{
|
|
if (ptrs && reg + i >= 19) (&ptrs->X19)[reg + i - 19] = (DWORD64 *)context->Sp + i + offset;
|
|
context->u.X[reg + i] = ((DWORD64 *)context->Sp)[i + offset];
|
|
}
|
|
if (pos < 0) context->Sp += -8 * pos;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* restore_fpregs
|
|
*/
|
|
static void restore_fpregs( int reg, int count, int pos, CONTEXT *context,
|
|
KNONVOLATILE_CONTEXT_POINTERS *ptrs )
|
|
{
|
|
int i, offset = max( 0, pos );
|
|
for (i = 0; i < count; i++)
|
|
{
|
|
if (ptrs && reg + i >= 8) (&ptrs->D8)[reg + i - 8] = (DWORD64 *)context->Sp + i + offset;
|
|
context->V[reg + i].D[0] = ((double *)context->Sp)[i + offset];
|
|
}
|
|
if (pos < 0) context->Sp += -8 * pos;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* process_unwind_codes
|
|
*/
|
|
static void process_unwind_codes( BYTE *ptr, BYTE *end, CONTEXT *context,
|
|
KNONVOLATILE_CONTEXT_POINTERS *ptrs, int skip )
|
|
{
|
|
unsigned int val, len, save_next = 2;
|
|
|
|
/* skip codes */
|
|
while (ptr < end && skip)
|
|
{
|
|
if (*ptr == 0xe4 || *ptr == 0xe5) break;
|
|
ptr += unwind_code_len[*ptr];
|
|
skip--;
|
|
}
|
|
|
|
while (ptr < end)
|
|
{
|
|
if ((len = unwind_code_len[*ptr]) > 1)
|
|
{
|
|
if (ptr + len > end) break;
|
|
val = ptr[0] * 0x100 + ptr[1];
|
|
}
|
|
else val = *ptr;
|
|
|
|
if (*ptr < 0x20) /* alloc_s */
|
|
context->Sp += 16 * (val & 0x1f);
|
|
else if (*ptr < 0x40) /* save_r19r20_x */
|
|
restore_regs( 19, save_next, -(val & 0x1f), context, ptrs );
|
|
else if (*ptr < 0x80) /* save_fplr */
|
|
restore_regs( 29, 2, val & 0x3f, context, ptrs );
|
|
else if (*ptr < 0xc0) /* save_fplr_x */
|
|
restore_regs( 29, 2, -(val & 0x3f) - 1, context, ptrs );
|
|
else if (*ptr < 0xc8) /* alloc_m */
|
|
context->Sp += 16 * (val & 0x7ff);
|
|
else if (*ptr < 0xcc) /* save_regp */
|
|
restore_regs( 19 + ((val >> 6) & 0xf), save_next, val & 0x3f, context, ptrs );
|
|
else if (*ptr < 0xd0) /* save_regp_x */
|
|
restore_regs( 19 + ((val >> 6) & 0xf), save_next, -(val & 0x3f) - 1, context, ptrs );
|
|
else if (*ptr < 0xd4) /* save_reg */
|
|
restore_regs( 19 + ((val >> 6) & 0xf), 1, val & 0x3f, context, ptrs );
|
|
else if (*ptr < 0xd6) /* save_reg_x */
|
|
restore_regs( 19 + ((val >> 5) & 0xf), 1, -(val & 0x1f) - 1, context, ptrs );
|
|
else if (*ptr < 0xd8) /* save_lrpair */
|
|
{
|
|
restore_regs( 19 + 2 * ((val >> 6) & 0x7), 1, val & 0x3f, context, ptrs );
|
|
restore_regs( 30, 1, (val & 0x3f) + 1, context, ptrs );
|
|
}
|
|
else if (*ptr < 0xda) /* save_fregp */
|
|
restore_fpregs( 8 + ((val >> 6) & 0x7), save_next, val & 0x3f, context, ptrs );
|
|
else if (*ptr < 0xdc) /* save_fregp_x */
|
|
restore_fpregs( 8 + ((val >> 6) & 0x7), save_next, -(val & 0x3f) - 1, context, ptrs );
|
|
else if (*ptr < 0xde) /* save_freg */
|
|
restore_fpregs( 8 + ((val >> 6) & 0x7), 1, val & 0x3f, context, ptrs );
|
|
else if (*ptr == 0xde) /* save_freg_x */
|
|
restore_fpregs( 8 + ((val >> 5) & 0x7), 1, -(val & 0x3f) - 1, context, ptrs );
|
|
else if (*ptr == 0xe0) /* alloc_l */
|
|
context->Sp += 16 * ((ptr[1] << 16) + (ptr[2] << 8) + ptr[3]);
|
|
else if (*ptr == 0xe1) /* set_fp */
|
|
context->Sp = context->u.s.Fp;
|
|
else if (*ptr == 0xe2) /* add_fp */
|
|
context->Sp = context->u.s.Fp - 8 * (val & 0xff);
|
|
else if (*ptr == 0xe3) /* nop */
|
|
/* nop */ ;
|
|
else if (*ptr == 0xe4) /* end */
|
|
break;
|
|
else if (*ptr == 0xe5) /* end_c */
|
|
break;
|
|
else if (*ptr == 0xe6) /* save_next */
|
|
{
|
|
save_next += 2;
|
|
ptr += len;
|
|
continue;
|
|
}
|
|
else
|
|
{
|
|
WARN( "unsupported code %02x\n", *ptr );
|
|
return;
|
|
}
|
|
save_next = 2;
|
|
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;
|
|
unsigned int len, offset, skip = 0;
|
|
unsigned int int_size = func->u.s.RegI * 8, fp_size = func->u.s.RegF * 8, regsave, local_size;
|
|
unsigned int int_regs, fp_regs, saved_regs, local_size_regs;
|
|
|
|
TRACE( "function %lx-%lx: len=%#x flag=%x regF=%u regI=%u H=%u CR=%u frame=%x\n",
|
|
base + func->BeginAddress, base + func->BeginAddress + func->u.s.FunctionLength * 4,
|
|
func->u.s.FunctionLength, func->u.s.Flag, func->u.s.RegF, func->u.s.RegI,
|
|
func->u.s.H, func->u.s.CR, func->u.s.FrameSize );
|
|
|
|
if (func->u.s.CR == 1) int_size += 8;
|
|
if (func->u.s.RegF) fp_size += 8;
|
|
|
|
regsave = ((int_size + fp_size + 8 * 8 * func->u.s.H) + 0xf) & ~0xf;
|
|
local_size = func->u.s.FrameSize * 16 - regsave;
|
|
|
|
int_regs = int_size / 8;
|
|
fp_regs = fp_size / 8;
|
|
saved_regs = regsave / 8;
|
|
local_size_regs = local_size / 8;
|
|
|
|
/* check for prolog/epilog */
|
|
if (func->u.s.Flag == 1)
|
|
{
|
|
offset = ((pc - base) - func->BeginAddress) / 4;
|
|
if (offset < 17 || offset >= func->u.s.FunctionLength - 15)
|
|
{
|
|
len = (int_size + 8) / 16 + (fp_size + 8) / 16;
|
|
switch (func->u.s.CR)
|
|
{
|
|
case 3:
|
|
len++; /* stp x29,lr,[sp,0] */
|
|
if (local_size <= 512) break;
|
|
/* fall through */
|
|
case 0:
|
|
case 1:
|
|
if (local_size) len++; /* sub sp,sp,#local_size */
|
|
if (local_size > 4088) len++; /* sub sp,sp,#4088 */
|
|
break;
|
|
}
|
|
if (offset < len + 4 * func->u.s.H) /* prolog */
|
|
{
|
|
skip = len + 4 * func->u.s.H - offset;
|
|
}
|
|
else if (offset >= func->u.s.FunctionLength - (len + 1)) /* epilog */
|
|
{
|
|
skip = offset - (func->u.s.FunctionLength - (len + 1));
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!skip)
|
|
{
|
|
if (func->u.s.CR == 3)
|
|
{
|
|
DWORD64 *fp = (DWORD64 *) context->u.s.Fp; /* u.X[29] */
|
|
context->u.X[29] = fp[0];
|
|
context->u.X[30] = fp[1];
|
|
}
|
|
context->Sp += local_size;
|
|
if (fp_size) restore_fpregs( 8, fp_regs, int_regs, context, ptrs );
|
|
if (func->u.s.CR == 1) restore_regs( 30, 1, int_regs - 1, context, ptrs );
|
|
restore_regs( 19, func->u.s.RegI, -saved_regs, context, ptrs );
|
|
}
|
|
else
|
|
{
|
|
unsigned int pos = 0;
|
|
|
|
switch (func->u.s.CR)
|
|
{
|
|
case 3:
|
|
if (local_size <= 512)
|
|
{
|
|
/* stp x29,lr,[sp,-#local_size]! */
|
|
if (pos++ > skip) restore_regs( 29, 2, -local_size_regs, context, ptrs );
|
|
break;
|
|
}
|
|
/* stp x29,lr,[sp,0] */
|
|
if (pos++ > skip) restore_regs( 29, 2, 0, context, ptrs );
|
|
/* fall through */
|
|
case 0:
|
|
case 1:
|
|
if (!local_size) break;
|
|
/* sub sp,sp,#local_size */
|
|
if (pos++ > skip) context->Sp += (local_size - 1) % 4088 + 1;
|
|
if (local_size > 4088 && pos++ > skip) context->Sp += 4088;
|
|
break;
|
|
}
|
|
|
|
if (func->u.s.H && offset < len + 4) pos += 4;
|
|
|
|
if (fp_size)
|
|
{
|
|
if (func->u.s.RegF % 2 == 0 && pos++ > skip)
|
|
/* str d%u,[sp,#fp_size] */
|
|
restore_fpregs( 8 + func->u.s.RegF, 1, int_regs + fp_regs - 1, context, ptrs );
|
|
for (i = func->u.s.RegF / 2 - 1; i >= 0; i--)
|
|
{
|
|
if (pos++ <= skip) continue;
|
|
if (!i && !int_size)
|
|
/* stp d8,d9,[sp,-#regsave]! */
|
|
restore_fpregs( 8, 2, -saved_regs, context, ptrs );
|
|
else
|
|
/* stp dn,dn+1,[sp,#offset] */
|
|
restore_fpregs( 8 + 2 * i, 2, int_regs + 2 * i, context, ptrs );
|
|
}
|
|
}
|
|
|
|
if (pos++ > skip)
|
|
{
|
|
if (func->u.s.RegI % 2)
|
|
{
|
|
/* stp xn,lr,[sp,#offset] */
|
|
if (func->u.s.CR == 1) restore_regs( 30, 1, int_regs - 1, context, ptrs );
|
|
/* str xn,[sp,#offset] */
|
|
restore_regs( 18 + func->u.s.RegI, 1,
|
|
(func->u.s.RegI > 1) ? func->u.s.RegI - 1 : -saved_regs,
|
|
context, ptrs );
|
|
}
|
|
else if (func->u.s.CR == 1)
|
|
/* str lr,[sp,#offset] */
|
|
restore_regs( 30, 1, func->u.s.RegI ? int_regs - 1 : -saved_regs, context, ptrs );
|
|
}
|
|
|
|
for (i = func->u.s.RegI / 2 - 1; i >= 0; i--)
|
|
{
|
|
if (pos++ <= skip) continue;
|
|
if (i)
|
|
/* stp xn,xn+1,[sp,#offset] */
|
|
restore_regs( 19 + 2 * i, 2, 2 * i, context, ptrs );
|
|
else
|
|
/* stp x19,x20,[sp,-#regsave]! */
|
|
restore_regs( 19, 2, -saved_regs, context, ptrs );
|
|
}
|
|
}
|
|
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) / 4;
|
|
end = (BYTE *)data + codes * 4;
|
|
|
|
TRACE( "function %lx-%lx: len=%#x ver=%u X=%u E=%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, epilogs, codes * 4 );
|
|
|
|
/* check for prolog */
|
|
if (offset < codes * 4)
|
|
{
|
|
len = get_sequence_len( data, end );
|
|
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++)
|
|
{
|
|
if (offset < info_epilog[i].offset) break;
|
|
if (offset - info_epilog[i].offset < codes * 4 - info_epilog[i].index)
|
|
{
|
|
BYTE *ptr = (BYTE *)data + info_epilog[i].index;
|
|
len = get_sequence_len( ptr, end );
|
|
if (offset <= info_epilog[i].offset + len)
|
|
{
|
|
process_unwind_codes( ptr, end, context, ptrs, offset - info_epilog[i].offset );
|
|
return NULL;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else if (info->function_length - offset <= codes * 4 - epilogs)
|
|
{
|
|
BYTE *ptr = (BYTE *)data + epilogs;
|
|
len = get_sequence_len( ptr, end ) + 1;
|
|
if (offset >= info->function_length - len)
|
|
{
|
|
process_unwind_codes( ptr, end, context, ptrs, offset - (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 %lx func %lx\n", type, pc, context->Sp, base + func->BeginAddress );
|
|
|
|
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=%lx sp=%lx handler=%p\n", context->u.s.Lr, context->Sp, handler );
|
|
context->Pc = context->u.s.Lr;
|
|
context->ContextFlags |= CONTEXT_UNWOUND_TO_CALL;
|
|
*frame_ret = context->Sp;
|
|
return handler;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* 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_breg29; sleb128 0x10 | Load x29 + 0x10
|
|
* DW_OP_deref | Get *(x29 + 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,
|
|
TEB *teb );
|
|
__ASM_GLOBAL_FUNC( call_consolidate_callback,
|
|
"stp x29, x30, [sp, #-0x20]!\n\t"
|
|
__ASM_CFI(".cfi_def_cfa_offset 32\n\t")
|
|
__ASM_CFI(".cfi_offset 29, -32\n\t")
|
|
__ASM_CFI(".cfi_offset 30, -24\n\t")
|
|
"mov x29, sp\n\t"
|
|
__ASM_CFI(".cfi_def_cfa_register 29\n\t")
|
|
"str x0, [sp, 0x10]\n\t"
|
|
__ASM_CFI(".cfi_remember_state\n\t")
|
|
__ASM_CFI(".cfi_escape 0x0f,0x07,0x8d,0x10,0x06,0x23,0x80,0x02,0x06\n\t") /* CFA */
|
|
__ASM_CFI(".cfi_escape 0x10,0x13,0x06,0x8d,0x10,0x06,0x23,0xa0,0x01\n\t") /* x19 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x14,0x06,0x8d,0x10,0x06,0x23,0xa8,0x01\n\t") /* x20 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x15,0x06,0x8d,0x10,0x06,0x23,0xb0,0x01\n\t") /* x21 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x16,0x06,0x8d,0x10,0x06,0x23,0xb8,0x01\n\t") /* x22 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x17,0x06,0x8d,0x10,0x06,0x23,0xc0,0x01\n\t") /* x23 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x18,0x06,0x8d,0x10,0x06,0x23,0xc8,0x01\n\t") /* x24 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x19,0x06,0x8d,0x10,0x06,0x23,0xd0,0x01\n\t") /* x25 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1a,0x06,0x8d,0x10,0x06,0x23,0xd8,0x01\n\t") /* x26 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1b,0x06,0x8d,0x10,0x06,0x23,0xe0,0x01\n\t") /* x27 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1c,0x06,0x8d,0x10,0x06,0x23,0xe8,0x01\n\t") /* x28 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1d,0x06,0x8d,0x10,0x06,0x23,0xf0,0x01\n\t") /* x29 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x1e,0x06,0x8d,0x10,0x06,0x23,0xf8,0x01\n\t") /* x30 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x48,0x06,0x8d,0x10,0x06,0x23,0x90,0x03\n\t") /* d8 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x49,0x06,0x8d,0x10,0x06,0x23,0xa0,0x03\n\t") /* d9 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x4a,0x06,0x8d,0x10,0x06,0x23,0xb0,0x03\n\t") /* d10 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x4b,0x06,0x8d,0x10,0x06,0x23,0xc0,0x03\n\t") /* d11 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x4c,0x06,0x8d,0x10,0x06,0x23,0xd0,0x03\n\t") /* d12 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x4d,0x06,0x8d,0x10,0x06,0x23,0xe0,0x03\n\t") /* d13 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x4e,0x06,0x8d,0x10,0x06,0x23,0xf0,0x03\n\t") /* d14 */
|
|
__ASM_CFI(".cfi_escape 0x10,0x4f,0x06,0x8d,0x10,0x06,0x23,0x80,0x04\n\t") /* d15 */
|
|
"mov x0, x2\n\t"
|
|
"mov x18, x3\n\t"
|
|
"blr x1\n\t"
|
|
__ASM_CFI(".cfi_restore_state\n\t")
|
|
"ldp x29, x30, [sp], #32\n\t"
|
|
__ASM_CFI(".cfi_restore 30\n\t")
|
|
__ASM_CFI(".cfi_restore 29\n\t")
|
|
__ASM_CFI(".cfi_def_cfa 31, 0\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];
|
|
int i;
|
|
|
|
context->u.s.X19 = jmp->X19;
|
|
context->u.s.X20 = jmp->X20;
|
|
context->u.s.X21 = jmp->X21;
|
|
context->u.s.X22 = jmp->X22;
|
|
context->u.s.X23 = jmp->X23;
|
|
context->u.s.X24 = jmp->X24;
|
|
context->u.s.X25 = jmp->X25;
|
|
context->u.s.X26 = jmp->X26;
|
|
context->u.s.X27 = jmp->X27;
|
|
context->u.s.X28 = jmp->X28;
|
|
context->u.s.Fp = jmp->Fp;
|
|
context->u.s.Lr = jmp->Lr;
|
|
context->Sp = jmp->Sp;
|
|
context->Fpcr = jmp->Fpcr;
|
|
context->Fpsr = jmp->Fpsr;
|
|
|
|
for (i = 0; i < 8; i++)
|
|
context->V[8+i].D[0] = jmp->D[0];
|
|
}
|
|
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 );
|
|
rec->ExceptionInformation[10] = (ULONG_PTR)&context->u.s.X19;
|
|
|
|
context->Pc = (ULONG64)call_consolidate_callback( context, consolidate, rec, NtCurrentTeb() );
|
|
}
|
|
|
|
/* hack: remove no longer accessible TEB frames */
|
|
while ((ULONG64)teb_frame < context->Sp)
|
|
{
|
|
TRACE( "removing TEB frame: %p\n", teb_frame );
|
|
teb_frame = __wine_pop_frame( teb_frame );
|
|
}
|
|
|
|
TRACE( "returning to %lx stack %lx\n", context->Pc, context->Sp );
|
|
set_cpu_context( 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->Pc;
|
|
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 pc=%016lx\n",
|
|
rec->ExceptionCode, rec->ExceptionFlags, end_frame, target_ip, context->Pc );
|
|
for (i = 0; i < min( EXCEPTION_MAXIMUM_PARAMETERS, rec->NumberParameters ); i++)
|
|
TRACE( " info[%d]=%016lx\n", i, rec->ExceptionInformation[i] );
|
|
TRACE(" x0=%016lx x1=%016lx x2=%016lx x3=%016lx\n",
|
|
context->u.s.X0, context->u.s.X1, context->u.s.X2, context->u.s.X3 );
|
|
TRACE(" x4=%016lx x5=%016lx x6=%016lx x7=%016lx\n",
|
|
context->u.s.X4, context->u.s.X5, context->u.s.X6, context->u.s.X7 );
|
|
TRACE(" x8=%016lx x9=%016lx x10=%016lx x11=%016lx\n",
|
|
context->u.s.X8, context->u.s.X9, context->u.s.X10, context->u.s.X11 );
|
|
TRACE(" x12=%016lx x13=%016lx x14=%016lx x15=%016lx\n",
|
|
context->u.s.X12, context->u.s.X13, context->u.s.X14, context->u.s.X15 );
|
|
TRACE(" x16=%016lx x17=%016lx x18=%016lx x19=%016lx\n",
|
|
context->u.s.X16, context->u.s.X17, context->u.s.X18, context->u.s.X19 );
|
|
TRACE(" x20=%016lx x21=%016lx x22=%016lx x23=%016lx\n",
|
|
context->u.s.X20, context->u.s.X21, context->u.s.X22, context->u.s.X23 );
|
|
TRACE(" x24=%016lx x25=%016lx x26=%016lx x27=%016lx\n",
|
|
context->u.s.X24, context->u.s.X25, context->u.s.X26, context->u.s.X27 );
|
|
TRACE(" x28=%016lx fp=%016lx lr=%016lx sp=%016lx\n",
|
|
context->u.s.X28, context->u.s.Fp, context->u.s.Lr, context->Sp );
|
|
|
|
dispatch.TargetPc = (ULONG64)target_ip;
|
|
dispatch.ContextRecord = context;
|
|
dispatch.HistoryTable = table;
|
|
dispatch.NonVolatileRegisters = (BYTE *)&context->u.s.X19;
|
|
|
|
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 (!is_valid_frame( dispatch.EstablisherFrame ))
|
|
{
|
|
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, &dispatch.HandlerData, &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.Sp && (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, &dispatch.HandlerData,
|
|
&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.Sp) break;
|
|
dispatch.EstablisherFrame = backup_frame;
|
|
}
|
|
|
|
if (dispatch.EstablisherFrame == (ULONG64)end_frame) break;
|
|
*context = new_context;
|
|
}
|
|
|
|
context->u.s.X0 = (ULONG64)retval;
|
|
context->Pc = (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 );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* RtlRaiseException (NTDLL.@)
|
|
*/
|
|
__ASM_STDCALL_FUNC( RtlRaiseException, 4,
|
|
"sub sp, sp, #0x3b0\n\t" /* 0x390 (context) + 0x20 */
|
|
"stp x29, x30, [sp]\n\t"
|
|
__ASM_CFI(".cfi_def_cfa x29, 944\n\t")
|
|
__ASM_CFI(".cfi_offset x30, -936\n\t")
|
|
__ASM_CFI(".cfi_offset x29, -944\n\t")
|
|
"mov x29, sp\n\t"
|
|
"str x0, [sp, #0x10]\n\t"
|
|
"add x0, sp, #0x20\n\t"
|
|
"bl " __ASM_NAME("RtlCaptureContext") "\n\t"
|
|
"add x1, sp, #0x20\n\t" /* context pointer */
|
|
"add x2, sp, #0x3b0\n\t" /* orig stack pointer */
|
|
"str x2, [x1, #0x100]\n\t" /* context->Sp */
|
|
"ldr x0, [sp, #0x10]\n\t" /* original first parameter */
|
|
"str x0, [x1, #0x08]\n\t" /* context->X0 */
|
|
"ldp x4, x5, [sp]\n\t" /* frame pointer, return address */
|
|
"stp x4, x5, [x1, #0xf0]\n\t" /* context->Fp, Lr */
|
|
"str x5, [x1, #0x108]\n\t" /* context->Pc */
|
|
"str x5, [x1, #0x108]\n\t" /* context->Pc */
|
|
"str x5, [x0, #0x10]\n\t" /* rec->ExceptionAddress */
|
|
"mov x2, #1\n\t"
|
|
"bl " __ASM_NAME("NtRaiseException") "\n\t"
|
|
"bl " __ASM_NAME("RtlRaiseStatus") /* does not return */ );
|
|
|
|
/*************************************************************************
|
|
* RtlCaptureStackBackTrace (NTDLL.@)
|
|
*/
|
|
USHORT WINAPI RtlCaptureStackBackTrace( ULONG skip, ULONG count, PVOID *buffer, ULONG *hash )
|
|
{
|
|
FIXME( "(%d, %d, %p, %p) stub!\n", skip, count, buffer, hash );
|
|
return 0;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* DbgBreakPoint (NTDLL.@)
|
|
*/
|
|
__ASM_STDCALL_FUNC( DbgBreakPoint, 0, "brk #0; ret")
|
|
|
|
/**********************************************************************
|
|
* DbgUserBreakPoint (NTDLL.@)
|
|
*/
|
|
__ASM_STDCALL_FUNC( DbgUserBreakPoint, 0, "brk #0; ret")
|
|
|
|
/**********************************************************************
|
|
* NtCurrentTeb (NTDLL.@)
|
|
*/
|
|
TEB * WINAPI NtCurrentTeb(void)
|
|
{
|
|
return unix_funcs->NtCurrentTeb();
|
|
}
|
|
|
|
#endif /* __aarch64__ */
|