1 /* Core dump and executable file functions above target vector, for GDB.
3 Copyright (C) 1986-2014 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/>. */
33 #include "completer.h"
34 #include "exceptions.h"
36 #include "cli/cli-utils.h"
38 /* Local function declarations. */
40 extern void _initialize_core (void);
42 /* You can have any number of hooks for `exec_file_command' command to
43 call. If there's only one hook, it is set in exec_file_display
44 hook. If there are two or more hooks, they are set in
45 exec_file_extra_hooks[], and deprecated_exec_file_display_hook is
46 set to a function that calls all of them. This extra complexity is
47 needed to preserve compatibility with old code that assumed that
48 only one hook could be set, and which called
49 deprecated_exec_file_display_hook directly. */
51 typedef void (*hook_type
) (const char *);
53 hook_type deprecated_exec_file_display_hook
; /* The original hook. */
54 static hook_type
*exec_file_extra_hooks
; /* Array of additional
56 static int exec_file_hook_count
= 0; /* Size of array. */
58 /* Binary file diddling handle for the core file. */
62 /* corelow.c target. It is never NULL after GDB initialization. */
64 struct target_ops
*core_target
;
67 /* Backward compatability with old way of specifying core files. */
70 core_file_command (char *filename
, int from_tty
)
72 dont_repeat (); /* Either way, seems bogus. */
74 gdb_assert (core_target
!= NULL
);
77 (core_target
->to_detach
) (core_target
, filename
, from_tty
);
79 (core_target
->to_open
) (filename
, from_tty
);
83 /* If there are two or more functions that wish to hook into
84 exec_file_command, this function will call all of the hook
88 call_extra_exec_file_hooks (const char *filename
)
92 for (i
= 0; i
< exec_file_hook_count
; i
++)
93 (*exec_file_extra_hooks
[i
]) (filename
);
96 /* Call this to specify the hook for exec_file_command to call back.
97 This is called from the x-window display code. */
100 specify_exec_file_hook (void (*hook
) (const char *))
102 hook_type
*new_array
;
104 if (deprecated_exec_file_display_hook
!= NULL
)
106 /* There's already a hook installed. Arrange to have both it
107 and the subsequent hooks called. */
108 if (exec_file_hook_count
== 0)
110 /* If this is the first extra hook, initialize the hook
112 exec_file_extra_hooks
= (hook_type
*)
113 xmalloc (sizeof (hook_type
));
114 exec_file_extra_hooks
[0] = deprecated_exec_file_display_hook
;
115 deprecated_exec_file_display_hook
= call_extra_exec_file_hooks
;
116 exec_file_hook_count
= 1;
119 /* Grow the hook array by one and add the new hook to the end.
120 Yes, it's inefficient to grow it by one each time but since
121 this is hardly ever called it's not a big deal. */
122 exec_file_hook_count
++;
123 new_array
= (hook_type
*)
124 xrealloc (exec_file_extra_hooks
,
125 exec_file_hook_count
* sizeof (hook_type
));
126 exec_file_extra_hooks
= new_array
;
127 exec_file_extra_hooks
[exec_file_hook_count
- 1] = hook
;
130 deprecated_exec_file_display_hook
= hook
;
134 reopen_exec_file (void)
139 struct cleanup
*cleanups
;
141 /* Don't do anything if there isn't an exec file. */
142 if (exec_bfd
== NULL
)
145 /* If the timestamp of the exec file has changed, reopen it. */
146 filename
= xstrdup (bfd_get_filename (exec_bfd
));
147 cleanups
= make_cleanup (xfree
, filename
);
148 res
= stat (filename
, &st
);
150 if (exec_bfd_mtime
&& exec_bfd_mtime
!= st
.st_mtime
)
151 exec_file_attach (filename
, 0);
153 /* If we accessed the file since last opening it, close it now;
154 this stops GDB from holding the executable open after it
156 bfd_cache_close_all ();
158 do_cleanups (cleanups
);
161 /* If we have both a core file and an exec file,
162 print a warning if they don't go together. */
165 validate_files (void)
167 if (exec_bfd
&& core_bfd
)
169 if (!core_file_matches_executable_p (core_bfd
, exec_bfd
))
170 warning (_("core file may not match specified executable file."));
171 else if (bfd_get_mtime (exec_bfd
) > bfd_get_mtime (core_bfd
))
172 warning (_("exec file is newer than core file."));
176 /* Return the name of the executable file as a string.
177 ERR nonzero means get error if there is none specified;
178 otherwise return 0 in that case. */
181 get_exec_file (int err
)
184 return exec_filename
;
188 error (_("No executable file specified.\n\
189 Use the \"file\" or \"exec-file\" command."));
195 memory_error_message (enum target_xfer_status err
,
196 struct gdbarch
*gdbarch
, CORE_ADDR memaddr
)
200 case TARGET_XFER_E_IO
:
201 /* Actually, address between memaddr and memaddr + len was out of
203 return xstrprintf (_("Cannot access memory at address %s"),
204 paddress (gdbarch
, memaddr
));
205 case TARGET_XFER_UNAVAILABLE
:
206 return xstrprintf (_("Memory at address %s unavailable."),
207 paddress (gdbarch
, memaddr
));
209 internal_error (__FILE__
, __LINE__
,
210 "unhandled target_xfer_status: %s (%s)",
211 target_xfer_status_to_string (err
),
216 /* Report a memory error by throwing a suitable exception. */
219 memory_error (enum target_xfer_status err
, CORE_ADDR memaddr
)
222 enum errors exception
= GDB_NO_ERROR
;
224 /* Build error string. */
225 str
= memory_error_message (err
, target_gdbarch (), memaddr
);
226 make_cleanup (xfree
, str
);
228 /* Choose the right error to throw. */
231 case TARGET_XFER_E_IO
:
232 exception
= MEMORY_ERROR
;
234 case TARGET_XFER_UNAVAILABLE
:
235 exception
= NOT_AVAILABLE_ERROR
;
240 throw_error (exception
, ("%s"), str
);
243 /* Same as target_read_memory, but report an error if can't read. */
246 read_memory (CORE_ADDR memaddr
, gdb_byte
*myaddr
, ssize_t len
)
252 enum target_xfer_status status
;
255 status
= target_xfer_partial (current_target
.beneath
,
256 TARGET_OBJECT_MEMORY
, NULL
,
257 myaddr
+ xfered
, NULL
,
258 memaddr
+ xfered
, len
- xfered
,
261 if (status
!= TARGET_XFER_OK
)
262 memory_error (status
== TARGET_XFER_EOF
? TARGET_XFER_E_IO
: status
,
265 xfered
+= xfered_len
;
270 /* Same as target_read_stack, but report an error if can't read. */
273 read_stack (CORE_ADDR memaddr
, gdb_byte
*myaddr
, ssize_t len
)
277 status
= target_read_stack (memaddr
, myaddr
, len
);
279 memory_error (status
, memaddr
);
282 /* Same as target_read_code, but report an error if can't read. */
285 read_code (CORE_ADDR memaddr
, gdb_byte
*myaddr
, ssize_t len
)
289 status
= target_read_code (memaddr
, myaddr
, len
);
291 memory_error (status
, memaddr
);
294 /* Argument / return result struct for use with
295 do_captured_read_memory_integer(). MEMADDR and LEN are filled in
296 by gdb_read_memory_integer(). RESULT is the contents that were
297 successfully read from MEMADDR of length LEN. */
299 struct captured_read_memory_integer_arguments
303 enum bfd_endian byte_order
;
307 /* Helper function for gdb_read_memory_integer(). DATA must be a
308 pointer to a captured_read_memory_integer_arguments struct.
309 Return 1 if successful. Note that the catch_errors() interface
310 will return 0 if an error occurred while reading memory. This
311 choice of return code is so that we can distinguish between
312 success and failure. */
315 do_captured_read_memory_integer (void *data
)
317 struct captured_read_memory_integer_arguments
*args
318 = (struct captured_read_memory_integer_arguments
*) data
;
319 CORE_ADDR memaddr
= args
->memaddr
;
321 enum bfd_endian byte_order
= args
->byte_order
;
323 args
->result
= read_memory_integer (memaddr
, len
, byte_order
);
328 /* Read memory at MEMADDR of length LEN and put the contents in
329 RETURN_VALUE. Return 0 if MEMADDR couldn't be read and non-zero
333 safe_read_memory_integer (CORE_ADDR memaddr
, int len
,
334 enum bfd_endian byte_order
,
335 LONGEST
*return_value
)
338 struct captured_read_memory_integer_arguments args
;
340 args
.memaddr
= memaddr
;
342 args
.byte_order
= byte_order
;
344 status
= catch_errors (do_captured_read_memory_integer
, &args
,
345 "", RETURN_MASK_ALL
);
347 *return_value
= args
.result
;
353 read_memory_integer (CORE_ADDR memaddr
, int len
,
354 enum bfd_endian byte_order
)
356 gdb_byte buf
[sizeof (LONGEST
)];
358 read_memory (memaddr
, buf
, len
);
359 return extract_signed_integer (buf
, len
, byte_order
);
363 read_memory_unsigned_integer (CORE_ADDR memaddr
, int len
,
364 enum bfd_endian byte_order
)
366 gdb_byte buf
[sizeof (ULONGEST
)];
368 read_memory (memaddr
, buf
, len
);
369 return extract_unsigned_integer (buf
, len
, byte_order
);
373 read_code_integer (CORE_ADDR memaddr
, int len
,
374 enum bfd_endian byte_order
)
376 gdb_byte buf
[sizeof (LONGEST
)];
378 read_code (memaddr
, buf
, len
);
379 return extract_signed_integer (buf
, len
, byte_order
);
383 read_code_unsigned_integer (CORE_ADDR memaddr
, int len
,
384 enum bfd_endian byte_order
)
386 gdb_byte buf
[sizeof (ULONGEST
)];
388 read_code (memaddr
, buf
, len
);
389 return extract_unsigned_integer (buf
, len
, byte_order
);
393 read_memory_string (CORE_ADDR memaddr
, char *buffer
, int max_len
)
402 if (cp
- buffer
>= max_len
)
404 buffer
[max_len
- 1] = '\0';
407 cnt
= max_len
- (cp
- buffer
);
410 read_memory (memaddr
+ (int) (cp
- buffer
), (gdb_byte
*) cp
, cnt
);
411 for (i
= 0; i
< cnt
&& *cp
; i
++, cp
++)
420 read_memory_typed_address (CORE_ADDR addr
, struct type
*type
)
422 gdb_byte
*buf
= alloca (TYPE_LENGTH (type
));
424 read_memory (addr
, buf
, TYPE_LENGTH (type
));
425 return extract_typed_address (buf
, type
);
428 /* Same as target_write_memory, but report an error if can't
431 write_memory (CORE_ADDR memaddr
,
432 const bfd_byte
*myaddr
, ssize_t len
)
436 status
= target_write_memory (memaddr
, myaddr
, len
);
438 memory_error (status
, memaddr
);
441 /* Same as write_memory, but notify 'memory_changed' observers. */
444 write_memory_with_notification (CORE_ADDR memaddr
, const bfd_byte
*myaddr
,
447 write_memory (memaddr
, myaddr
, len
);
448 observer_notify_memory_changed (current_inferior (), memaddr
, len
, myaddr
);
451 /* Store VALUE at ADDR in the inferior as a LEN-byte unsigned
454 write_memory_unsigned_integer (CORE_ADDR addr
, int len
,
455 enum bfd_endian byte_order
,
458 gdb_byte
*buf
= alloca (len
);
460 store_unsigned_integer (buf
, len
, byte_order
, value
);
461 write_memory (addr
, buf
, len
);
464 /* Store VALUE at ADDR in the inferior as a LEN-byte signed
467 write_memory_signed_integer (CORE_ADDR addr
, int len
,
468 enum bfd_endian byte_order
,
471 gdb_byte
*buf
= alloca (len
);
473 store_signed_integer (buf
, len
, byte_order
, value
);
474 write_memory (addr
, buf
, len
);
477 /* The current default bfd target. Points to storage allocated for
481 /* Same thing, except it is "auto" not NULL for the default case. */
482 static char *gnutarget_string
;
484 show_gnutarget_string (struct ui_file
*file
, int from_tty
,
485 struct cmd_list_element
*c
,
488 fprintf_filtered (file
,
489 _("The current BFD target is \"%s\".\n"), value
);
492 static void set_gnutarget_command (char *, int,
493 struct cmd_list_element
*);
496 set_gnutarget_command (char *ignore
, int from_tty
,
497 struct cmd_list_element
*c
)
499 char *gend
= gnutarget_string
+ strlen (gnutarget_string
);
501 gend
= remove_trailing_whitespace (gnutarget_string
, gend
);
504 if (strcmp (gnutarget_string
, "auto") == 0)
507 gnutarget
= gnutarget_string
;
510 /* A completion function for "set gnutarget". */
512 static VEC (char_ptr
) *
513 complete_set_gnutarget (struct cmd_list_element
*cmd
,
514 const char *text
, const char *word
)
516 static const char **bfd_targets
;
518 if (bfd_targets
== NULL
)
522 bfd_targets
= bfd_target_list ();
523 for (last
= 0; bfd_targets
[last
] != NULL
; ++last
)
526 bfd_targets
= xrealloc (bfd_targets
, (last
+ 2) * sizeof (const char **));
527 bfd_targets
[last
] = "auto";
528 bfd_targets
[last
+ 1] = NULL
;
531 return complete_on_enum (bfd_targets
, text
, word
);
534 /* Set the gnutarget. */
536 set_gnutarget (char *newtarget
)
538 if (gnutarget_string
!= NULL
)
539 xfree (gnutarget_string
);
540 gnutarget_string
= xstrdup (newtarget
);
541 set_gnutarget_command (NULL
, 0, NULL
);
545 _initialize_core (void)
547 struct cmd_list_element
*c
;
549 c
= add_cmd ("core-file", class_files
, core_file_command
, _("\
550 Use FILE as core dump for examining memory and registers.\n\
551 No arg means have no core file. This command has been superseded by the\n\
552 `target core' and `detach' commands."), &cmdlist
);
553 set_cmd_completer (c
, filename_completer
);
556 c
= add_setshow_string_noescape_cmd ("gnutarget", class_files
,
557 &gnutarget_string
, _("\
558 Set the current BFD target."), _("\
559 Show the current BFD target."), _("\
560 Use `set gnutarget auto' to specify automatic detection."),
561 set_gnutarget_command
,
562 show_gnutarget_string
,
563 &setlist
, &showlist
);
564 set_cmd_completer (c
, complete_set_gnutarget
);
566 add_alias_cmd ("g", "gnutarget", class_files
, 1, &setlist
);
568 if (getenv ("GNUTARGET"))
569 set_gnutarget (getenv ("GNUTARGET"));
571 set_gnutarget ("auto");