Commit | Line | Data |
---|---|---|
696759ad TG |
1 | /* Target-dependent code for OpenVMS IA-64. |
2 | ||
42a4f53d | 3 | Copyright (C) 2012-2019 Free Software Foundation, Inc. |
696759ad TG |
4 | |
5 | This file is part of GDB. | |
6 | ||
7 | This program is free software; you can redistribute it and/or modify | |
8 | it under the terms of the GNU General Public License as published by | |
9 | the Free Software Foundation; either version 3 of the License, or | |
10 | (at your option) any later version. | |
11 | ||
12 | This program is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ | |
19 | ||
20 | #include "defs.h" | |
21 | #include "frame-unwind.h" | |
22 | #include "ia64-tdep.h" | |
23 | #include "osabi.h" | |
24 | #include "gdbtypes.h" | |
25 | #include "gdbcore.h" | |
26 | ||
27 | #ifdef HAVE_LIBUNWIND_IA64_H | |
28 | ||
29 | /* Libunwind callback accessor function to acquire procedure unwind-info. */ | |
30 | ||
31 | static int | |
32 | ia64_vms_find_proc_info_x (unw_addr_space_t as, unw_word_t ip, | |
33 | unw_proc_info_t *pi, | |
34 | int need_unwind_info, void *arg) | |
35 | { | |
f5656ead | 36 | enum bfd_endian byte_order = gdbarch_byte_order (target_gdbarch ()); |
696759ad TG |
37 | gdb_byte buf[32]; |
38 | const char *annex = core_addr_to_string (ip); | |
39 | LONGEST res; | |
40 | CORE_ADDR table_addr; | |
41 | unsigned int info_len; | |
42 | ||
8b88a78e | 43 | res = target_read (current_top_target (), TARGET_OBJECT_OPENVMS_UIB, |
696759ad TG |
44 | annex + 2, buf, 0, sizeof (buf)); |
45 | ||
46 | if (res != sizeof (buf)) | |
47 | return -UNW_ENOINFO; | |
48 | ||
49 | pi->format = UNW_INFO_FORMAT_REMOTE_TABLE; | |
50 | pi->start_ip = extract_unsigned_integer (buf + 0, 8, byte_order); | |
51 | pi->end_ip = extract_unsigned_integer (buf + 8, 8, byte_order); | |
52 | pi->gp = extract_unsigned_integer (buf + 24, 8, byte_order); | |
53 | table_addr = extract_unsigned_integer (buf + 16, 8, byte_order); | |
54 | ||
55 | if (table_addr == 0) | |
56 | { | |
57 | /* No unwind data. */ | |
58 | pi->unwind_info = NULL; | |
59 | pi->unwind_info_size = 0; | |
60 | return 0; | |
61 | } | |
62 | ||
63 | res = target_read_memory (table_addr, buf, 8); | |
64 | if (res != 0) | |
65 | return -UNW_ENOINFO; | |
66 | ||
67 | /* Check version. */ | |
68 | if (extract_unsigned_integer (buf + 6, 2, byte_order) != 1) | |
69 | return -UNW_EBADVERSION; | |
70 | info_len = extract_unsigned_integer (buf + 0, 4, byte_order); | |
71 | pi->unwind_info_size = 8 * info_len; | |
72 | ||
73 | /* Read info. */ | |
74 | pi->unwind_info = xmalloc (pi->unwind_info_size); | |
75 | ||
76 | res = target_read_memory (table_addr + 8, | |
ec74dcd8 | 77 | (gdb_byte *) pi->unwind_info, pi->unwind_info_size); |
696759ad TG |
78 | if (res != 0) |
79 | { | |
80 | xfree (pi->unwind_info); | |
81 | pi->unwind_info = NULL; | |
82 | return -UNW_ENOINFO; | |
83 | } | |
84 | ||
85 | /* FIXME: Handle OSSD (OS Specific Data). This extension to ia64 unwind | |
86 | information by OpenVMS is currently not handled by libunwind, but | |
87 | looks to be used only in very specific context, and is not generated by | |
88 | GCC. */ | |
89 | ||
90 | pi->lsda = table_addr + 8 + pi->unwind_info_size; | |
91 | if (extract_unsigned_integer (buf + 4, 2, byte_order) & 3) | |
92 | { | |
93 | pi->lsda += 8; | |
94 | /* There might be an handler, but this is not used for unwinding. */ | |
95 | pi->handler = 0; | |
96 | } | |
97 | ||
98 | return 0; | |
99 | } | |
100 | ||
101 | /* Libunwind callback accessor function for cleanup. */ | |
102 | ||
103 | static void | |
104 | ia64_vms_put_unwind_info (unw_addr_space_t as, | |
105 | unw_proc_info_t *pip, void *arg) | |
106 | { | |
107 | /* Nothing required for now. */ | |
108 | } | |
109 | ||
110 | /* Libunwind callback accessor function to get head of the dynamic | |
111 | unwind-info registration list. */ | |
112 | ||
113 | static int | |
114 | ia64_vms_get_dyn_info_list (unw_addr_space_t as, | |
115 | unw_word_t *dilap, void *arg) | |
116 | { | |
117 | return -UNW_ENOINFO; | |
118 | } | |
119 | ||
120 | /* Set of libunwind callback acccessor functions. */ | |
121 | static unw_accessors_t ia64_vms_unw_accessors; | |
122 | static unw_accessors_t ia64_vms_unw_rse_accessors; | |
123 | ||
05e7c244 JK |
124 | /* Set of ia64-libunwind-tdep gdb callbacks and data for generic |
125 | ia64-libunwind-tdep code to use. */ | |
696759ad TG |
126 | static struct libunwind_descr ia64_vms_libunwind_descr; |
127 | ||
128 | #endif /* HAVE_LIBUNWIND_IA64_H */ | |
129 | ||
130 | static void | |
131 | ia64_openvms_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch) | |
132 | { | |
133 | set_gdbarch_long_double_format (gdbarch, floatformats_ia64_quad); | |
134 | ||
135 | #ifdef HAVE_LIBUNWIND_IA64_H | |
136 | /* Override the default descriptor. */ | |
137 | ia64_vms_unw_accessors = ia64_unw_accessors; | |
138 | ia64_vms_unw_accessors.find_proc_info = ia64_vms_find_proc_info_x; | |
139 | ia64_vms_unw_accessors.put_unwind_info = ia64_vms_put_unwind_info; | |
140 | ia64_vms_unw_accessors.get_dyn_info_list_addr = ia64_vms_get_dyn_info_list; | |
141 | ||
142 | ia64_vms_unw_rse_accessors = ia64_unw_rse_accessors; | |
143 | ia64_vms_unw_rse_accessors.find_proc_info = ia64_vms_find_proc_info_x; | |
144 | ia64_vms_unw_rse_accessors.put_unwind_info = ia64_vms_put_unwind_info; | |
145 | ia64_vms_unw_rse_accessors.get_dyn_info_list_addr = ia64_vms_get_dyn_info_list; | |
146 | ||
147 | ia64_vms_libunwind_descr = ia64_libunwind_descr; | |
148 | ia64_vms_libunwind_descr.accessors = &ia64_vms_unw_accessors; | |
149 | ia64_vms_libunwind_descr.special_accessors = &ia64_vms_unw_rse_accessors; | |
150 | ||
151 | libunwind_frame_set_descr (gdbarch, &ia64_vms_libunwind_descr); | |
152 | #endif | |
153 | } | |
154 | ||
696759ad | 155 | void |
541515ad | 156 | _initialize_ia64_vms_tdep (void) |
696759ad TG |
157 | { |
158 | gdbarch_register_osabi (bfd_arch_ia64, 0, GDB_OSABI_OPENVMS, | |
159 | ia64_openvms_init_abi); | |
160 | } |