| /* Definitions for Dwarf2 EH unwind support for Windows32 targets |
| Copyright (C) 2007 |
| Free Software Foundation, Inc. |
| Contributed by Pascal Obry <obry@adacore.com> |
| |
| This file is part of GCC. |
| |
| GCC is free software; you can redistribute it and/or modify it under |
| the terms of the GNU General Public License as published by the Free |
| Software Foundation; either version 2, or (at your option) any later |
| version. |
| |
| In addition to the permissions in the GNU General Public License, the |
| Free Software Foundation gives you unlimited permission to link the |
| compiled version of this file with other programs, and to distribute |
| those programs without any restriction coming from the use of this |
| file. (The General Public License restrictions do apply in other |
| respects; for example, they cover modification of the file, and |
| distribution when not linked into another program.) |
| |
| GCC 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 General Public License |
| for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with GCC; see the file COPYING. If not, write to the Free |
| Software Foundation, 59 Temple Place - Suite 330, Boston, MA |
| 02111-1307, USA. */ |
| |
| /* This file implements the md_fallback_frame_state_for routine for |
| Windows, triggered when the GCC table based unwinding process hits a |
| frame for which no unwind info has been registered. This typically |
| occurs when raising an exception from a signal handler, because the |
| handler is actually called from the OS kernel. |
| |
| The basic idea is to detect that we are indeed trying to unwind past a |
| signal handler and to fill out the GCC internal unwinding structures for |
| the OS kernel frame as if it had been directly called from the |
| interrupted context. |
| |
| This is all assuming that the code to set the handler asked the kernel |
| to pass a pointer to such context information. |
| |
| There is three main parts. |
| |
| 1) The first thing to do is to check if we are in a signal context. If |
| not we can just return as there is nothing to do. We are probably on |
| some foreign code for which no unwind frame can be found. If this is |
| a call from the Windows signal handler, then: |
| |
| 2) We must get the signal context information. |
| |
| * With the standard exception filter: |
| |
| This is on Windows pointed to by an EXCEPTION_POINTERS. We know that |
| the signal handle will call an UnhandledExceptionFilter with this |
| parameter. The spec for this routine is: |
| |
| LONG WINAPI UnhandledExceptionFilter(struct _EXCEPTION_POINTERS*); |
| |
| So the pointer to struct _EXCEPTION_POINTERS must be somewhere on the |
| stack. |
| |
| This was found experimentally to always be at offset 0 of the context |
| frame in all cases handled by this implementation. |
| |
| * With the SEH exception handler: |
| |
| In this case the signal context is directly on the stack as the SEH |
| exception handler has the following prototype: |
| |
| DWORD |
| SEH_error_handler (PEXCEPTION_RECORD ExceptionRecord, |
| PVOID EstablisherFrame, |
| PCONTEXT ContextRecord, |
| PVOID DispatcherContext) |
| |
| This was found experimentally to always be at offset 56 of the |
| context frame in all cases handled by this implementation. |
| |
| 3) When we have the signal context we just have to save some registers |
| and set the return address based on the program counter (Eip). |
| |
| Note that this implementation follows closely the same principles as the |
| GNU/Linux and OSF ones. */ |
| |
| #define WIN32_MEAN_AND_LEAN |
| #include <windows.h> |
| /* Patterns found experimentally to be on a Windows signal handler */ |
| |
| /* In a standard exception filter */ |
| |
| #define SIG_PAT1 \ |
| (pc_[-2] == 0xff && pc_[-1] == 0xd0 /* call %eax */ \ |
| && pc_[0] == 0x83 && pc_[1] == 0xf8) /* cmp 0xdepl,%eax */ |
| |
| #define SIG_PAT2 \ |
| (pc_[-5] == 0xe8 && pc_[-4] == 0x68 /* call (depl16) */ \ |
| && pc_[0] == 0xc3) /* ret */ |
| |
| /* In a Win32 SEH handler */ |
| |
| #define SIG_SEH1 \ |
| (pc_[-5] == 0xe8 /* call addr */ \ |
| && pc_[0] == 0x83 && pc_[1] == 0xc4 /* add 0xval,%esp */ \ |
| && pc_[3] == 0xb8) /* mov 0xval,%eax */ |
| |
| #define SIG_SEH2 \ |
| (pc_[-5] == 0x8b && pc_[-4] == 0x4d /* mov depl(%ebp),%ecx */ \ |
| && pc_[0] == 0x64 && pc_[1] == 0x8b) /* mov %fs:(0),<reg> */ \ |
| |
| /* In the GCC alloca (stack probing) */ |
| |
| #define SIG_ALLOCA \ |
| (pc_[-1] == 0x83 /* orl $0x0,(%ecx) */ \ |
| && pc_[0] == 0x9 && pc_[1] == 0 \ |
| && pc_[2] == 0x2d && pc_[3] == 0 /* subl $0x1000,%eax */ \ |
| && pc_[4] == 0x10 && pc_[5] == 0) |
| |
| |
| #define MD_FALLBACK_FRAME_STATE_FOR i386_w32_fallback_frame_state |
| |
| static _Unwind_Reason_Code |
| i386_w32_fallback_frame_state (struct _Unwind_Context *context, |
| _Unwind_FrameState *fs) |
| |
| { |
| void * ctx_ra_ = (void *)(context->ra); /* return address */ |
| void * ctx_cfa_ = (void *)(context->cfa); /* context frame address */ |
| unsigned char * pc_ = (unsigned char *) ctx_ra_; |
| |
| /* In the test below we look for two specific patterns found |
| experimentally to be in the Windows signal handler. */ |
| |
| if (SIG_PAT1 || SIG_PAT2 || SIG_SEH1 || SIG_SEH2) |
| { |
| PEXCEPTION_POINTERS weinfo_; |
| PCONTEXT proc_ctx_; |
| long new_cfa_; |
| |
| if (SIG_SEH1) |
| proc_ctx_ = (PCONTEXT) (*(int*)(ctx_cfa_ + 56)); |
| else if (SIG_SEH2) |
| proc_ctx_ = (PCONTEXT) (*(int*)(ctx_cfa_ + 8)); |
| else |
| { |
| weinfo_ = (PEXCEPTION_POINTERS) (*(int*)ctx_cfa_); |
| proc_ctx_ = weinfo_->ContextRecord; |
| } |
| |
| /* The new context frame address is the stack pointer. */ |
| |
| new_cfa_ = proc_ctx_->Esp; |
| /* LLVM LOCAL begin */ |
| /* Note, that this file was backported from mainline, but fs struct has |
| slightly different layout there. Thus adjusted. */ |
| fs->cfa_how = CFA_REG_OFFSET; |
| fs->cfa_reg = __builtin_dwarf_sp_column(); |
| fs->cfa_offset = new_cfa_ - (long) ctx_cfa_; |
| /* LLVM LOCAL end */ |
| |
| /* Save some registers. */ |
| |
| fs->regs.reg[0].how = REG_SAVED_OFFSET; |
| fs->regs.reg[0].loc.offset = (long)&proc_ctx_->Eax - new_cfa_; |
| fs->regs.reg[3].how = REG_SAVED_OFFSET; |
| fs->regs.reg[3].loc.offset = (long)&proc_ctx_->Ebx - new_cfa_; |
| fs->regs.reg[1].how = REG_SAVED_OFFSET; |
| fs->regs.reg[1].loc.offset = (long)&proc_ctx_->Ecx - new_cfa_; |
| fs->regs.reg[2].how = REG_SAVED_OFFSET; |
| fs->regs.reg[2].loc.offset = (long)&proc_ctx_->Edx - new_cfa_; |
| fs->regs.reg[6].how = REG_SAVED_OFFSET; |
| fs->regs.reg[6].loc.offset = (long)&proc_ctx_->Esi - new_cfa_; |
| fs->regs.reg[7].how = REG_SAVED_OFFSET; |
| fs->regs.reg[7].loc.offset = (long)&proc_ctx_->Edi - new_cfa_; |
| fs->regs.reg[9].how = REG_SAVED_OFFSET; |
| fs->regs.reg[9].loc.offset = (long)&proc_ctx_->Eip - new_cfa_; |
| fs->regs.reg[4].how = REG_SAVED_OFFSET; |
| fs->regs.reg[4].loc.offset = (long)&proc_ctx_->Ebp - new_cfa_; |
| |
| /* Set the return address to Eip + 1. As we can be called multiple |
| times we use another register for this. */ |
| |
| proc_ctx_->Dr0 = proc_ctx_->Eip + 1; |
| fs->regs.reg[8].how = REG_SAVED_OFFSET; |
| fs->regs.reg[8].loc.offset = (long)&proc_ctx_->Dr0 - new_cfa_; |
| fs->retaddr_column = 8; |
| return _URC_NO_REASON; |
| } |
| |
| /* Unwinding through _alloca, propagating from a trap triggered by |
| one of it's probes prior to the real SP adjustment. The only |
| operations of interest performed is "pushl %ecx", followed by |
| ecx clobbering. */ |
| |
| else if (SIG_ALLOCA) |
| { |
| /* Only one push between entry in _alloca and the probe trap. */ |
| long new_cfa_ = (long) ctx_cfa_ + 4; |
| |
| /* LLVM LOCAL begin */ |
| /* Note, that this file was backported from mainline, but fs struct has |
| slightly different layout there. Thus adjusted. */ |
| fs->cfa_how = CFA_REG_OFFSET; |
| fs->cfa_reg = __builtin_dwarf_sp_column(); |
| fs->cfa_offset = new_cfa_ - (long) ctx_cfa_; |
| /* LLVM LOCAL end */ |
| |
| /* The saved value of %ecx is at CFA - 4 */ |
| fs->regs.reg[1].how = REG_SAVED_OFFSET; |
| fs->regs.reg[1].loc.offset = -4; |
| |
| /* and what is stored at the CFA is the return address. */ |
| fs->retaddr_column = 8; |
| fs->regs.reg[8].how = REG_SAVED_OFFSET; |
| fs->regs.reg[8].loc.offset = 0; |
| |
| return _URC_NO_REASON; |
| } |
| else |
| return _URC_END_OF_STACK; |
| } |
