1 /* Core dump and executable file functions above target vector, for GDB.
2 Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994
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, Boston, MA 02111-1307, USA. */
22 #include "gdb_string.h"
26 #include "frame.h" /* required by inferior.h */
40 /* Local function declarations. */
42 extern void _initialize_core
PARAMS ((void));
43 static void call_extra_exec_file_hooks
PARAMS ((char *filename
));
45 /* You can have any number of hooks for `exec_file_command' command to call.
46 If there's only one hook, it is set in exec_file_display hook.
47 If there are two or more hooks, they are set in exec_file_extra_hooks[],
48 and exec_file_display_hook is set to a function that calls all of them.
49 This extra complexity is needed to preserve compatibility with
50 old code that assumed that only one hook could be set, and which called
51 exec_file_display_hook directly. */
53 typedef void (*hook_type
) PARAMS ((char *));
55 hook_type exec_file_display_hook
; /* the original hook */
56 static hook_type
*exec_file_extra_hooks
; /* array of additional hooks */
57 static int exec_file_hook_count
= 0; /* size of array */
59 /* Binary file diddling handle for the core file. */
64 /* Backward compatability with old way of specifying core files. */
67 core_file_command (filename
, from_tty
)
73 dont_repeat (); /* Either way, seems bogus. */
75 t
= find_core_target ();
78 (t
->to_detach
) (filename
, from_tty
);
81 /* Yes, we were given the path of a core file. Do we already
82 have a symbol file? If not, can we determine it from the
83 core file? If we can, do so.
86 if (symfile_objfile
== NULL
)
89 symfile
= t
->to_core_file_to_sym_file (filename
);
92 char * symfile_copy
= strdup (symfile
);
94 make_cleanup (free
, symfile_copy
);
95 symbol_file_command (symfile_copy
, from_tty
);
98 warning ("Unknown symbols for '%s'; use the 'symbol-file' command.", filename
);
101 (t
->to_open
) (filename
, from_tty
);
104 error ("GDB can't read core files on this machine.");
108 /* If there are two or more functions that wish to hook into exec_file_command,
109 * this function will call all of the hook functions. */
112 call_extra_exec_file_hooks (filename
)
117 for (i
= 0; i
< exec_file_hook_count
; i
++)
118 (*exec_file_extra_hooks
[i
])(filename
);
121 /* Call this to specify the hook for exec_file_command to call back.
122 This is called from the x-window display code. */
125 specify_exec_file_hook (hook
)
126 void (*hook
) PARAMS ((char *));
128 hook_type
*new_array
;
130 if (exec_file_display_hook
!= NULL
)
132 /* There's already a hook installed. Arrange to have both it
133 * and the subsequent hooks called. */
134 if (exec_file_hook_count
== 0)
136 /* If this is the first extra hook, initialize the hook array. */
137 exec_file_extra_hooks
= (hook_type
*) xmalloc (sizeof(hook_type
));
138 exec_file_extra_hooks
[0] = exec_file_display_hook
;
139 exec_file_display_hook
= call_extra_exec_file_hooks
;
140 exec_file_hook_count
= 1;
143 /* Grow the hook array by one and add the new hook to the end.
144 Yes, it's inefficient to grow it by one each time but since
145 this is hardly ever called it's not a big deal. */
146 exec_file_hook_count
++;
148 (hook_type
*) xrealloc (exec_file_extra_hooks
,
149 exec_file_hook_count
* sizeof(hook_type
));
150 exec_file_extra_hooks
= new_array
;
151 exec_file_extra_hooks
[exec_file_hook_count
- 1] = hook
;
154 exec_file_display_hook
= hook
;
157 /* The exec file must be closed before running an inferior.
158 If it is needed again after the inferior dies, it must
166 bfd_tempclose (exec_bfd
);
175 bfd_reopen (exec_bfd
);
182 /* Don't do anything if the current target isn't exec. */
183 if (exec_bfd
== NULL
|| strcmp (target_shortname
, "exec") != 0)
186 /* If the timestamp of the exec file has changed, reopen it. */
187 filename
= strdup (bfd_get_filename (exec_bfd
));
188 make_cleanup (free
, filename
);
189 mtime
= bfd_get_mtime(exec_bfd
);
190 res
= stat (filename
, &st
);
192 if (mtime
&& mtime
!= st
.st_mtime
)
193 exec_file_command (filename
, 0);
197 /* If we have both a core file and an exec file,
198 print a warning if they don't go together. */
203 if (exec_bfd
&& core_bfd
)
205 if (!core_file_matches_executable_p (core_bfd
, exec_bfd
))
206 warning ("core file may not match specified executable file.");
207 else if (bfd_get_mtime(exec_bfd
) > bfd_get_mtime(core_bfd
))
208 warning ("exec file is newer than core file.");
212 /* Return the name of the executable file as a string.
213 ERR nonzero means get error if there is none specified;
214 otherwise return 0 in that case. */
220 if (exec_bfd
) return bfd_get_filename(exec_bfd
);
221 if (!err
) return NULL
;
223 error ("No executable file specified.\n\
224 Use the \"file\" or \"exec-file\" command.");
229 /* Report a memory error with error(). */
232 memory_error (status
, memaddr
)
238 /* Actually, address between memaddr and memaddr + len
239 was out of bounds. */
241 printf_filtered ("Cannot access memory at address ");
242 print_address_numeric (memaddr
, 1, gdb_stdout
);
243 printf_filtered (".\n");
244 return_to_top_level (RETURN_ERROR
);
249 printf_filtered ("Error accessing memory address ");
250 print_address_numeric (memaddr
, 1, gdb_stdout
);
251 printf_filtered (": %s.\n",
252 safe_strerror (status
));
253 return_to_top_level (RETURN_ERROR
);
257 /* Same as target_read_memory, but report an error if can't read. */
259 read_memory (memaddr
, myaddr
, len
)
265 status
= target_read_memory (memaddr
, myaddr
, len
);
267 memory_error (status
, memaddr
);
271 read_memory_section (memaddr
, myaddr
, len
, bfd_section
)
275 asection
*bfd_section
;
278 status
= target_read_memory_section (memaddr
, myaddr
, len
, bfd_section
);
280 memory_error (status
, memaddr
);
283 /* Like target_read_memory, but slightly different parameters. */
286 dis_asm_read_memory (memaddr
, myaddr
, len
, info
)
290 disassemble_info
*info
;
292 return target_read_memory (memaddr
, (char *) myaddr
, len
);
295 /* Like memory_error with slightly different parameters. */
297 dis_asm_memory_error (status
, memaddr
, info
)
300 disassemble_info
*info
;
302 memory_error (status
, memaddr
);
305 /* Like print_address with slightly different parameters. */
307 dis_asm_print_address (addr
, info
)
309 struct disassemble_info
*info
;
311 print_address (addr
, info
->stream
);
314 /* Same as target_write_memory, but report an error if can't write. */
316 write_memory (memaddr
, myaddr
, len
)
323 status
= target_write_memory (memaddr
, myaddr
, len
);
325 memory_error (status
, memaddr
);
328 /* Read an integer from debugged memory, given address and number of bytes. */
331 read_memory_integer (memaddr
, len
)
335 char buf
[sizeof (LONGEST
)];
337 read_memory (memaddr
, buf
, len
);
338 return extract_signed_integer (buf
, len
);
342 read_memory_unsigned_integer (memaddr
, len
)
346 char buf
[sizeof (ULONGEST
)];
348 read_memory (memaddr
, buf
, len
);
349 return extract_unsigned_integer (buf
, len
);
353 read_memory_string (memaddr
, buffer
, max_len
)
365 if (cp
- buffer
>= max_len
)
367 buffer
[max_len
- 1] = '\0';
370 cnt
= max_len
- (cp
- buffer
);
373 read_memory (memaddr
+ (int) (cp
- buffer
), cp
, cnt
);
374 for (i
= 0; i
< cnt
&& *cp
; i
++, cp
++)
384 /* Enable after 4.12. It is not tested. */
386 /* Search code. Targets can just make this their search function, or
387 if the protocol has a less general search function, they can call this
388 in the cases it can't handle. */
390 generic_search (len
, data
, mask
, startaddr
, increment
, lorange
, hirange
391 addr_found
, data_found
)
399 CORE_ADDR
*addr_found
;
403 CORE_ADDR curaddr
= startaddr
;
405 while (curaddr
>= lorange
&& curaddr
< hirange
)
407 read_memory (curaddr
, data_found
, len
);
408 for (i
= 0; i
< len
; ++i
)
409 if ((data_found
[i
] & mask
[i
]) != data
[i
])
412 *addr_found
= curaddr
;
416 curaddr
+= increment
;
418 *addr_found
= (CORE_ADDR
)0;
423 /* The current default bfd target. Points to storage allocated for
427 /* Same thing, except it is "auto" not NULL for the default case. */
428 static char *gnutarget_string
;
430 static void set_gnutarget_command
431 PARAMS ((char *, int, struct cmd_list_element
*));
434 set_gnutarget_command (ignore
, from_tty
, c
)
437 struct cmd_list_element
*c
;
439 if (STREQ (gnutarget_string
, "auto"))
442 gnutarget
= gnutarget_string
;
445 /* Set the gnutarget. */
447 set_gnutarget (newtarget
)
450 if (gnutarget_string
!= NULL
)
451 free (gnutarget_string
);
452 gnutarget_string
= savestring (newtarget
, strlen (newtarget
));
453 set_gnutarget_command (NULL
, 0, NULL
);
459 struct cmd_list_element
*c
;
460 c
= add_cmd ("core-file", class_files
, core_file_command
,
461 "Use FILE as core dump for examining memory and registers.\n\
462 No arg means have no core file. This command has been superseded by the\n\
463 `target core' and `detach' commands.", &cmdlist
);
464 c
->completer
= filename_completer
;
466 c
= add_set_cmd ("gnutarget", class_files
, var_string_noescape
,
467 (char *) &gnutarget_string
,
468 "Set the current BFD target.\n\
469 Use `set gnutarget auto' to specify automatic detection.",
471 c
->function
.sfunc
= set_gnutarget_command
;
472 add_show_from_set (c
, &showlist
);
474 if (getenv ("GNUTARGET"))
475 set_gnutarget (getenv ("GNUTARGET"));
477 set_gnutarget ("auto");