| // Exception handling and frame unwind runtime interface routines. |
| // Copyright (C) 2011-2021 Free Software Foundation, Inc. |
| |
| // 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 3, or (at your option) any later |
| // version. |
| |
| // 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. |
| |
| // Under Section 7 of GPL version 3, you are granted additional |
| // permissions described in the GCC Runtime Library Exception, version |
| // 3.1, as published by the Free Software Foundation. |
| |
| // You should have received a copy of the GNU General Public License and |
| // a copy of the GCC Runtime Library Exception along with this program; |
| // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see |
| // <http://www.gnu.org/licenses/>. |
| |
| // extern(C) interface for the ARM EABI unwinder library. |
| // This corresponds to unwind-arm.h |
| |
| module gcc.unwind.arm; |
| |
| import gcc.config; |
| |
| version (ARM): |
| static if (GNU_ARM_EABI_Unwinder): |
| |
| public import gcc.unwind.arm_common; |
| import gcc.unwind.pe; |
| |
| extern (C): |
| @nogc: |
| |
| enum int UNWIND_STACK_REG = 13; |
| // Use IP as a scratch register within the personality routine. |
| enum int UNWIND_POINTER_REG = 12; |
| |
| version (linux) |
| enum _TTYPE_ENCODING = (DW_EH_PE_pcrel | DW_EH_PE_indirect); |
| else version (NetBSD) |
| enum _TTYPE_ENCODING = (DW_EH_PE_pcrel | DW_EH_PE_indirect); |
| else version (FreeBSD) |
| enum _TTYPE_ENCODING = (DW_EH_PE_pcrel | DW_EH_PE_indirect); |
| else version (Symbian) |
| enum _TTYPE_ENCODING = (DW_EH_PE_absptr); |
| else version (uClinux) |
| enum _TTYPE_ENCODING = (DW_EH_PE_absptr); |
| else |
| enum _TTYPE_ENCODING = (DW_EH_PE_pcrel); |
| |
| // Return the address of the instruction, not the actual IP value. |
| _Unwind_Word _Unwind_GetIP(_Unwind_Context* context) |
| { |
| return _Unwind_GetGR(context, 15) & ~ cast(_Unwind_Word) 1; |
| } |
| |
| void _Unwind_SetIP(_Unwind_Context* context, _Unwind_Word val) |
| { |
| return _Unwind_SetGR(context, 15, val | (_Unwind_GetGR(context, 15) & 1)); |
| } |
| |
| _Unwind_Word _Unwind_GetIPInfo(_Unwind_Context* context, int* ip_before_insn) |
| { |
| *ip_before_insn = 0; |
| return _Unwind_GetIP(context); |
| } |