1 /* Core dump and executable file functions above target vector, for GDB.
2 Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
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.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
24 #include "frame.h" /* required by inferior.h */
33 extern char registers
[];
35 /* Hook for `exec_file_command' command to call. */
37 void (*exec_file_display_hook
) PARAMS ((char *)) = NULL
;
39 /* Binary file diddling handle for the core file. */
44 /* Backward compatability with old way of specifying core files. */
47 core_file_command (filename
, from_tty
)
53 dont_repeat (); /* Either way, seems bogus. */
55 t
= find_core_target ();
58 (t
->to_detach
) (filename
, from_tty
);
60 (t
->to_open
) (filename
, from_tty
);
62 error ("GDB can't read core files on this machine.");
66 /* Call this to specify the hook for exec_file_command to call back.
67 This is called from the x-window display code. */
70 specify_exec_file_hook (hook
)
71 void (*hook
) PARAMS ((char *));
73 exec_file_display_hook
= hook
;
76 /* The exec file must be closed before running an inferior.
77 If it is needed again after the inferior dies, it must
85 bfd_tempclose (exec_bfd
);
94 bfd_reopen (exec_bfd
);
98 /* If we have both a core file and an exec file,
99 print a warning if they don't go together. */
104 if (exec_bfd
&& core_bfd
)
106 if (!core_file_matches_executable_p (core_bfd
, exec_bfd
))
107 warning ("core file may not match specified executable file.");
108 else if (bfd_get_mtime(exec_bfd
) > bfd_get_mtime(core_bfd
))
109 warning ("exec file is newer than core file.");
113 /* Return the name of the executable file as a string.
114 ERR nonzero means get error if there is none specified;
115 otherwise return 0 in that case. */
121 if (exec_bfd
) return bfd_get_filename(exec_bfd
);
122 if (!err
) return NULL
;
124 error ("No executable file specified.\n\
125 Use the \"file\" or \"exec-file\" command.");
130 /* Report a memory error with error(). */
133 memory_error (status
, memaddr
)
140 /* Actually, address between memaddr and memaddr + len
141 was out of bounds. */
142 error ("Cannot access memory at address %s.", local_hex_string(memaddr
));
146 error ("Error accessing memory address %s: %s.",
147 local_hex_string (memaddr
), safe_strerror (status
));
151 /* Same as target_read_memory, but report an error if can't read. */
153 read_memory (memaddr
, myaddr
, len
)
159 status
= target_read_memory (memaddr
, myaddr
, len
);
161 memory_error (status
, memaddr
);
164 /* Like target_read_memory, but slightly different parameters. */
167 dis_asm_read_memory (memaddr
, myaddr
, len
, info
)
171 disassemble_info
*info
;
173 return target_read_memory (memaddr
, (char *) myaddr
, len
);
176 /* Like memory_error with slightly different parameters. */
178 dis_asm_memory_error (status
, memaddr
, info
)
181 disassemble_info
*info
;
183 memory_error (status
, memaddr
);
186 /* Like print_address with slightly different parameters. */
188 dis_asm_print_address (addr
, info
)
190 struct disassemble_info
*info
;
192 print_address (addr
, info
->stream
);
195 /* Same as target_write_memory, but report an error if can't write. */
197 write_memory (memaddr
, myaddr
, len
)
204 status
= target_write_memory (memaddr
, myaddr
, len
);
206 memory_error (status
, memaddr
);
209 /* Read an integer from debugged memory, given address and number of bytes. */
212 read_memory_integer (memaddr
, len
)
221 if (len
== sizeof (char))
223 read_memory (memaddr
, &cbuf
, len
);
226 if (len
== sizeof (short))
228 read_memory (memaddr
, (char *)&sbuf
, len
);
229 SWAP_TARGET_AND_HOST (&sbuf
, sizeof (short));
232 if (len
== sizeof (int))
234 read_memory (memaddr
, (char *)&ibuf
, len
);
235 SWAP_TARGET_AND_HOST (&ibuf
, sizeof (int));
238 if (len
== sizeof (lbuf
))
240 read_memory (memaddr
, (char *)&lbuf
, len
);
241 SWAP_TARGET_AND_HOST (&lbuf
, sizeof (lbuf
));
244 error ("Cannot handle integers of %d bytes.", len
);
245 return -1; /* for lint */
250 read_memory_unsigned_integer (memaddr
, len
)
259 if (len
== sizeof (char))
261 read_memory (memaddr
, &cbuf
, len
);
264 if (len
== sizeof (short))
266 read_memory (memaddr
, (char *)&sbuf
, len
);
267 SWAP_TARGET_AND_HOST (&sbuf
, sizeof (short));
270 if (len
== sizeof (int))
272 read_memory (memaddr
, (char *)&ibuf
, len
);
273 SWAP_TARGET_AND_HOST (&ibuf
, sizeof (int));
276 if (len
== sizeof (lbuf
))
278 read_memory (memaddr
, (char *)&lbuf
, len
);
279 SWAP_TARGET_AND_HOST (&lbuf
, sizeof (lbuf
));
282 error ("Cannot handle unsigned integers of %d bytes.", len
);
283 return -1; /* for lint */
290 add_com ("core-file", class_files
, core_file_command
,
291 "Use FILE as core dump for examining memory and registers.\n\
292 No arg means have no core file. This command has been superseded by the\n\
293 `target core' and `detach' commands.");
This page took 0.035047 seconds and 4 git commands to generate.