Commit | Line | Data |
---|---|---|
bd5635a1 | 1 | /* Find a variable's value in memory, for GDB, the GNU debugger. |
7d9884b9 | 2 | Copyright 1986, 1987, 1989, 1991 Free Software Foundation, Inc. |
bd5635a1 RP |
3 | |
4 | This file is part of GDB. | |
5 | ||
36b9d39c | 6 | This program is free software; you can redistribute it and/or modify |
bd5635a1 | 7 | it under the terms of the GNU General Public License as published by |
36b9d39c JG |
8 | the Free Software Foundation; either version 2 of the License, or |
9 | (at your option) any later version. | |
bd5635a1 | 10 | |
36b9d39c | 11 | This program is distributed in the hope that it will be useful, |
bd5635a1 RP |
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | GNU General Public License for more details. | |
15 | ||
16 | You should have received a copy of the GNU General Public License | |
36b9d39c JG |
17 | along with this program; if not, write to the Free Software |
18 | Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
bd5635a1 | 19 | |
bd5635a1 | 20 | #include "defs.h" |
bd5635a1 | 21 | #include "symtab.h" |
51b57ded | 22 | #include "gdbtypes.h" |
bd5635a1 RP |
23 | #include "frame.h" |
24 | #include "value.h" | |
25 | #include "gdbcore.h" | |
26 | #include "inferior.h" | |
27 | #include "target.h" | |
28 | ||
29 | #if !defined (GET_SAVED_REGISTER) | |
30 | ||
31 | /* Return the address in which frame FRAME's value of register REGNUM | |
32 | has been saved in memory. Or return zero if it has not been saved. | |
33 | If REGNUM specifies the SP, the value we return is actually | |
34 | the SP value, not an address where it was saved. */ | |
35 | ||
36 | CORE_ADDR | |
37 | find_saved_register (frame, regnum) | |
38 | FRAME frame; | |
39 | int regnum; | |
40 | { | |
41 | struct frame_info *fi; | |
42 | struct frame_saved_regs saved_regs; | |
43 | ||
44 | register FRAME frame1 = 0; | |
45 | register CORE_ADDR addr = 0; | |
46 | ||
47 | if (frame == 0) /* No regs saved if want current frame */ | |
48 | return 0; | |
49 | ||
50 | #ifdef HAVE_REGISTER_WINDOWS | |
51 | /* We assume that a register in a register window will only be saved | |
52 | in one place (since the name changes and/or disappears as you go | |
53 | towards inner frames), so we only call get_frame_saved_regs on | |
54 | the current frame. This is directly in contradiction to the | |
55 | usage below, which assumes that registers used in a frame must be | |
56 | saved in a lower (more interior) frame. This change is a result | |
57 | of working on a register window machine; get_frame_saved_regs | |
58 | always returns the registers saved within a frame, within the | |
59 | context (register namespace) of that frame. */ | |
60 | ||
61 | /* However, note that we don't want this to return anything if | |
62 | nothing is saved (if there's a frame inside of this one). Also, | |
63 | callers to this routine asking for the stack pointer want the | |
64 | stack pointer saved for *this* frame; this is returned from the | |
65 | next frame. */ | |
66 | ||
67 | ||
68 | if (REGISTER_IN_WINDOW_P(regnum)) | |
69 | { | |
70 | frame1 = get_next_frame (frame); | |
71 | if (!frame1) return 0; /* Registers of this frame are | |
72 | active. */ | |
73 | ||
74 | /* Get the SP from the next frame in; it will be this | |
75 | current frame. */ | |
76 | if (regnum != SP_REGNUM) | |
77 | frame1 = frame; | |
78 | ||
79 | fi = get_frame_info (frame1); | |
80 | get_frame_saved_regs (fi, &saved_regs); | |
81 | return saved_regs.regs[regnum]; /* ... which might be zero */ | |
82 | } | |
83 | #endif /* HAVE_REGISTER_WINDOWS */ | |
84 | ||
85 | /* Note that this next routine assumes that registers used in | |
86 | frame x will be saved only in the frame that x calls and | |
87 | frames interior to it. This is not true on the sparc, but the | |
88 | above macro takes care of it, so we should be all right. */ | |
89 | while (1) | |
90 | { | |
91 | QUIT; | |
92 | frame1 = get_prev_frame (frame1); | |
93 | if (frame1 == 0 || frame1 == frame) | |
94 | break; | |
95 | fi = get_frame_info (frame1); | |
96 | get_frame_saved_regs (fi, &saved_regs); | |
97 | if (saved_regs.regs[regnum]) | |
98 | addr = saved_regs.regs[regnum]; | |
99 | } | |
100 | ||
101 | return addr; | |
102 | } | |
103 | ||
104 | /* Find register number REGNUM relative to FRAME and put its | |
105 | (raw) contents in *RAW_BUFFER. Set *OPTIMIZED if the variable | |
106 | was optimized out (and thus can't be fetched). Set *LVAL to | |
107 | lval_memory, lval_register, or not_lval, depending on whether the | |
108 | value was fetched from memory, from a register, or in a strange | |
109 | and non-modifiable way (e.g. a frame pointer which was calculated | |
110 | rather than fetched). Set *ADDRP to the address, either in memory | |
111 | on as a REGISTER_BYTE offset into the registers array. | |
112 | ||
113 | Note that this implementation never sets *LVAL to not_lval. But | |
114 | it can be replaced by defining GET_SAVED_REGISTER and supplying | |
115 | your own. | |
116 | ||
117 | The argument RAW_BUFFER must point to aligned memory. */ | |
118 | void | |
119 | get_saved_register (raw_buffer, optimized, addrp, frame, regnum, lval) | |
120 | char *raw_buffer; | |
121 | int *optimized; | |
122 | CORE_ADDR *addrp; | |
123 | FRAME frame; | |
124 | int regnum; | |
125 | enum lval_type *lval; | |
126 | { | |
127 | CORE_ADDR addr; | |
128 | /* Normal systems don't optimize out things with register numbers. */ | |
129 | if (optimized != NULL) | |
130 | *optimized = 0; | |
131 | addr = find_saved_register (frame, regnum); | |
51b57ded | 132 | if (addr != 0) |
bd5635a1 RP |
133 | { |
134 | if (lval != NULL) | |
135 | *lval = lval_memory; | |
136 | if (regnum == SP_REGNUM) | |
137 | { | |
138 | if (raw_buffer != NULL) | |
139 | *(CORE_ADDR *)raw_buffer = addr; | |
140 | if (addrp != NULL) | |
141 | *addrp = 0; | |
142 | return; | |
143 | } | |
144 | if (raw_buffer != NULL) | |
145 | read_memory (addr, raw_buffer, REGISTER_RAW_SIZE (regnum)); | |
146 | } | |
147 | else | |
148 | { | |
149 | if (lval != NULL) | |
150 | *lval = lval_register; | |
151 | addr = REGISTER_BYTE (regnum); | |
152 | if (raw_buffer != NULL) | |
153 | read_register_gen (regnum, raw_buffer); | |
154 | } | |
155 | if (addrp != NULL) | |
156 | *addrp = addr; | |
157 | } | |
158 | #endif /* GET_SAVED_REGISTER. */ | |
159 | ||
160 | /* Copy the bytes of register REGNUM, relative to the current stack frame, | |
161 | into our memory at MYADDR, in target byte order. | |
162 | The number of bytes copied is REGISTER_RAW_SIZE (REGNUM). | |
163 | ||
164 | Returns 1 if could not be read, 0 if could. */ | |
165 | ||
166 | int | |
167 | read_relative_register_raw_bytes (regnum, myaddr) | |
168 | int regnum; | |
169 | char *myaddr; | |
170 | { | |
171 | int optim; | |
172 | if (regnum == FP_REGNUM && selected_frame) | |
173 | { | |
0791c5ea | 174 | memcpy (myaddr, &FRAME_FP(selected_frame), REGISTER_RAW_SIZE(FP_REGNUM)); |
51b57ded | 175 | SWAP_TARGET_AND_HOST (myaddr, REGISTER_RAW_SIZE(FP_REGNUM)); /* in target order */ |
bd5635a1 RP |
176 | return 0; |
177 | } | |
178 | ||
e1ce8aa5 | 179 | get_saved_register (myaddr, &optim, (CORE_ADDR *) NULL, selected_frame, |
bd5635a1 RP |
180 | regnum, (enum lval_type *)NULL); |
181 | return optim; | |
182 | } | |
183 | ||
184 | /* Return a `value' with the contents of register REGNUM | |
185 | in its virtual format, with the type specified by | |
186 | REGISTER_VIRTUAL_TYPE. */ | |
187 | ||
188 | value | |
189 | value_of_register (regnum) | |
190 | int regnum; | |
191 | { | |
192 | CORE_ADDR addr; | |
193 | int optim; | |
194 | register value val; | |
195 | char raw_buffer[MAX_REGISTER_RAW_SIZE]; | |
196 | char virtual_buffer[MAX_REGISTER_VIRTUAL_SIZE]; | |
197 | enum lval_type lval; | |
198 | ||
199 | get_saved_register (raw_buffer, &optim, &addr, | |
200 | selected_frame, regnum, &lval); | |
201 | ||
0791c5ea | 202 | REGISTER_CONVERT_TO_VIRTUAL (regnum, raw_buffer, virtual_buffer); |
bd5635a1 | 203 | val = allocate_value (REGISTER_VIRTUAL_TYPE (regnum)); |
0791c5ea JK |
204 | memcpy (VALUE_CONTENTS_RAW (val), virtual_buffer, |
205 | REGISTER_VIRTUAL_SIZE (regnum)); | |
bd5635a1 RP |
206 | VALUE_LVAL (val) = lval; |
207 | VALUE_ADDRESS (val) = addr; | |
208 | VALUE_REGNO (val) = regnum; | |
209 | VALUE_OPTIMIZED_OUT (val) = optim; | |
210 | return val; | |
211 | } | |
212 | \f | |
213 | /* Low level examining and depositing of registers. | |
214 | ||
215 | The caller is responsible for making | |
216 | sure that the inferior is stopped before calling the fetching routines, | |
217 | or it will get garbage. (a change from GDB version 3, in which | |
218 | the caller got the value from the last stop). */ | |
219 | ||
220 | /* Contents of the registers in target byte order. | |
221 | We allocate some extra slop since we do a lot of bcopy's around `registers', | |
222 | and failing-soft is better than failing hard. */ | |
223 | char registers[REGISTER_BYTES + /* SLOP */ 256]; | |
224 | ||
225 | /* Nonzero if that register has been fetched. */ | |
226 | char register_valid[NUM_REGS]; | |
227 | ||
228 | /* Indicate that registers may have changed, so invalidate the cache. */ | |
229 | void | |
230 | registers_changed () | |
231 | { | |
232 | int i; | |
233 | for (i = 0; i < NUM_REGS; i++) | |
234 | register_valid[i] = 0; | |
235 | } | |
236 | ||
237 | /* Indicate that all registers have been fetched, so mark them all valid. */ | |
238 | void | |
239 | registers_fetched () | |
240 | { | |
241 | int i; | |
242 | for (i = 0; i < NUM_REGS; i++) | |
243 | register_valid[i] = 1; | |
244 | } | |
245 | ||
246 | /* Copy LEN bytes of consecutive data from registers | |
247 | starting with the REGBYTE'th byte of register data | |
248 | into memory at MYADDR. */ | |
249 | ||
250 | void | |
251 | read_register_bytes (regbyte, myaddr, len) | |
252 | int regbyte; | |
253 | char *myaddr; | |
254 | int len; | |
255 | { | |
256 | /* Fetch all registers. */ | |
257 | int i; | |
258 | for (i = 0; i < NUM_REGS; i++) | |
259 | if (!register_valid[i]) | |
260 | { | |
261 | target_fetch_registers (-1); | |
262 | break; | |
263 | } | |
264 | if (myaddr != NULL) | |
0791c5ea | 265 | memcpy (myaddr, ®isters[regbyte], len); |
bd5635a1 RP |
266 | } |
267 | ||
268 | /* Read register REGNO into memory at MYADDR, which must be large enough | |
f2ebc25f JK |
269 | for REGISTER_RAW_BYTES (REGNO). Target byte-order. |
270 | If the register is known to be the size of a CORE_ADDR or smaller, | |
271 | read_register can be used instead. */ | |
bd5635a1 RP |
272 | void |
273 | read_register_gen (regno, myaddr) | |
274 | int regno; | |
275 | char *myaddr; | |
276 | { | |
277 | if (!register_valid[regno]) | |
278 | target_fetch_registers (regno); | |
0791c5ea JK |
279 | memcpy (myaddr, ®isters[REGISTER_BYTE (regno)], |
280 | REGISTER_RAW_SIZE (regno)); | |
bd5635a1 RP |
281 | } |
282 | ||
283 | /* Copy LEN bytes of consecutive data from memory at MYADDR | |
284 | into registers starting with the REGBYTE'th byte of register data. */ | |
285 | ||
286 | void | |
287 | write_register_bytes (regbyte, myaddr, len) | |
288 | int regbyte; | |
289 | char *myaddr; | |
290 | int len; | |
291 | { | |
292 | /* Make sure the entire registers array is valid. */ | |
293 | read_register_bytes (0, (char *)NULL, REGISTER_BYTES); | |
0791c5ea | 294 | memcpy (®isters[regbyte], myaddr, len); |
bd5635a1 RP |
295 | target_store_registers (-1); |
296 | } | |
297 | ||
298 | /* Return the contents of register REGNO, regarding it as an integer. */ | |
51b57ded FF |
299 | /* FIXME, this loses when the REGISTER_VIRTUAL (REGNO) is true. Also, |
300 | why is the return type CORE_ADDR rather than some integer type? */ | |
bd5635a1 RP |
301 | |
302 | CORE_ADDR | |
303 | read_register (regno) | |
304 | int regno; | |
305 | { | |
0791c5ea | 306 | unsigned short sval; |
df14b38b | 307 | unsigned int ival; |
0791c5ea | 308 | unsigned long lval; |
be474657 | 309 | LONGEST llval; |
51b57ded | 310 | |
df14b38b SC |
311 | int size; |
312 | ||
bd5635a1 RP |
313 | if (!register_valid[regno]) |
314 | target_fetch_registers (regno); | |
0791c5ea | 315 | |
df14b38b SC |
316 | size = REGISTER_RAW_SIZE(regno); |
317 | ||
318 | if (size == sizeof (unsigned char)) | |
319 | return registers[REGISTER_BYTE (regno)]; | |
320 | else if (size == sizeof (sval)) | |
0791c5ea | 321 | { |
0791c5ea JK |
322 | memcpy (&sval, ®isters[REGISTER_BYTE (regno)], sizeof (sval)); |
323 | SWAP_TARGET_AND_HOST (&sval, sizeof (sval)); | |
324 | return sval; | |
df14b38b SC |
325 | } |
326 | else if (size == sizeof (ival)) | |
327 | { | |
328 | memcpy (&ival, ®isters[REGISTER_BYTE (regno)], sizeof (ival)); | |
329 | SWAP_TARGET_AND_HOST (&ival, sizeof (ival)); | |
330 | return ival; | |
331 | } | |
332 | else if (size == sizeof (lval)) | |
333 | { | |
0791c5ea JK |
334 | memcpy (&lval, ®isters[REGISTER_BYTE (regno)], sizeof (lval)); |
335 | SWAP_TARGET_AND_HOST (&lval, sizeof (lval)); | |
336 | return lval; | |
df14b38b | 337 | } |
be474657 DE |
338 | else if (size == sizeof (llval)) |
339 | { | |
340 | memcpy (&llval, ®isters[REGISTER_BYTE (regno)], sizeof (llval)); | |
341 | SWAP_TARGET_AND_HOST (&llval, sizeof (llval)); | |
342 | return llval; | |
343 | } | |
df14b38b SC |
344 | else |
345 | { | |
35247ccd | 346 | error ("GDB Internal Error in read_register() for register %d, size %d", |
df14b38b | 347 | regno, REGISTER_RAW_SIZE(regno)); |
0791c5ea | 348 | } |
bd5635a1 RP |
349 | } |
350 | ||
351 | /* Registers we shouldn't try to store. */ | |
352 | #if !defined (CANNOT_STORE_REGISTER) | |
353 | #define CANNOT_STORE_REGISTER(regno) 0 | |
354 | #endif | |
355 | ||
356 | /* Store VALUE in the register number REGNO, regarded as an integer. */ | |
51b57ded FF |
357 | /* FIXME, this loses when REGISTER_VIRTUAL (REGNO) is true. Also, |
358 | shouldn't the val arg be a LONGEST or something? */ | |
bd5635a1 RP |
359 | |
360 | void | |
361 | write_register (regno, val) | |
362 | int regno, val; | |
363 | { | |
df14b38b | 364 | unsigned char cval; |
0791c5ea | 365 | unsigned short sval; |
df14b38b | 366 | unsigned int ival; |
0791c5ea | 367 | unsigned long lval; |
be474657 | 368 | LONGEST llval; |
df14b38b SC |
369 | int size; |
370 | PTR ptr; | |
371 | ||
bd5635a1 RP |
372 | /* On the sparc, writing %g0 is a no-op, so we don't even want to change |
373 | the registers array if something writes to this register. */ | |
374 | if (CANNOT_STORE_REGISTER (regno)) | |
375 | return; | |
376 | ||
df14b38b SC |
377 | /* If we have a valid copy of the register, and new value == old value, |
378 | then don't bother doing the actual store. */ | |
bd5635a1 | 379 | |
df14b38b | 380 | size = REGISTER_RAW_SIZE(regno); |
0791c5ea | 381 | |
df14b38b | 382 | if (size == sizeof(cval)) |
0791c5ea | 383 | { |
df14b38b SC |
384 | ptr = (PTR) &cval; |
385 | cval = val; | |
386 | } | |
387 | else if (size == sizeof(sval)) | |
388 | { | |
389 | ptr = (PTR) &sval; | |
0791c5ea | 390 | sval = val; |
df14b38b SC |
391 | } |
392 | else if (size == sizeof(ival)) | |
393 | { | |
394 | ptr = (PTR) &ival; | |
395 | ival = val; | |
396 | } | |
397 | else if (size == sizeof(lval)) | |
398 | { | |
399 | ptr = (PTR) &lval; | |
0791c5ea | 400 | lval = val; |
df14b38b | 401 | } |
be474657 DE |
402 | else if (size == sizeof(llval)) |
403 | { | |
404 | ptr = (PTR) &llval; | |
405 | llval = val; | |
406 | } | |
407 | else | |
df14b38b | 408 | { |
35247ccd | 409 | error ("GDB Internal Error in write_register() for register %d, size %d", |
df14b38b | 410 | regno, size); |
0791c5ea | 411 | } |
df14b38b | 412 | |
be474657 | 413 | SWAP_TARGET_AND_HOST (ptr, size); |
df14b38b SC |
414 | if (register_valid [regno]) |
415 | { | |
df14b38b SC |
416 | if (memcmp (®isters[REGISTER_BYTE (regno)], |
417 | ptr, size) == 0) | |
418 | return; | |
419 | } | |
420 | ||
421 | target_prepare_to_store (); | |
422 | ||
423 | memcpy (®isters[REGISTER_BYTE (regno)], ptr, size); | |
424 | ||
425 | register_valid [regno] = 1; | |
bd5635a1 RP |
426 | |
427 | target_store_registers (regno); | |
428 | } | |
429 | ||
430 | /* Record that register REGNO contains VAL. | |
431 | This is used when the value is obtained from the inferior or core dump, | |
432 | so there is no need to store the value there. */ | |
433 | ||
434 | void | |
435 | supply_register (regno, val) | |
436 | int regno; | |
437 | char *val; | |
438 | { | |
439 | register_valid[regno] = 1; | |
0791c5ea JK |
440 | memcpy (®isters[REGISTER_BYTE (regno)], val, REGISTER_RAW_SIZE (regno)); |
441 | ||
442 | /* On some architectures, e.g. HPPA, there are a few stray bits in some | |
443 | registers, that the rest of the code would like to ignore. */ | |
444 | #ifdef CLEAN_UP_REGISTER_VALUE | |
445 | CLEAN_UP_REGISTER_VALUE(regno, ®isters[REGISTER_BYTE(regno)]); | |
446 | #endif | |
bd5635a1 RP |
447 | } |
448 | \f | |
449 | /* Given a struct symbol for a variable, | |
450 | and a stack frame id, read the value of the variable | |
451 | and return a (pointer to a) struct value containing the value. | |
777bef06 JK |
452 | If the variable cannot be found, return a zero pointer. |
453 | If FRAME is NULL, use the selected_frame. */ | |
bd5635a1 RP |
454 | |
455 | value | |
456 | read_var_value (var, frame) | |
457 | register struct symbol *var; | |
458 | FRAME frame; | |
459 | { | |
460 | register value v; | |
461 | struct frame_info *fi; | |
462 | struct type *type = SYMBOL_TYPE (var); | |
463 | CORE_ADDR addr; | |
bd5635a1 RP |
464 | register int len; |
465 | ||
466 | v = allocate_value (type); | |
467 | VALUE_LVAL (v) = lval_memory; /* The most likely possibility. */ | |
468 | len = TYPE_LENGTH (type); | |
469 | ||
470 | if (frame == 0) frame = selected_frame; | |
471 | ||
472 | switch (SYMBOL_CLASS (var)) | |
473 | { | |
474 | case LOC_CONST: | |
0791c5ea | 475 | memcpy (VALUE_CONTENTS_RAW (v), &SYMBOL_VALUE (var), len); |
bd5635a1 RP |
476 | SWAP_TARGET_AND_HOST (VALUE_CONTENTS_RAW (v), len); |
477 | VALUE_LVAL (v) = not_lval; | |
478 | return v; | |
479 | ||
480 | case LOC_LABEL: | |
481 | addr = SYMBOL_VALUE_ADDRESS (var); | |
0791c5ea | 482 | memcpy (VALUE_CONTENTS_RAW (v), &addr, len); |
bd5635a1 RP |
483 | SWAP_TARGET_AND_HOST (VALUE_CONTENTS_RAW (v), len); |
484 | VALUE_LVAL (v) = not_lval; | |
485 | return v; | |
486 | ||
487 | case LOC_CONST_BYTES: | |
36b9d39c JG |
488 | { |
489 | char *bytes_addr; | |
490 | bytes_addr = SYMBOL_VALUE_BYTES (var); | |
0791c5ea | 491 | memcpy (VALUE_CONTENTS_RAW (v), bytes_addr, len); |
36b9d39c JG |
492 | VALUE_LVAL (v) = not_lval; |
493 | return v; | |
494 | } | |
bd5635a1 RP |
495 | |
496 | case LOC_STATIC: | |
bd5635a1 RP |
497 | addr = SYMBOL_VALUE_ADDRESS (var); |
498 | break; | |
499 | ||
bd5635a1 | 500 | case LOC_ARG: |
51b57ded FF |
501 | if (SYMBOL_BASEREG_VALID (var)) |
502 | { | |
503 | addr = FRAME_GET_BASEREG_VALUE (frame, SYMBOL_BASEREG (var)); | |
504 | } | |
505 | else | |
506 | { | |
507 | fi = get_frame_info (frame); | |
508 | if (fi == NULL) | |
509 | return 0; | |
510 | addr = FRAME_ARGS_ADDRESS (fi); | |
511 | } | |
512 | if (!addr) | |
513 | { | |
514 | return 0; | |
515 | } | |
bd5635a1 RP |
516 | addr += SYMBOL_VALUE (var); |
517 | break; | |
518 | ||
519 | case LOC_REF_ARG: | |
51b57ded FF |
520 | if (SYMBOL_BASEREG_VALID (var)) |
521 | { | |
522 | addr = FRAME_GET_BASEREG_VALUE (frame, SYMBOL_BASEREG (var)); | |
523 | } | |
524 | else | |
525 | { | |
526 | fi = get_frame_info (frame); | |
527 | if (fi == NULL) | |
528 | return 0; | |
529 | addr = FRAME_ARGS_ADDRESS (fi); | |
530 | } | |
531 | if (!addr) | |
532 | { | |
533 | return 0; | |
534 | } | |
bd5635a1 | 535 | addr += SYMBOL_VALUE (var); |
51b57ded | 536 | read_memory (addr, (char *) &addr, sizeof (CORE_ADDR)); |
bd5635a1 RP |
537 | break; |
538 | ||
539 | case LOC_LOCAL: | |
540 | case LOC_LOCAL_ARG: | |
51b57ded FF |
541 | if (SYMBOL_BASEREG_VALID (var)) |
542 | { | |
543 | addr = FRAME_GET_BASEREG_VALUE (frame, SYMBOL_BASEREG (var)); | |
544 | } | |
545 | else | |
546 | { | |
547 | fi = get_frame_info (frame); | |
548 | if (fi == NULL) | |
549 | return 0; | |
550 | addr = FRAME_LOCALS_ADDRESS (fi); | |
551 | } | |
552 | addr += SYMBOL_VALUE (var); | |
bd5635a1 RP |
553 | break; |
554 | ||
555 | case LOC_TYPEDEF: | |
556 | error ("Cannot look up value of a typedef"); | |
557 | break; | |
558 | ||
559 | case LOC_BLOCK: | |
560 | VALUE_ADDRESS (v) = BLOCK_START (SYMBOL_BLOCK_VALUE (var)); | |
561 | return v; | |
562 | ||
563 | case LOC_REGISTER: | |
564 | case LOC_REGPARM: | |
35247ccd | 565 | case LOC_REGPARM_ADDR: |
bd5635a1 | 566 | { |
777bef06 | 567 | struct block *b; |
bd5635a1 | 568 | |
777bef06 JK |
569 | if (frame == NULL) |
570 | return 0; | |
571 | b = get_frame_block (frame); | |
572 | ||
bd5635a1 RP |
573 | v = value_from_register (type, SYMBOL_VALUE (var), frame); |
574 | ||
35247ccd | 575 | if (SYMBOL_CLASS (var) == LOC_REGPARM_ADDR) |
0791c5ea JK |
576 | { |
577 | addr = *(CORE_ADDR *)VALUE_CONTENTS (v); | |
578 | VALUE_LVAL (v) = lval_memory; | |
579 | } | |
bd5635a1 RP |
580 | else |
581 | return v; | |
582 | } | |
583 | break; | |
584 | ||
35247ccd SG |
585 | case LOC_OPTIMIZED_OUT: |
586 | VALUE_LVAL (v) = not_lval; | |
587 | VALUE_OPTIMIZED_OUT (v) = 1; | |
588 | return v; | |
589 | ||
bd5635a1 RP |
590 | default: |
591 | error ("Cannot look up value of a botched symbol."); | |
592 | break; | |
593 | } | |
594 | ||
595 | VALUE_ADDRESS (v) = addr; | |
596 | VALUE_LAZY (v) = 1; | |
597 | return v; | |
598 | } | |
599 | ||
600 | /* Return a value of type TYPE, stored in register REGNUM, in frame | |
601 | FRAME. */ | |
602 | ||
603 | value | |
604 | value_from_register (type, regnum, frame) | |
605 | struct type *type; | |
606 | int regnum; | |
607 | FRAME frame; | |
608 | { | |
609 | char raw_buffer [MAX_REGISTER_RAW_SIZE]; | |
610 | char virtual_buffer[MAX_REGISTER_VIRTUAL_SIZE]; | |
611 | CORE_ADDR addr; | |
612 | int optim; | |
613 | value v = allocate_value (type); | |
614 | int len = TYPE_LENGTH (type); | |
615 | char *value_bytes = 0; | |
616 | int value_bytes_copied = 0; | |
617 | int num_storage_locs; | |
618 | enum lval_type lval; | |
619 | ||
620 | VALUE_REGNO (v) = regnum; | |
621 | ||
622 | num_storage_locs = (len > REGISTER_VIRTUAL_SIZE (regnum) ? | |
623 | ((len - 1) / REGISTER_RAW_SIZE (regnum)) + 1 : | |
624 | 1); | |
625 | ||
0791c5ea JK |
626 | if (num_storage_locs > 1 |
627 | #ifdef GDB_TARGET_IS_H8500 | |
628 | || TYPE_CODE (type) == TYPE_CODE_PTR | |
629 | #endif | |
630 | ) | |
bd5635a1 RP |
631 | { |
632 | /* Value spread across multiple storage locations. */ | |
633 | ||
634 | int local_regnum; | |
635 | int mem_stor = 0, reg_stor = 0; | |
636 | int mem_tracking = 1; | |
637 | CORE_ADDR last_addr = 0; | |
638 | CORE_ADDR first_addr; | |
639 | ||
640 | value_bytes = (char *) alloca (len + MAX_REGISTER_RAW_SIZE); | |
641 | ||
642 | /* Copy all of the data out, whereever it may be. */ | |
643 | ||
0791c5ea JK |
644 | #ifdef GDB_TARGET_IS_H8500 |
645 | /* This piece of hideosity is required because the H8500 treats registers | |
646 | differently depending upon whether they are used as pointers or not. As a | |
647 | pointer, a register needs to have a page register tacked onto the front. | |
648 | An alternate way to do this would be to have gcc output different register | |
649 | numbers for the pointer & non-pointer form of the register. But, it | |
650 | doesn't, so we're stuck with this. */ | |
651 | ||
35247ccd SG |
652 | if (TYPE_CODE (type) == TYPE_CODE_PTR |
653 | && len > 2) | |
bd5635a1 | 654 | { |
0791c5ea JK |
655 | int page_regnum; |
656 | ||
657 | switch (regnum) | |
658 | { | |
659 | case R0_REGNUM: case R1_REGNUM: case R2_REGNUM: case R3_REGNUM: | |
660 | page_regnum = SEG_D_REGNUM; | |
661 | break; | |
662 | case R4_REGNUM: case R5_REGNUM: | |
663 | page_regnum = SEG_E_REGNUM; | |
664 | break; | |
665 | case R6_REGNUM: case R7_REGNUM: | |
666 | page_regnum = SEG_T_REGNUM; | |
667 | break; | |
668 | } | |
669 | ||
670 | value_bytes[0] = 0; | |
671 | get_saved_register (value_bytes + 1, | |
bd5635a1 RP |
672 | &optim, |
673 | &addr, | |
674 | frame, | |
0791c5ea | 675 | page_regnum, |
bd5635a1 | 676 | &lval); |
0791c5ea | 677 | |
bd5635a1 RP |
678 | if (lval == lval_register) |
679 | reg_stor++; | |
680 | else | |
df14b38b SC |
681 | mem_stor++; |
682 | first_addr = addr; | |
0791c5ea | 683 | last_addr = addr; |
bd5635a1 | 684 | |
0791c5ea JK |
685 | get_saved_register (value_bytes + 2, |
686 | &optim, | |
687 | &addr, | |
688 | frame, | |
689 | regnum, | |
690 | &lval); | |
691 | ||
692 | if (lval == lval_register) | |
693 | reg_stor++; | |
694 | else | |
695 | { | |
696 | mem_stor++; | |
697 | mem_tracking = mem_tracking && (addr == last_addr); | |
bd5635a1 RP |
698 | } |
699 | last_addr = addr; | |
700 | } | |
0791c5ea JK |
701 | else |
702 | #endif /* GDB_TARGET_IS_H8500 */ | |
703 | for (local_regnum = regnum; | |
704 | value_bytes_copied < len; | |
705 | (value_bytes_copied += REGISTER_RAW_SIZE (local_regnum), | |
706 | ++local_regnum)) | |
707 | { | |
708 | get_saved_register (value_bytes + value_bytes_copied, | |
709 | &optim, | |
710 | &addr, | |
711 | frame, | |
712 | local_regnum, | |
713 | &lval); | |
df14b38b SC |
714 | |
715 | if (regnum == local_regnum) | |
716 | first_addr = addr; | |
0791c5ea JK |
717 | if (lval == lval_register) |
718 | reg_stor++; | |
719 | else | |
720 | { | |
721 | mem_stor++; | |
0791c5ea JK |
722 | |
723 | mem_tracking = | |
724 | (mem_tracking | |
725 | && (regnum == local_regnum | |
726 | || addr == last_addr)); | |
727 | } | |
728 | last_addr = addr; | |
729 | } | |
bd5635a1 RP |
730 | |
731 | if ((reg_stor && mem_stor) | |
732 | || (mem_stor && !mem_tracking)) | |
733 | /* Mixed storage; all of the hassle we just went through was | |
734 | for some good purpose. */ | |
735 | { | |
736 | VALUE_LVAL (v) = lval_reg_frame_relative; | |
737 | VALUE_FRAME (v) = FRAME_FP (frame); | |
738 | VALUE_FRAME_REGNUM (v) = regnum; | |
739 | } | |
740 | else if (mem_stor) | |
741 | { | |
742 | VALUE_LVAL (v) = lval_memory; | |
743 | VALUE_ADDRESS (v) = first_addr; | |
744 | } | |
745 | else if (reg_stor) | |
746 | { | |
747 | VALUE_LVAL (v) = lval_register; | |
748 | VALUE_ADDRESS (v) = first_addr; | |
749 | } | |
750 | else | |
751 | fatal ("value_from_register: Value not stored anywhere!"); | |
752 | ||
753 | VALUE_OPTIMIZED_OUT (v) = optim; | |
754 | ||
755 | /* Any structure stored in more than one register will always be | |
756 | an integral number of registers. Otherwise, you'd need to do | |
757 | some fiddling with the last register copied here for little | |
758 | endian machines. */ | |
759 | ||
760 | /* Copy into the contents section of the value. */ | |
0791c5ea | 761 | memcpy (VALUE_CONTENTS_RAW (v), value_bytes, len); |
bd5635a1 | 762 | |
df14b38b SC |
763 | /* Finally do any conversion necessary when extracting this |
764 | type from more than one register. */ | |
765 | #ifdef REGISTER_CONVERT_TO_TYPE | |
766 | REGISTER_CONVERT_TO_TYPE(regnum, type, VALUE_CONTENTS_RAW(v)); | |
767 | #endif | |
bd5635a1 RP |
768 | return v; |
769 | } | |
770 | ||
771 | /* Data is completely contained within a single register. Locate the | |
772 | register's contents in a real register or in core; | |
773 | read the data in raw format. */ | |
774 | ||
775 | get_saved_register (raw_buffer, &optim, &addr, frame, regnum, &lval); | |
776 | VALUE_OPTIMIZED_OUT (v) = optim; | |
777 | VALUE_LVAL (v) = lval; | |
778 | VALUE_ADDRESS (v) = addr; | |
779 | ||
780 | /* Convert the raw contents to virtual contents. | |
781 | (Just copy them if the formats are the same.) */ | |
782 | ||
0791c5ea | 783 | REGISTER_CONVERT_TO_VIRTUAL (regnum, raw_buffer, virtual_buffer); |
bd5635a1 RP |
784 | |
785 | if (REGISTER_CONVERTIBLE (regnum)) | |
786 | { | |
787 | /* When the raw and virtual formats differ, the virtual format | |
788 | corresponds to a specific data type. If we want that type, | |
789 | copy the data into the value. | |
790 | Otherwise, do a type-conversion. */ | |
791 | ||
792 | if (type != REGISTER_VIRTUAL_TYPE (regnum)) | |
793 | { | |
794 | /* eg a variable of type `float' in a 68881 register | |
795 | with raw type `extended' and virtual type `double'. | |
796 | Fetch it as a `double' and then convert to `float'. */ | |
797 | v = allocate_value (REGISTER_VIRTUAL_TYPE (regnum)); | |
0791c5ea | 798 | memcpy (VALUE_CONTENTS_RAW (v), virtual_buffer, len); |
bd5635a1 RP |
799 | v = value_cast (type, v); |
800 | } | |
801 | else | |
0791c5ea | 802 | memcpy (VALUE_CONTENTS_RAW (v), virtual_buffer, len); |
bd5635a1 RP |
803 | } |
804 | else | |
805 | { | |
806 | /* Raw and virtual formats are the same for this register. */ | |
807 | ||
808 | #if TARGET_BYTE_ORDER == BIG_ENDIAN | |
809 | if (len < REGISTER_RAW_SIZE (regnum)) | |
810 | { | |
811 | /* Big-endian, and we want less than full size. */ | |
812 | VALUE_OFFSET (v) = REGISTER_RAW_SIZE (regnum) - len; | |
813 | } | |
814 | #endif | |
815 | ||
0791c5ea | 816 | memcpy (VALUE_CONTENTS_RAW (v), virtual_buffer + VALUE_OFFSET (v), len); |
bd5635a1 RP |
817 | } |
818 | ||
819 | return v; | |
820 | } | |
821 | \f | |
36b9d39c | 822 | /* Given a struct symbol for a variable or function, |
bd5635a1 | 823 | and a stack frame id, |
36b9d39c JG |
824 | return a (pointer to a) struct value containing the properly typed |
825 | address. */ | |
bd5635a1 RP |
826 | |
827 | value | |
828 | locate_var_value (var, frame) | |
829 | register struct symbol *var; | |
830 | FRAME frame; | |
831 | { | |
832 | CORE_ADDR addr = 0; | |
833 | struct type *type = SYMBOL_TYPE (var); | |
bd5635a1 RP |
834 | value lazy_value; |
835 | ||
836 | /* Evaluate it first; if the result is a memory address, we're fine. | |
837 | Lazy evaluation pays off here. */ | |
838 | ||
839 | lazy_value = read_var_value (var, frame); | |
840 | if (lazy_value == 0) | |
0791c5ea | 841 | error ("Address of \"%s\" is unknown.", SYMBOL_SOURCE_NAME (var)); |
bd5635a1 | 842 | |
36b9d39c JG |
843 | if (VALUE_LAZY (lazy_value) |
844 | || TYPE_CODE (type) == TYPE_CODE_FUNC) | |
bd5635a1 RP |
845 | { |
846 | addr = VALUE_ADDRESS (lazy_value); | |
7d9884b9 | 847 | return value_from_longest (lookup_pointer_type (type), (LONGEST) addr); |
bd5635a1 RP |
848 | } |
849 | ||
850 | /* Not a memory address; check what the problem was. */ | |
851 | switch (VALUE_LVAL (lazy_value)) | |
852 | { | |
853 | case lval_register: | |
854 | case lval_reg_frame_relative: | |
855 | error ("Address requested for identifier \"%s\" which is in a register.", | |
0791c5ea | 856 | SYMBOL_SOURCE_NAME (var)); |
bd5635a1 RP |
857 | break; |
858 | ||
859 | default: | |
860 | error ("Can't take address of \"%s\" which isn't an lvalue.", | |
0791c5ea | 861 | SYMBOL_SOURCE_NAME (var)); |
bd5635a1 RP |
862 | break; |
863 | } | |
864 | return 0; /* For lint -- never reached */ | |
865 | } |