1 /* Traditional frame unwind support, for GDB the GNU Debugger.
3 Copyright (C) 2003-2021 Free Software Foundation, Inc.
5 This file is part of GDB.
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.
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.
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/>. */
22 #include "trad-frame.h"
24 #include "frame-unwind.h"
28 #include "gdbsupport/traits.h"
30 struct trad_frame_cache
32 struct frame_info
*this_frame
;
34 trad_frame_saved_reg
*prev_regs
;
35 struct frame_id this_id
;
38 struct trad_frame_cache
*
39 trad_frame_cache_zalloc (struct frame_info
*this_frame
)
41 struct trad_frame_cache
*this_trad_cache
;
43 this_trad_cache
= FRAME_OBSTACK_ZALLOC (struct trad_frame_cache
);
44 this_trad_cache
->prev_regs
= trad_frame_alloc_saved_regs (this_frame
);
45 this_trad_cache
->this_frame
= this_frame
;
46 return this_trad_cache
;
49 /* See trad-frame.h. */
52 trad_frame_reset_saved_regs (struct gdbarch
*gdbarch
,
53 trad_frame_saved_reg
*regs
)
55 int numregs
= gdbarch_num_cooked_regs (gdbarch
);
57 for (int regnum
= 0; regnum
< numregs
; regnum
++)
58 regs
[regnum
].set_realreg (regnum
);
61 trad_frame_saved_reg
*
62 trad_frame_alloc_saved_regs (struct gdbarch
*gdbarch
)
64 #ifdef HAVE_IS_TRIVIALLY_CONSTRUCTIBLE
65 gdb_static_assert (std::is_trivially_constructible
<trad_frame_saved_reg
>::value
);
68 int numregs
= gdbarch_num_cooked_regs (gdbarch
);
69 trad_frame_saved_reg
*this_saved_regs
70 = FRAME_OBSTACK_CALLOC (numregs
, trad_frame_saved_reg
);
72 trad_frame_reset_saved_regs (gdbarch
, this_saved_regs
);
73 return this_saved_regs
;
76 /* A traditional frame is unwound by analysing the function prologue
77 and using the information gathered to track registers. For
78 non-optimized frames, the technique is reliable (just need to check
79 for all potential instruction sequences). */
81 trad_frame_saved_reg
*
82 trad_frame_alloc_saved_regs (struct frame_info
*this_frame
)
84 struct gdbarch
*gdbarch
= get_frame_arch (this_frame
);
86 return trad_frame_alloc_saved_regs (gdbarch
);
90 trad_frame_value_p (trad_frame_saved_reg this_saved_regs
[], int regnum
)
92 return this_saved_regs
[regnum
].is_value ();
96 trad_frame_addr_p (trad_frame_saved_reg this_saved_regs
[], int regnum
)
98 return this_saved_regs
[regnum
].is_addr ();
102 trad_frame_realreg_p (trad_frame_saved_reg this_saved_regs
[],
105 return this_saved_regs
[regnum
].is_realreg ();
108 /* See trad-frame.h. */
111 trad_frame_value_bytes_p (trad_frame_saved_reg this_saved_regs
[],
114 return this_saved_regs
[regnum
].is_value_bytes ();
118 trad_frame_set_value (trad_frame_saved_reg this_saved_regs
[],
119 int regnum
, LONGEST val
)
121 this_saved_regs
[regnum
].set_value (val
);
124 /* See trad-frame.h. */
127 trad_frame_set_realreg (trad_frame_saved_reg this_saved_regs
[],
128 int regnum
, int realreg
)
130 this_saved_regs
[regnum
].set_realreg (realreg
);
133 /* See trad-frame.h. */
136 trad_frame_set_addr (trad_frame_saved_reg this_saved_regs
[],
137 int regnum
, CORE_ADDR addr
)
139 this_saved_regs
[regnum
].set_addr (addr
);
143 trad_frame_set_reg_value (struct trad_frame_cache
*this_trad_cache
,
144 int regnum
, LONGEST val
)
146 /* External interface for users of trad_frame_cache
147 (who cannot access the prev_regs object directly). */
148 trad_frame_set_value (this_trad_cache
->prev_regs
, regnum
, val
);
152 trad_frame_set_reg_realreg (struct trad_frame_cache
*this_trad_cache
,
153 int regnum
, int realreg
)
155 trad_frame_set_realreg (this_trad_cache
->prev_regs
, regnum
, realreg
);
159 trad_frame_set_reg_addr (struct trad_frame_cache
*this_trad_cache
,
160 int regnum
, CORE_ADDR addr
)
162 trad_frame_set_addr (this_trad_cache
->prev_regs
, regnum
, addr
);
166 trad_frame_set_reg_regmap (struct trad_frame_cache
*this_trad_cache
,
167 const struct regcache_map_entry
*regmap
,
168 CORE_ADDR addr
, size_t size
)
170 struct gdbarch
*gdbarch
= get_frame_arch (this_trad_cache
->this_frame
);
173 for (; (count
= regmap
->count
) != 0; regmap
++)
175 int regno
= regmap
->regno
;
176 int slot_size
= regmap
->size
;
178 if (slot_size
== 0 && regno
!= REGCACHE_MAP_SKIP
)
179 slot_size
= register_size (gdbarch
, regno
);
181 if (offs
+ slot_size
> size
)
184 if (regno
== REGCACHE_MAP_SKIP
)
185 offs
+= count
* slot_size
;
187 for (; count
--; regno
++, offs
+= slot_size
)
189 /* Mimic the semantics of regcache::transfer_regset if a
190 register slot's size does not match the size of a
193 If a register slot is larger than a register, assume
194 the register's value is stored in the first N bytes of
195 the slot and ignore the remaining bytes.
197 If the register slot is smaller than the register,
198 assume that the slot contains the low N bytes of the
199 register's value. Since trad_frame assumes that
200 registers stored by address are sized according to the
201 register, read the low N bytes and zero-extend them to
202 generate a register value. */
203 if (slot_size
>= register_size (gdbarch
, regno
))
204 trad_frame_set_reg_addr (this_trad_cache
, regno
, addr
+ offs
);
207 enum bfd_endian byte_order
= gdbarch_byte_order (gdbarch
);
208 gdb_byte buf
[slot_size
];
210 if (target_read_memory (addr
+ offs
, buf
, sizeof buf
) == 0)
213 = extract_unsigned_integer (buf
, sizeof buf
, byte_order
);
214 trad_frame_set_reg_value (this_trad_cache
, regno
, val
);
222 trad_frame_set_unknown (trad_frame_saved_reg this_saved_regs
[],
225 this_saved_regs
[regnum
].set_unknown ();
228 /* See trad-frame.h. */
231 trad_frame_set_value_bytes (trad_frame_saved_reg this_saved_regs
[],
233 gdb::array_view
<const gdb_byte
> bytes
)
235 /* Allocate the space and copy the data bytes. */
236 gdb_byte
*data
= FRAME_OBSTACK_CALLOC (bytes
.size (), gdb_byte
);
237 memcpy (data
, bytes
.data (), bytes
.size ());
238 this_saved_regs
[regnum
].set_value_bytes (data
);
241 /* See trad-frame.h. */
244 trad_frame_set_reg_value_bytes (struct trad_frame_cache
*this_trad_cache
,
246 gdb::array_view
<const gdb_byte
> bytes
)
248 /* External interface for users of trad_frame_cache
249 (who cannot access the prev_regs object directly). */
250 trad_frame_set_value_bytes (this_trad_cache
->prev_regs
, regnum
, bytes
);
256 trad_frame_get_prev_register (struct frame_info
*this_frame
,
257 trad_frame_saved_reg this_saved_regs
[],
260 if (trad_frame_addr_p (this_saved_regs
, regnum
))
261 /* The register was saved in memory. */
262 return frame_unwind_got_memory (this_frame
, regnum
,
263 this_saved_regs
[regnum
].addr ());
264 else if (trad_frame_realreg_p (this_saved_regs
, regnum
))
265 return frame_unwind_got_register (this_frame
, regnum
,
266 this_saved_regs
[regnum
].realreg ());
267 else if (trad_frame_value_p (this_saved_regs
, regnum
))
268 /* The register's value is available. */
269 return frame_unwind_got_constant (this_frame
, regnum
,
270 this_saved_regs
[regnum
].value ());
271 else if (trad_frame_value_bytes_p (this_saved_regs
, regnum
))
272 /* The register's value is available as a sequence of bytes. */
273 return frame_unwind_got_bytes (this_frame
, regnum
,
274 this_saved_regs
[regnum
].value_bytes ());
276 return frame_unwind_got_optimized (this_frame
, regnum
);
280 trad_frame_get_register (struct trad_frame_cache
*this_trad_cache
,
281 struct frame_info
*this_frame
,
284 return trad_frame_get_prev_register (this_frame
, this_trad_cache
->prev_regs
,
289 trad_frame_set_id (struct trad_frame_cache
*this_trad_cache
,
290 struct frame_id this_id
)
292 this_trad_cache
->this_id
= this_id
;
296 trad_frame_get_id (struct trad_frame_cache
*this_trad_cache
,
297 struct frame_id
*this_id
)
299 (*this_id
) = this_trad_cache
->this_id
;
303 trad_frame_set_this_base (struct trad_frame_cache
*this_trad_cache
,
306 this_trad_cache
->this_base
= this_base
;
310 trad_frame_get_this_base (struct trad_frame_cache
*this_trad_cache
)
312 return this_trad_cache
->this_base
;