Home | History | Annotate | Line # | Download | only in unwind 
      1 // Exception handling and frame unwind runtime interface routines.
      2 // Copyright (C) 2011-2022 Free Software Foundation, Inc.
      3 
      4 // GCC is free software; you can redistribute it and/or modify it under
      5 // the terms of the GNU General Public License as published by the Free
      6 // Software Foundation; either version 3, or (at your option) any later
      7 // version.
      8 
      9 // GCC is distributed in the hope that it will be useful, but WITHOUT ANY
     10 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
     11 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
     12 // for more details.
     13 
     14 // Under Section 7 of GPL version 3, you are granted additional
     15 // permissions described in the GCC Runtime Library Exception, version
     16 // 3.1, as published by the Free Software Foundation.
     17 
     18 // You should have received a copy of the GNU General Public License and
     19 // a copy of the GCC Runtime Library Exception along with this program;
     20 // see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
     21 // <http://www.gnu.org/licenses/>.
     22 
     23 // extern(C) interface for the ARM EABI unwinder library.
     24 // This corresponds to unwind-arm.h
     25 
     26 module gcc.unwind.arm;
     27 
     28 import gcc.config;
     29 
     30 version (ARM):
     31 static if (GNU_ARM_EABI_Unwinder):
     32 
     33 public import gcc.unwind.arm_common;
     34 import gcc.unwind.pe;
     35 
     36 extern (C):
     37 @nogc:
     38 
     39 enum int UNWIND_STACK_REG = 13;
     40 // Use IP as a scratch register within the personality routine.
     41 enum int UNWIND_POINTER_REG = 12;
     42 
     43 version (linux)
     44     enum _TTYPE_ENCODING = (DW_EH_PE_pcrel | DW_EH_PE_indirect);
     45 else version (NetBSD)
     46     enum _TTYPE_ENCODING = (DW_EH_PE_pcrel | DW_EH_PE_indirect);
     47 else version (FreeBSD)
     48     enum _TTYPE_ENCODING = (DW_EH_PE_pcrel | DW_EH_PE_indirect);
     49 else version (Symbian)
     50     enum _TTYPE_ENCODING = (DW_EH_PE_absptr);
     51 else version (uClinux)
     52     enum _TTYPE_ENCODING = (DW_EH_PE_absptr);
     53 else
     54     enum _TTYPE_ENCODING = (DW_EH_PE_pcrel);
     55 
     56 // Return the address of the instruction, not the actual IP value.
     57 _Unwind_Word _Unwind_GetIP(_Unwind_Context* context)
     58 {
     59     return _Unwind_GetGR(context, 15) & ~ cast(_Unwind_Word) 1;
     60 }
     61 
     62 void _Unwind_SetIP(_Unwind_Context* context, _Unwind_Word val)
     63 {
     64     return _Unwind_SetGR(context, 15, val | (_Unwind_GetGR(context, 15) & 1));
     65 }
     66 
     67 _Unwind_Word _Unwind_GetIPInfo(_Unwind_Context* context, int* ip_before_insn)
     68 {
     69     *ip_before_insn = 0;
     70     return _Unwind_GetIP(context);
     71 }
     72