1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
// 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);
}
|