Automatic date update in version.in
[external/binutils.git] / gdb / trad-frame.c
1 /* Traditional frame unwind support, for GDB the GNU Debugger.
2
3    Copyright (C) 2003-2019 Free Software Foundation, Inc.
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.h"
22 #include "trad-frame.h"
23 #include "regcache.h"
24 #include "frame-unwind.h"
25 #include "target.h"
26 #include "value.h"
27
28 struct trad_frame_cache
29 {
30   struct frame_info *this_frame;
31   CORE_ADDR this_base;
32   struct trad_frame_saved_reg *prev_regs;
33   struct frame_id this_id;
34 };
35
36 struct trad_frame_cache *
37 trad_frame_cache_zalloc (struct frame_info *this_frame)
38 {
39   struct trad_frame_cache *this_trad_cache;
40
41   this_trad_cache = FRAME_OBSTACK_ZALLOC (struct trad_frame_cache);
42   this_trad_cache->prev_regs = trad_frame_alloc_saved_regs (this_frame);
43   this_trad_cache->this_frame = this_frame;
44   return this_trad_cache;
45 }
46
47 struct trad_frame_saved_reg *
48 trad_frame_alloc_saved_regs (struct gdbarch *gdbarch)
49 {
50   int regnum;
51   int numregs = gdbarch_num_cooked_regs (gdbarch);
52   struct trad_frame_saved_reg *this_saved_regs
53     = FRAME_OBSTACK_CALLOC (numregs, struct trad_frame_saved_reg);
54
55   for (regnum = 0; regnum < numregs; regnum++)
56     {
57       this_saved_regs[regnum].realreg = regnum;
58       this_saved_regs[regnum].addr = -1;
59     }      
60   return this_saved_regs;
61 }
62
63 /* A traditional frame is unwound by analysing the function prologue
64    and using the information gathered to track registers.  For
65    non-optimized frames, the technique is reliable (just need to check
66    for all potential instruction sequences).  */
67
68 struct trad_frame_saved_reg *
69 trad_frame_alloc_saved_regs (struct frame_info *this_frame)
70 {
71   struct gdbarch *gdbarch = get_frame_arch (this_frame);
72
73   return trad_frame_alloc_saved_regs (gdbarch);
74 }
75
76 enum { TF_REG_VALUE = -1, TF_REG_UNKNOWN = -2 };
77
78 int
79 trad_frame_value_p (struct trad_frame_saved_reg this_saved_regs[], int regnum)
80 {
81   return (this_saved_regs[regnum].realreg == TF_REG_VALUE);
82 }
83
84 int
85 trad_frame_addr_p (struct trad_frame_saved_reg this_saved_regs[], int regnum)
86 {
87   return (this_saved_regs[regnum].realreg >= 0
88           && this_saved_regs[regnum].addr != -1);
89 }
90
91 int
92 trad_frame_realreg_p (struct trad_frame_saved_reg this_saved_regs[],
93                       int regnum)
94 {
95   return (this_saved_regs[regnum].realreg >= 0
96           && this_saved_regs[regnum].addr == -1);
97 }
98
99 void
100 trad_frame_set_value (struct trad_frame_saved_reg this_saved_regs[],
101                       int regnum, LONGEST val)
102 {
103   /* Make the REALREG invalid, indicating that the ADDR contains the
104      register's value.  */
105   this_saved_regs[regnum].realreg = TF_REG_VALUE;
106   this_saved_regs[regnum].addr = val;
107 }
108
109 /* See trad-frame.h.  */
110
111 void
112 trad_frame_set_realreg (struct trad_frame_saved_reg this_saved_regs[],
113                         int regnum, int realreg)
114 {
115   this_saved_regs[regnum].realreg = realreg;
116   this_saved_regs[regnum].addr = -1;
117 }
118
119 /* See trad-frame.h.  */
120
121 void
122 trad_frame_set_addr (struct trad_frame_saved_reg this_saved_regs[],
123                      int regnum, CORE_ADDR addr)
124 {
125   this_saved_regs[regnum].realreg = regnum;
126   this_saved_regs[regnum].addr = addr;
127 }
128
129 void
130 trad_frame_set_reg_value (struct trad_frame_cache *this_trad_cache,
131                           int regnum, LONGEST val)
132 {
133   /* External interface for users of trad_frame_cache
134      (who cannot access the prev_regs object directly).  */
135   trad_frame_set_value (this_trad_cache->prev_regs, regnum, val);
136 }
137
138 void
139 trad_frame_set_reg_realreg (struct trad_frame_cache *this_trad_cache,
140                             int regnum, int realreg)
141 {
142   trad_frame_set_realreg (this_trad_cache->prev_regs, regnum, realreg);
143 }
144
145 void
146 trad_frame_set_reg_addr (struct trad_frame_cache *this_trad_cache,
147                          int regnum, CORE_ADDR addr)
148 {
149   trad_frame_set_addr (this_trad_cache->prev_regs, regnum, addr);
150 }
151
152 void
153 trad_frame_set_reg_regmap (struct trad_frame_cache *this_trad_cache,
154                            const struct regcache_map_entry *regmap,
155                            CORE_ADDR addr, size_t size)
156 {
157   struct gdbarch *gdbarch = get_frame_arch (this_trad_cache->this_frame);
158   int offs = 0, count;
159
160   for (; (count = regmap->count) != 0; regmap++)
161     {
162       int regno = regmap->regno;
163       int slot_size = regmap->size;
164
165       if (slot_size == 0 && regno != REGCACHE_MAP_SKIP)
166         slot_size = register_size (gdbarch, regno);
167
168       if (offs + slot_size > size)
169         break;
170
171       if (regno == REGCACHE_MAP_SKIP)
172         offs += count * slot_size;
173       else
174         for (; count--; regno++, offs += slot_size)
175           {
176             /* Mimic the semantics of regcache::transfer_regset if a
177                register slot's size does not match the size of a
178                register.
179
180                If a register slot is larger than a register, assume
181                the register's value is stored in the first N bytes of
182                the slot and ignore the remaining bytes.
183
184                If the register slot is smaller than the register,
185                assume that the slot contains the low N bytes of the
186                register's value.  Since trad_frame assumes that
187                registers stored by address are sized according to the
188                register, read the low N bytes and zero-extend them to
189                generate a register value.  */
190             if (slot_size >= register_size (gdbarch, regno))
191               trad_frame_set_reg_addr (this_trad_cache, regno, addr + offs);
192             else
193               {
194                 enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
195                 gdb_byte buf[slot_size];
196
197                 if (target_read_memory (addr + offs, buf, sizeof buf) == 0)
198                   {
199                     LONGEST val
200                       = extract_unsigned_integer (buf, sizeof buf, byte_order);
201                     trad_frame_set_reg_value (this_trad_cache, regno, val);
202                   }
203               }
204           }
205     }
206 }
207
208 void
209 trad_frame_set_unknown (struct trad_frame_saved_reg this_saved_regs[],
210                         int regnum)
211 {
212   /* Make the REALREG invalid, indicating that the value is not known.  */
213   this_saved_regs[regnum].realreg = TF_REG_UNKNOWN;
214   this_saved_regs[regnum].addr = -1;
215 }
216
217 struct value *
218 trad_frame_get_prev_register (struct frame_info *this_frame,
219                               struct trad_frame_saved_reg this_saved_regs[],
220                               int regnum)
221 {
222   if (trad_frame_addr_p (this_saved_regs, regnum))
223     /* The register was saved in memory.  */
224     return frame_unwind_got_memory (this_frame, regnum,
225                                     this_saved_regs[regnum].addr);
226   else if (trad_frame_realreg_p (this_saved_regs, regnum))
227     return frame_unwind_got_register (this_frame, regnum,
228                                       this_saved_regs[regnum].realreg);
229   else if (trad_frame_value_p (this_saved_regs, regnum))
230     /* The register's value is available.  */
231     return frame_unwind_got_constant (this_frame, regnum,
232                                       this_saved_regs[regnum].addr);
233   else
234     return frame_unwind_got_optimized (this_frame, regnum);
235 }
236
237 struct value *
238 trad_frame_get_register (struct trad_frame_cache *this_trad_cache,
239                          struct frame_info *this_frame,
240                          int regnum)
241 {
242   return trad_frame_get_prev_register (this_frame, this_trad_cache->prev_regs,
243                                        regnum);
244 }
245
246 void
247 trad_frame_set_id (struct trad_frame_cache *this_trad_cache,
248                    struct frame_id this_id)
249 {
250   this_trad_cache->this_id = this_id;
251 }
252
253 void
254 trad_frame_get_id (struct trad_frame_cache *this_trad_cache,
255                    struct frame_id *this_id)
256 {
257   (*this_id) = this_trad_cache->this_id;
258 }
259
260 void
261 trad_frame_set_this_base (struct trad_frame_cache *this_trad_cache,
262                           CORE_ADDR this_base)
263 {
264   this_trad_cache->this_base = this_base;
265 }
266
267 CORE_ADDR
268 trad_frame_get_this_base (struct trad_frame_cache *this_trad_cache)
269 {
270   return this_trad_cache->this_base;
271 }