1 /* Core dump and executable file functions above target vector, for GDB.
3 Copyright (C) 1986-2019 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 /* Standard C includes. */
27 /* Local non-gdb includes. */
29 #include "cli/cli-utils.h"
31 #include "completer.h"
36 #include "observable.h"
40 /* You can have any number of hooks for `exec_file_command' command to
41 call. If there's only one hook, it is set in exec_file_display
42 hook. If there are two or more hooks, they are set in
43 exec_file_extra_hooks[], and deprecated_exec_file_display_hook is
44 set to a function that calls all of them. This extra complexity is
45 needed to preserve compatibility with old code that assumed that
46 only one hook could be set, and which called
47 deprecated_exec_file_display_hook directly. */
49 typedef void (*hook_type
) (const char *);
51 hook_type deprecated_exec_file_display_hook
; /* The original hook. */
52 static hook_type
*exec_file_extra_hooks
; /* Array of additional
54 static int exec_file_hook_count
= 0; /* Size of array. */
58 /* If there are two or more functions that wish to hook into
59 exec_file_command, this function will call all of the hook
63 call_extra_exec_file_hooks (const char *filename
)
67 for (i
= 0; i
< exec_file_hook_count
; i
++)
68 (*exec_file_extra_hooks
[i
]) (filename
);
71 /* Call this to specify the hook for exec_file_command to call back.
72 This is called from the x-window display code. */
75 specify_exec_file_hook (void (*hook
) (const char *))
79 if (deprecated_exec_file_display_hook
!= NULL
)
81 /* There's already a hook installed. Arrange to have both it
82 and the subsequent hooks called. */
83 if (exec_file_hook_count
== 0)
85 /* If this is the first extra hook, initialize the hook
87 exec_file_extra_hooks
= XNEW (hook_type
);
88 exec_file_extra_hooks
[0] = deprecated_exec_file_display_hook
;
89 deprecated_exec_file_display_hook
= call_extra_exec_file_hooks
;
90 exec_file_hook_count
= 1;
93 /* Grow the hook array by one and add the new hook to the end.
94 Yes, it's inefficient to grow it by one each time but since
95 this is hardly ever called it's not a big deal. */
96 exec_file_hook_count
++;
97 new_array
= (hook_type
*)
98 xrealloc (exec_file_extra_hooks
,
99 exec_file_hook_count
* sizeof (hook_type
));
100 exec_file_extra_hooks
= new_array
;
101 exec_file_extra_hooks
[exec_file_hook_count
- 1] = hook
;
104 deprecated_exec_file_display_hook
= hook
;
108 reopen_exec_file (void)
113 /* Don't do anything if there isn't an exec file. */
114 if (exec_bfd
== NULL
)
117 /* If the timestamp of the exec file has changed, reopen it. */
118 std::string filename
= bfd_get_filename (exec_bfd
);
119 res
= stat (filename
.c_str (), &st
);
121 if (res
== 0 && exec_bfd_mtime
&& exec_bfd_mtime
!= st
.st_mtime
)
122 exec_file_attach (filename
.c_str (), 0);
124 /* If we accessed the file since last opening it, close it now;
125 this stops GDB from holding the executable open after it
127 bfd_cache_close_all ();
130 /* If we have both a core file and an exec file,
131 print a warning if they don't go together. */
134 validate_files (void)
136 if (exec_bfd
&& core_bfd
)
138 if (!core_file_matches_executable_p (core_bfd
, exec_bfd
))
139 warning (_("core file may not match specified executable file."));
140 else if (bfd_get_mtime (exec_bfd
) > bfd_get_mtime (core_bfd
))
141 warning (_("exec file is newer than core file."));
145 /* See common/common-inferior.h. */
148 get_exec_file (int err
)
151 return exec_filename
;
155 error (_("No executable file specified.\n\
156 Use the \"file\" or \"exec-file\" command."));
162 memory_error_message (enum target_xfer_status err
,
163 struct gdbarch
*gdbarch
, CORE_ADDR memaddr
)
167 case TARGET_XFER_E_IO
:
168 /* Actually, address between memaddr and memaddr + len was out of
170 return string_printf (_("Cannot access memory at address %s"),
171 paddress (gdbarch
, memaddr
));
172 case TARGET_XFER_UNAVAILABLE
:
173 return string_printf (_("Memory at address %s unavailable."),
174 paddress (gdbarch
, memaddr
));
176 internal_error (__FILE__
, __LINE__
,
177 "unhandled target_xfer_status: %s (%s)",
178 target_xfer_status_to_string (err
),
183 /* Report a memory error by throwing a suitable exception. */
186 memory_error (enum target_xfer_status err
, CORE_ADDR memaddr
)
188 enum errors exception
= GDB_NO_ERROR
;
190 /* Build error string. */
191 std::string str
= memory_error_message (err
, target_gdbarch (), memaddr
);
193 /* Choose the right error to throw. */
196 case TARGET_XFER_E_IO
:
197 exception
= MEMORY_ERROR
;
199 case TARGET_XFER_UNAVAILABLE
:
200 exception
= NOT_AVAILABLE_ERROR
;
205 throw_error (exception
, ("%s"), str
.c_str ());
208 /* Helper function. */
211 read_memory_object (enum target_object object
, CORE_ADDR memaddr
,
212 gdb_byte
*myaddr
, ssize_t len
)
218 enum target_xfer_status status
;
221 status
= target_xfer_partial (current_top_target (), object
, NULL
,
222 myaddr
+ xfered
, NULL
,
223 memaddr
+ xfered
, len
- xfered
,
226 if (status
!= TARGET_XFER_OK
)
227 memory_error (status
== TARGET_XFER_EOF
? TARGET_XFER_E_IO
: status
,
230 xfered
+= xfered_len
;
235 /* Same as target_read_memory, but report an error if can't read. */
238 read_memory (CORE_ADDR memaddr
, gdb_byte
*myaddr
, ssize_t len
)
240 read_memory_object (TARGET_OBJECT_MEMORY
, memaddr
, myaddr
, len
);
243 /* Same as target_read_stack, but report an error if can't read. */
246 read_stack (CORE_ADDR memaddr
, gdb_byte
*myaddr
, ssize_t len
)
248 read_memory_object (TARGET_OBJECT_STACK_MEMORY
, memaddr
, myaddr
, len
);
251 /* Same as target_read_code, but report an error if can't read. */
254 read_code (CORE_ADDR memaddr
, gdb_byte
*myaddr
, ssize_t len
)
256 read_memory_object (TARGET_OBJECT_CODE_MEMORY
, memaddr
, myaddr
, len
);
259 /* Read memory at MEMADDR of length LEN and put the contents in
260 RETURN_VALUE. Return 0 if MEMADDR couldn't be read and non-zero
264 safe_read_memory_integer (CORE_ADDR memaddr
, int len
,
265 enum bfd_endian byte_order
,
266 LONGEST
*return_value
)
268 gdb_byte buf
[sizeof (LONGEST
)];
270 if (target_read_memory (memaddr
, buf
, len
))
273 *return_value
= extract_signed_integer (buf
, len
, byte_order
);
277 /* Read memory at MEMADDR of length LEN and put the contents in
278 RETURN_VALUE. Return 0 if MEMADDR couldn't be read and non-zero
282 safe_read_memory_unsigned_integer (CORE_ADDR memaddr
, int len
,
283 enum bfd_endian byte_order
,
284 ULONGEST
*return_value
)
286 gdb_byte buf
[sizeof (ULONGEST
)];
288 if (target_read_memory (memaddr
, buf
, len
))
291 *return_value
= extract_unsigned_integer (buf
, len
, byte_order
);
296 read_memory_integer (CORE_ADDR memaddr
, int len
,
297 enum bfd_endian byte_order
)
299 gdb_byte buf
[sizeof (LONGEST
)];
301 read_memory (memaddr
, buf
, len
);
302 return extract_signed_integer (buf
, len
, byte_order
);
306 read_memory_unsigned_integer (CORE_ADDR memaddr
, int len
,
307 enum bfd_endian byte_order
)
309 gdb_byte buf
[sizeof (ULONGEST
)];
311 read_memory (memaddr
, buf
, len
);
312 return extract_unsigned_integer (buf
, len
, byte_order
);
316 read_code_integer (CORE_ADDR memaddr
, int len
,
317 enum bfd_endian byte_order
)
319 gdb_byte buf
[sizeof (LONGEST
)];
321 read_code (memaddr
, buf
, len
);
322 return extract_signed_integer (buf
, len
, byte_order
);
326 read_code_unsigned_integer (CORE_ADDR memaddr
, int len
,
327 enum bfd_endian byte_order
)
329 gdb_byte buf
[sizeof (ULONGEST
)];
331 read_code (memaddr
, buf
, len
);
332 return extract_unsigned_integer (buf
, len
, byte_order
);
336 read_memory_string (CORE_ADDR memaddr
, char *buffer
, int max_len
)
345 if (cp
- buffer
>= max_len
)
347 buffer
[max_len
- 1] = '\0';
350 cnt
= max_len
- (cp
- buffer
);
353 read_memory (memaddr
+ (int) (cp
- buffer
), (gdb_byte
*) cp
, cnt
);
354 for (i
= 0; i
< cnt
&& *cp
; i
++, cp
++)
363 read_memory_typed_address (CORE_ADDR addr
, struct type
*type
)
365 gdb_byte
*buf
= (gdb_byte
*) alloca (TYPE_LENGTH (type
));
367 read_memory (addr
, buf
, TYPE_LENGTH (type
));
368 return extract_typed_address (buf
, type
);
374 write_memory (CORE_ADDR memaddr
,
375 const bfd_byte
*myaddr
, ssize_t len
)
379 status
= target_write_memory (memaddr
, myaddr
, len
);
381 memory_error (TARGET_XFER_E_IO
, memaddr
);
384 /* Same as write_memory, but notify 'memory_changed' observers. */
387 write_memory_with_notification (CORE_ADDR memaddr
, const bfd_byte
*myaddr
,
390 write_memory (memaddr
, myaddr
, len
);
391 gdb::observers::memory_changed
.notify (current_inferior (), memaddr
, len
, myaddr
);
394 /* Store VALUE at ADDR in the inferior as a LEN-byte unsigned
397 write_memory_unsigned_integer (CORE_ADDR addr
, int len
,
398 enum bfd_endian byte_order
,
401 gdb_byte
*buf
= (gdb_byte
*) alloca (len
);
403 store_unsigned_integer (buf
, len
, byte_order
, value
);
404 write_memory (addr
, buf
, len
);
407 /* Store VALUE at ADDR in the inferior as a LEN-byte signed
410 write_memory_signed_integer (CORE_ADDR addr
, int len
,
411 enum bfd_endian byte_order
,
414 gdb_byte
*buf
= (gdb_byte
*) alloca (len
);
416 store_signed_integer (buf
, len
, byte_order
, value
);
417 write_memory (addr
, buf
, len
);
420 /* The current default bfd target. Points to storage allocated for
424 /* Same thing, except it is "auto" not NULL for the default case. */
425 static char *gnutarget_string
;
427 show_gnutarget_string (struct ui_file
*file
, int from_tty
,
428 struct cmd_list_element
*c
,
431 fprintf_filtered (file
,
432 _("The current BFD target is \"%s\".\n"), value
);
436 set_gnutarget_command (const char *ignore
, int from_tty
,
437 struct cmd_list_element
*c
)
439 char *gend
= gnutarget_string
+ strlen (gnutarget_string
);
441 gend
= remove_trailing_whitespace (gnutarget_string
, gend
);
444 if (strcmp (gnutarget_string
, "auto") == 0)
447 gnutarget
= gnutarget_string
;
450 /* A completion function for "set gnutarget". */
453 complete_set_gnutarget (struct cmd_list_element
*cmd
,
454 completion_tracker
&tracker
,
455 const char *text
, const char *word
)
457 static const char **bfd_targets
;
459 if (bfd_targets
== NULL
)
463 bfd_targets
= bfd_target_list ();
464 for (last
= 0; bfd_targets
[last
] != NULL
; ++last
)
467 bfd_targets
= XRESIZEVEC (const char *, bfd_targets
, last
+ 2);
468 bfd_targets
[last
] = "auto";
469 bfd_targets
[last
+ 1] = NULL
;
472 complete_on_enum (tracker
, bfd_targets
, text
, word
);
475 /* Set the gnutarget. */
477 set_gnutarget (const char *newtarget
)
479 if (gnutarget_string
!= NULL
)
480 xfree (gnutarget_string
);
481 gnutarget_string
= xstrdup (newtarget
);
482 set_gnutarget_command (NULL
, 0, NULL
);
486 _initialize_core (void)
488 struct cmd_list_element
*c
;
490 c
= add_cmd ("core-file", class_files
, core_file_command
, _("\
491 Use FILE as core dump for examining memory and registers.\n\
492 Usage: core-file FILE\n\
493 No arg means have no core file. This command has been superseded by the\n\
494 `target core' and `detach' commands."), &cmdlist
);
495 set_cmd_completer (c
, filename_completer
);
498 c
= add_setshow_string_noescape_cmd ("gnutarget", class_files
,
499 &gnutarget_string
, _("\
500 Set the current BFD target."), _("\
501 Show the current BFD target."), _("\
502 Use `set gnutarget auto' to specify automatic detection."),
503 set_gnutarget_command
,
504 show_gnutarget_string
,
505 &setlist
, &showlist
);
506 set_cmd_completer (c
, complete_set_gnutarget
);
508 add_alias_cmd ("g", "gnutarget", class_files
, 1, &setlist
);
510 if (getenv ("GNUTARGET"))
511 set_gnutarget (getenv ("GNUTARGET"));
513 set_gnutarget ("auto");