1 /* Core dump and executable file functions above target vector, for GDB.
2 Copyright 1986, 1987, 1989, 1991-1994, 2000
3 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 2 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, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
23 #include "gdb_string.h"
27 #include "frame.h" /* required by inferior.h */
41 /* Local function declarations. */
43 extern void _initialize_core (void);
44 static void call_extra_exec_file_hooks (char *filename
);
46 /* You can have any number of hooks for `exec_file_command' command to call.
47 If there's only one hook, it is set in exec_file_display hook.
48 If there are two or more hooks, they are set in exec_file_extra_hooks[],
49 and exec_file_display_hook is set to a function that calls all of them.
50 This extra complexity is needed to preserve compatibility with
51 old code that assumed that only one hook could be set, and which called
52 exec_file_display_hook directly. */
54 typedef void (*hook_type
) (char *);
56 hook_type exec_file_display_hook
; /* the original hook */
57 static hook_type
*exec_file_extra_hooks
; /* array of additional hooks */
58 static int exec_file_hook_count
= 0; /* size of array */
60 /* Binary file diddling handle for the core file. */
65 /* Backward compatability with old way of specifying core files. */
68 core_file_command (char *filename
, int from_tty
)
72 dont_repeat (); /* Either way, seems bogus. */
74 t
= find_core_target ();
77 (t
->to_detach
) (filename
, from_tty
);
80 /* Yes, we were given the path of a core file. Do we already
81 have a symbol file? If not, can we determine it from the
82 core file? If we can, do so.
85 if (symfile_objfile
== NULL
)
88 symfile
= t
->to_core_file_to_sym_file (filename
);
91 char *symfile_copy
= xstrdup (symfile
);
93 make_cleanup (free
, symfile_copy
);
94 symbol_file_command (symfile_copy
, from_tty
);
97 warning ("Unknown symbols for '%s'; use the 'symbol-file' command.", filename
);
100 (t
->to_open
) (filename
, from_tty
);
103 error ("GDB can't read core files on this machine.");
107 /* If there are two or more functions that wish to hook into exec_file_command,
108 * this function will call all of the hook functions. */
111 call_extra_exec_file_hooks (char *filename
)
115 for (i
= 0; i
< exec_file_hook_count
; i
++)
116 (*exec_file_extra_hooks
[i
]) (filename
);
119 /* Call this to specify the hook for exec_file_command to call back.
120 This is called from the x-window display code. */
123 specify_exec_file_hook (void (*hook
) (char *))
125 hook_type
*new_array
;
127 if (exec_file_display_hook
!= NULL
)
129 /* There's already a hook installed. Arrange to have both it
130 * and the subsequent hooks called. */
131 if (exec_file_hook_count
== 0)
133 /* If this is the first extra hook, initialize the hook array. */
134 exec_file_extra_hooks
= (hook_type
*) xmalloc (sizeof (hook_type
));
135 exec_file_extra_hooks
[0] = exec_file_display_hook
;
136 exec_file_display_hook
= call_extra_exec_file_hooks
;
137 exec_file_hook_count
= 1;
140 /* Grow the hook array by one and add the new hook to the end.
141 Yes, it's inefficient to grow it by one each time but since
142 this is hardly ever called it's not a big deal. */
143 exec_file_hook_count
++;
145 (hook_type
*) xrealloc (exec_file_extra_hooks
,
146 exec_file_hook_count
* sizeof (hook_type
));
147 exec_file_extra_hooks
= new_array
;
148 exec_file_extra_hooks
[exec_file_hook_count
- 1] = hook
;
151 exec_file_display_hook
= hook
;
154 /* The exec file must be closed before running an inferior.
155 If it is needed again after the inferior dies, it must
159 close_exec_file (void)
163 bfd_tempclose (exec_bfd
);
168 reopen_exec_file (void)
172 bfd_reopen (exec_bfd
);
179 /* Don't do anything if the current target isn't exec. */
180 if (exec_bfd
== NULL
|| strcmp (target_shortname
, "exec") != 0)
183 /* If the timestamp of the exec file has changed, reopen it. */
184 filename
= xstrdup (bfd_get_filename (exec_bfd
));
185 make_cleanup (free
, filename
);
186 mtime
= bfd_get_mtime (exec_bfd
);
187 res
= stat (filename
, &st
);
189 if (mtime
&& mtime
!= st
.st_mtime
)
190 exec_file_command (filename
, 0);
194 /* If we have both a core file and an exec file,
195 print a warning if they don't go together. */
198 validate_files (void)
200 if (exec_bfd
&& core_bfd
)
202 if (!core_file_matches_executable_p (core_bfd
, exec_bfd
))
203 warning ("core file may not match specified executable file.");
204 else if (bfd_get_mtime (exec_bfd
) > bfd_get_mtime (core_bfd
))
205 warning ("exec file is newer than core file.");
209 /* Return the name of the executable file as a string.
210 ERR nonzero means get error if there is none specified;
211 otherwise return 0 in that case. */
214 get_exec_file (int err
)
217 return bfd_get_filename (exec_bfd
);
221 error ("No executable file specified.\n\
222 Use the \"file\" or \"exec-file\" command.");
227 /* Report a memory error with error(). */
230 memory_error (int status
, CORE_ADDR memaddr
)
232 struct ui_file
*tmp_stream
= mem_fileopen ();
233 make_cleanup_ui_file_delete (tmp_stream
);
237 /* Actually, address between memaddr and memaddr + len
238 was out of bounds. */
239 fprintf_unfiltered (tmp_stream
, "Cannot access memory at address ");
240 print_address_numeric (memaddr
, 1, tmp_stream
);
244 fprintf_filtered (tmp_stream
, "Error accessing memory address ");
245 print_address_numeric (memaddr
, 1, tmp_stream
);
246 fprintf_filtered (tmp_stream
, ": %s.",
247 safe_strerror (status
));
250 error_stream (tmp_stream
);
253 /* Same as target_read_memory, but report an error if can't read. */
255 read_memory (CORE_ADDR memaddr
, char *myaddr
, int len
)
258 status
= target_read_memory (memaddr
, myaddr
, len
);
260 memory_error (status
, memaddr
);
263 /* Like target_read_memory, but slightly different parameters. */
265 dis_asm_read_memory (bfd_vma memaddr
, bfd_byte
*myaddr
, unsigned int len
,
266 disassemble_info
*info
)
268 return target_read_memory (memaddr
, (char *) myaddr
, len
);
271 /* Like memory_error with slightly different parameters. */
273 dis_asm_memory_error (int status
, bfd_vma memaddr
, disassemble_info
*info
)
275 memory_error (status
, memaddr
);
278 /* Like print_address with slightly different parameters. */
280 dis_asm_print_address (bfd_vma addr
, struct disassemble_info
*info
)
282 print_address (addr
, info
->stream
);
285 /* Same as target_write_memory, but report an error if can't write. */
287 write_memory (CORE_ADDR memaddr
, char *myaddr
, int len
)
291 status
= target_write_memory (memaddr
, myaddr
, len
);
293 memory_error (status
, memaddr
);
296 /* Read an integer from debugged memory, given address and number of bytes. */
299 read_memory_integer (CORE_ADDR memaddr
, int len
)
301 char buf
[sizeof (LONGEST
)];
303 read_memory (memaddr
, buf
, len
);
304 return extract_signed_integer (buf
, len
);
308 read_memory_unsigned_integer (CORE_ADDR memaddr
, int len
)
310 char buf
[sizeof (ULONGEST
)];
312 read_memory (memaddr
, buf
, len
);
313 return extract_unsigned_integer (buf
, len
);
317 read_memory_string (CORE_ADDR memaddr
, char *buffer
, int max_len
)
326 if (cp
- buffer
>= max_len
)
328 buffer
[max_len
- 1] = '\0';
331 cnt
= max_len
- (cp
- buffer
);
334 read_memory (memaddr
+ (int) (cp
- buffer
), cp
, cnt
);
335 for (i
= 0; i
< cnt
&& *cp
; i
++, cp
++)
345 /* Enable after 4.12. It is not tested. */
347 /* Search code. Targets can just make this their search function, or
348 if the protocol has a less general search function, they can call this
349 in the cases it can't handle. */
351 generic_search (int len
, char *data
, char *mask
, CORE_ADDR startaddr
,
352 int increment
, CORE_ADDR lorange
, CORE_ADDR hirange
,
353 CORE_ADDR
*addr_found
, char *data_found
)
356 CORE_ADDR curaddr
= startaddr
;
358 while (curaddr
>= lorange
&& curaddr
< hirange
)
360 read_memory (curaddr
, data_found
, len
);
361 for (i
= 0; i
< len
; ++i
)
362 if ((data_found
[i
] & mask
[i
]) != data
[i
])
365 *addr_found
= curaddr
;
369 curaddr
+= increment
;
371 *addr_found
= (CORE_ADDR
) 0;
376 /* The current default bfd target. Points to storage allocated for
380 /* Same thing, except it is "auto" not NULL for the default case. */
381 static char *gnutarget_string
;
383 static void set_gnutarget_command (char *, int, struct cmd_list_element
*);
386 set_gnutarget_command (char *ignore
, int from_tty
, struct cmd_list_element
*c
)
388 if (STREQ (gnutarget_string
, "auto"))
391 gnutarget
= gnutarget_string
;
394 /* Set the gnutarget. */
396 set_gnutarget (char *newtarget
)
398 if (gnutarget_string
!= NULL
)
399 free (gnutarget_string
);
400 gnutarget_string
= savestring (newtarget
, strlen (newtarget
));
401 set_gnutarget_command (NULL
, 0, NULL
);
405 _initialize_core (void)
407 struct cmd_list_element
*c
;
408 c
= add_cmd ("core-file", class_files
, core_file_command
,
409 "Use FILE as core dump for examining memory and registers.\n\
410 No arg means have no core file. This command has been superseded by the\n\
411 `target core' and `detach' commands.", &cmdlist
);
412 c
->completer
= filename_completer
;
414 c
= add_set_cmd ("gnutarget", class_files
, var_string_noescape
,
415 (char *) &gnutarget_string
,
416 "Set the current BFD target.\n\
417 Use `set gnutarget auto' to specify automatic detection.",
419 c
->function
.sfunc
= set_gnutarget_command
;
420 add_show_from_set (c
, &showlist
);
422 if (getenv ("GNUTARGET"))
423 set_gnutarget (getenv ("GNUTARGET"));
425 set_gnutarget ("auto");