1 /* Select target systems and architectures at runtime for GDB.
2 Copyright 1990, 1992, 1993, 1994 Free Software Foundation, Inc.
3 Contributed by Cygnus Support.
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., 675 Mass Ave, Cambridge, MA 02139, USA. */
37 target_info
PARAMS ((char *, int));
40 cleanup_target
PARAMS ((struct target_ops
*));
43 maybe_kill_then_create_inferior
PARAMS ((char *, char *, char **));
46 maybe_kill_then_attach
PARAMS ((char *, int));
49 kill_or_be_killed
PARAMS ((int));
52 default_terminal_info
PARAMS ((char *, int));
55 nosymbol
PARAMS ((char *, CORE_ADDR
*));
58 tcomplain
PARAMS ((void));
61 nomemory
PARAMS ((CORE_ADDR
, char *, int, int));
64 return_zero
PARAMS ((void));
67 ignore
PARAMS ((void));
70 target_command
PARAMS ((char *, int));
72 static struct target_ops
*
73 find_default_run_target
PARAMS ((char *));
75 /* Pointer to array of target architecture structures; the size of the
76 array; the current index into the array; the allocated size of the
78 struct target_ops
**target_structs
;
79 unsigned target_struct_size
;
80 unsigned target_struct_index
;
81 unsigned target_struct_allocsize
;
82 #define DEFAULT_ALLOCSIZE 10
84 /* The initial current target, so that there is always a semi-valid
87 struct target_ops dummy_target
= {"None", "None", "",
88 0, 0, /* open, close */
89 find_default_attach
, 0, /* attach, detach */
90 0, 0, /* resume, wait */
91 0, 0, 0, /* registers */
94 0, 0, 0, 0, 0, /* terminal */
95 0, 0, /* kill, load */
96 0, /* lookup_symbol */
97 find_default_create_inferior
, /* create_inferior */
98 0, /* mourn_inferior */
100 0, /* notice_signals */
101 dummy_stratum
, 0, /* stratum, next */
102 0, 0, 0, 0, 0, /* all mem, mem, stack, regs, exec */
103 0, 0, /* section pointers */
107 /* Top of target stack. */
109 struct target_stack_item
*target_stack
;
111 /* The target structure we are currently using to talk to a process
112 or file or whatever "inferior" we have. */
114 struct target_ops current_target
;
116 /* Command list for target. */
118 static struct cmd_list_element
*targetlist
= NULL
;
120 /* Nonzero if we are debugging an attached outside process
121 rather than an inferior. */
125 /* The user just typed 'target' without the name of a target. */
129 target_command (arg
, from_tty
)
133 fputs_filtered ("Argument required (target name). Try `help target'\n",
137 /* Add a possible target architecture to the list. */
141 struct target_ops
*t
;
145 target_struct_allocsize
= DEFAULT_ALLOCSIZE
;
146 target_structs
= (struct target_ops
**) xmalloc
147 (target_struct_allocsize
* sizeof (*target_structs
));
149 if (target_struct_size
>= target_struct_allocsize
)
151 target_struct_allocsize
*= 2;
152 target_structs
= (struct target_ops
**)
153 xrealloc ((char *) target_structs
,
154 target_struct_allocsize
* sizeof (*target_structs
));
156 target_structs
[target_struct_size
++] = t
;
159 if (targetlist
== NULL
)
160 add_prefix_cmd ("target", class_run
, target_command
,
161 "Connect to a target machine or process.\n\
162 The first argument is the type or protocol of the target machine.\n\
163 Remaining arguments are interpreted by the target protocol. For more\n\
164 information on the arguments for a particular protocol, type\n\
165 `help target ' followed by the protocol name.",
166 &targetlist
, "target ", 0, &cmdlist
);
167 add_cmd (t
->to_shortname
, no_class
, t
->to_open
, t
->to_doc
, &targetlist
);
179 nomemory (memaddr
, myaddr
, len
, write
)
185 errno
= EIO
; /* Can't read/write this location */
186 return 0; /* No bytes handled */
192 error ("You can't do that when your target is `%s'",
193 current_target
.to_shortname
);
199 error ("You can't do that without a process to debug");
204 nosymbol (name
, addrp
)
208 return 1; /* Symbol does not exist in target env */
213 default_terminal_info (args
, from_tty
)
217 printf_unfiltered("No saved terminal information.\n");
220 /* This is the default target_create_inferior and target_attach function.
221 If the current target is executing, it asks whether to kill it off.
222 If this function returns without calling error(), it has killed off
223 the target, and the operation should be attempted. */
226 kill_or_be_killed (from_tty
)
229 if (target_has_execution
)
231 printf_unfiltered ("You are already running a program:\n");
232 target_files_info ();
233 if (query ("Kill it? ")) {
235 if (target_has_execution
)
236 error ("Killing the program did not help.");
239 error ("Program not killed.");
246 maybe_kill_then_attach (args
, from_tty
)
250 kill_or_be_killed (from_tty
);
251 target_attach (args
, from_tty
);
255 maybe_kill_then_create_inferior (exec
, args
, env
)
260 kill_or_be_killed (0);
261 target_create_inferior (exec
, args
, env
);
264 /* Clean up a target struct so it no longer has any zero pointers in it.
265 We default entries, at least to stubs that print error messages. */
269 struct target_ops
*t
;
272 #define de_fault(field, value) \
273 if (!t->field) t->field = value
275 /* FIELD DEFAULT VALUE */
277 de_fault (to_open
, (void (*)())tcomplain
);
278 de_fault (to_close
, (void (*)())ignore
);
279 de_fault (to_attach
, maybe_kill_then_attach
);
280 de_fault (to_detach
, (void (*)())ignore
);
281 de_fault (to_resume
, (void (*)())noprocess
);
282 de_fault (to_wait
, (int (*)())noprocess
);
283 de_fault (to_fetch_registers
, (void (*)())ignore
);
284 de_fault (to_store_registers
, (void (*)())noprocess
);
285 de_fault (to_prepare_to_store
, (void (*)())noprocess
);
286 de_fault (to_xfer_memory
, (int (*)())nomemory
);
287 de_fault (to_files_info
, (void (*)())ignore
);
288 de_fault (to_insert_breakpoint
, memory_insert_breakpoint
);
289 de_fault (to_remove_breakpoint
, memory_remove_breakpoint
);
290 de_fault (to_terminal_init
, ignore
);
291 de_fault (to_terminal_inferior
, ignore
);
292 de_fault (to_terminal_ours_for_output
,ignore
);
293 de_fault (to_terminal_ours
, ignore
);
294 de_fault (to_terminal_info
, default_terminal_info
);
295 de_fault (to_kill
, (void (*)())noprocess
);
296 de_fault (to_load
, (void (*)())tcomplain
);
297 de_fault (to_lookup_symbol
, nosymbol
);
298 de_fault (to_create_inferior
, maybe_kill_then_create_inferior
);
299 de_fault (to_mourn_inferior
, (void (*)())noprocess
);
300 de_fault (to_can_run
, return_zero
);
301 de_fault (to_notice_signals
, (void (*)())ignore
);
306 /* Go through the target stack from top to bottom, copying over zero entries in
307 current_target. In effect, we are doing class inheritance through the
308 pushed target vectors. */
311 update_current_target ()
313 struct target_stack_item
*item
;
314 struct target_ops
*t
;
316 /* First, reset current_target */
317 memset (¤t_target
, 0, sizeof current_target
);
319 for (item
= target_stack
; item
; item
= item
->next
)
321 t
= item
->target_ops
;
323 #define INHERIT(FIELD, TARGET) \
324 if (!current_target.FIELD) \
325 current_target.FIELD = TARGET->FIELD
327 INHERIT (to_shortname
, t
);
328 INHERIT (to_longname
, t
);
330 INHERIT (to_open
, t
);
331 INHERIT (to_close
, t
);
332 INHERIT (to_attach
, t
);
333 INHERIT (to_detach
, t
);
334 INHERIT (to_resume
, t
);
335 INHERIT (to_wait
, t
);
336 INHERIT (to_fetch_registers
, t
);
337 INHERIT (to_store_registers
, t
);
338 INHERIT (to_prepare_to_store
, t
);
339 INHERIT (to_xfer_memory
, t
);
340 INHERIT (to_files_info
, t
);
341 INHERIT (to_insert_breakpoint
, t
);
342 INHERIT (to_remove_breakpoint
, t
);
343 INHERIT (to_terminal_init
, t
);
344 INHERIT (to_terminal_inferior
, t
);
345 INHERIT (to_terminal_ours_for_output
, t
);
346 INHERIT (to_terminal_ours
, t
);
347 INHERIT (to_terminal_info
, t
);
348 INHERIT (to_kill
, t
);
349 INHERIT (to_load
, t
);
350 INHERIT (to_lookup_symbol
, t
);
351 INHERIT (to_create_inferior
, t
);
352 INHERIT (to_mourn_inferior
, t
);
353 INHERIT (to_can_run
, t
);
354 INHERIT (to_notice_signals
, t
);
355 INHERIT (to_stratum
, t
);
356 INHERIT (DONT_USE
, t
);
357 INHERIT (to_has_all_memory
, t
);
358 INHERIT (to_has_memory
, t
);
359 INHERIT (to_has_stack
, t
);
360 INHERIT (to_has_registers
, t
);
361 INHERIT (to_has_execution
, t
);
362 INHERIT (to_sections
, t
);
363 INHERIT (to_sections_end
, t
);
364 INHERIT (to_magic
, t
);
370 /* Push a new target type into the stack of the existing target accessors,
371 possibly superseding some of the existing accessors.
373 Result is zero if the pushed target ended up on top of the stack,
374 nonzero if at least one target is on top of it.
376 Rather than allow an empty stack, we always have the dummy target at
377 the bottom stratum, so we can call the function vectors without
382 struct target_ops
*t
;
384 struct target_stack_item
*cur
, *prev
, *tmp
;
386 /* Check magic number. If wrong, it probably means someone changed
387 the struct definition, but not all the places that initialize one. */
388 if (t
->to_magic
!= OPS_MAGIC
)
390 fprintf_unfiltered(gdb_stderr
,
391 "Magic number of %s target struct wrong\n",
396 /* Find the proper stratum to install this target in. */
398 for (prev
= NULL
, cur
= target_stack
; cur
; prev
= cur
, cur
= cur
->next
)
400 if ((int)(t
->to_stratum
) >= (int)(cur
->target_ops
->to_stratum
))
404 /* If there's already targets at this stratum, remove them. */
407 while (t
->to_stratum
== cur
->target_ops
->to_stratum
)
409 /* There's already something on this stratum. Close it off. */
410 (cur
->target_ops
->to_close
) (0);
412 prev
->next
= cur
->next
; /* Unchain old target_ops */
414 target_stack
= cur
->next
; /* Unchain first on list */
420 /* We have removed all targets in our stratum, now add the new one. */
422 tmp
= xmalloc (sizeof (struct target_stack_item
));
431 update_current_target ();
433 cleanup_target (¤t_target
); /* Fill in the gaps */
437 /* Remove a target_ops vector from the stack, wherever it may be.
438 Return how many times it was removed (0 or 1). */
442 struct target_ops
*t
;
444 struct target_stack_item
*cur
, *prev
;
446 t
->to_close (0); /* Let it clean up */
448 /* Look for the specified target. Note that we assume that a target
449 can only occur once in the target stack. */
451 for (cur
= target_stack
, prev
= NULL
; cur
; prev
= cur
, cur
= cur
->next
)
452 if (cur
->target_ops
== t
)
456 return 0; /* Didn't find target_ops, quit now */
458 /* Unchain the target */
461 target_stack
= cur
->next
;
463 prev
->next
= cur
->next
;
465 free (cur
); /* Release the target_stack_item */
467 update_current_target ();
468 cleanup_target (¤t_target
);
476 (current_target
.to_close
)(0); /* Let it clean up */
477 if (unpush_target (target_stack
->target_ops
) == 1)
480 fprintf_unfiltered(gdb_stderr
,
481 "pop_target couldn't find target %s\n",
482 current_target
.to_shortname
);
487 #define MIN(A, B) (((A) <= (B)) ? (A) : (B))
489 /* target_read_string -- read a null terminated string, up to LEN bytes,
490 from MEMADDR in target. Set *ERRNOP to the errno code, or 0 if successful.
491 Set *STRING to a pointer to malloc'd memory containing the data; the caller
492 is responsible for freeing it. Return the number of bytes successfully
496 target_read_string (memaddr
, string
, len
, errnop
)
502 int tlen
, origlen
, offset
, i
;
506 int buffer_allocated
;
508 unsigned int nbytes_read
= 0;
510 /* Small for testing. */
511 buffer_allocated
= 4;
512 buffer
= xmalloc (buffer_allocated
);
519 tlen
= MIN (len
, 4 - (memaddr
& 3));
520 offset
= memaddr
& 3;
522 errcode
= target_xfer_memory (memaddr
& ~3, buf
, 4, 0);
526 if (bufptr
- buffer
+ tlen
> buffer_allocated
)
529 bytes
= bufptr
- buffer
;
530 buffer_allocated
*= 2;
531 buffer
= xrealloc (buffer
, buffer_allocated
);
532 bufptr
= buffer
+ bytes
;
535 for (i
= 0; i
< tlen
; i
++)
537 *bufptr
++ = buf
[i
+ offset
];
538 if (buf
[i
+ offset
] == '\000')
540 nbytes_read
+= i
+ 1;
557 /* Read LEN bytes of target memory at address MEMADDR, placing the results in
558 GDB's memory at MYADDR. Returns either 0 for success or an errno value
561 If an error occurs, no guarantee is made about the contents of the data at
562 MYADDR. In particular, the caller should not depend upon partial reads
563 filling the buffer with good data. There is no way for the caller to know
564 how much good data might have been transfered anyway. Callers that can
565 deal with partial reads should call target_read_memory_partial. */
568 target_read_memory (memaddr
, myaddr
, len
)
573 return target_xfer_memory (memaddr
, myaddr
, len
, 0);
576 /* Read LEN bytes of target memory at address MEMADDR, placing the results
577 in GDB's memory at MYADDR. Returns a count of the bytes actually read,
578 and optionally an errno value in the location pointed to by ERRNOPTR
579 if ERRNOPTR is non-null. */
582 target_read_memory_partial (memaddr
, myaddr
, len
, errnoptr
)
588 int nread
; /* Number of bytes actually read. */
589 int errcode
; /* Error from last read. */
591 /* First try a complete read. */
592 errcode
= target_xfer_memory (memaddr
, myaddr
, len
, 0);
600 /* Loop, reading one byte at a time until we get as much as we can. */
601 for (errcode
= 0, nread
= 0; len
> 0 && errcode
== 0; nread
++, len
--)
603 errcode
= target_xfer_memory (memaddr
++, myaddr
++, 1, 0);
605 /* If an error, the last read was unsuccessful, so adjust count. */
611 if (errnoptr
!= NULL
)
619 target_write_memory (memaddr
, myaddr
, len
)
624 return target_xfer_memory (memaddr
, myaddr
, len
, 1);
627 /* Move memory to or from the targets. Iterate until all of it has
628 been moved, if necessary. The top target gets priority; anything
629 it doesn't want, is offered to the next one down, etc. Note the
630 business with curlen: if an early target says "no, but I have a
631 boundary overlapping this xfer" then we shorten what we offer to
632 the subsequent targets so the early guy will get a chance at the
633 tail before the subsequent ones do.
635 Result is 0 or errno value. */
638 target_xfer_memory (memaddr
, myaddr
, len
, write
)
646 struct target_ops
*t
;
647 struct target_stack_item
*item
;
649 /* to_xfer_memory is not guaranteed to set errno, even when it returns
653 /* The quick case is that the top target does it all. */
654 res
= current_target
.to_xfer_memory
655 (memaddr
, myaddr
, len
, write
, ¤t_target
);
661 /* If res <= 0 then we call it again in the loop. Ah well. */
665 curlen
= len
; /* Want to do it all */
666 for (item
= target_stack
; item
; item
= item
->next
)
668 t
= item
->target_ops
;
670 res
= t
->to_xfer_memory (memaddr
, myaddr
, curlen
, write
, t
);
672 break; /* Handled all or part of xfer */
673 if (t
->to_has_all_memory
)
679 /* If this address is for nonexistent memory,
680 read zeros if reading, or do nothing if writing. Return error. */
682 memset (myaddr
, 0, len
);
693 return 0; /* We managed to cover it all somehow. */
699 target_info (args
, from_tty
)
703 struct target_ops
*t
;
704 struct target_stack_item
*item
;
707 if (symfile_objfile
!= NULL
)
708 printf_unfiltered ("Symbols from \"%s\".\n", symfile_objfile
->name
);
710 #ifdef FILES_INFO_HOOK
711 if (FILES_INFO_HOOK ())
715 for (item
= target_stack
; item
; item
= item
->next
)
717 t
= item
->target_ops
;
719 if ((int)(t
->to_stratum
) <= (int)dummy_stratum
)
722 printf_unfiltered("\tWhile running this, GDB does not access memory from...\n");
723 printf_unfiltered("%s:\n", t
->to_longname
);
724 (t
->to_files_info
)(t
);
725 has_all_mem
= t
->to_has_all_memory
;
729 /* This is to be called by the open routine before it does
733 target_preopen (from_tty
)
738 if (target_has_execution
)
740 if (query ("A program is being debugged already. Kill it? "))
743 error ("Program not killed.");
746 /* Calling target_kill may remove the target from the stack. But if
747 it doesn't (which seems like a win for UDI), remove it now. */
749 if (target_has_execution
)
753 /* Detach a target after doing deferred register stores. */
756 target_detach (args
, from_tty
)
760 /* Handle any optimized stores to the inferior. */
761 #ifdef DO_DEFERRED_STORES
764 (current_target
.to_detach
) (args
, from_tty
);
768 target_link (modname
, t_reloc
)
772 if (STREQ(current_target
.to_shortname
, "rombug"))
774 (current_target
.to_lookup_symbol
) (modname
, t_reloc
);
776 error("Unable to link to %s and get relocation in rombug", modname
);
779 *t_reloc
= (CORE_ADDR
)-1;
782 /* Look through the list of possible targets for a target that can
783 execute a run or attach command without any other data. This is
784 used to locate the default process stratum.
786 Result is always valid (error() is called for errors). */
788 static struct target_ops
*
789 find_default_run_target (do_mesg
)
792 struct target_ops
**t
;
793 struct target_ops
*runable
= NULL
;
798 for (t
= target_structs
; t
< target_structs
+ target_struct_size
;
801 if (target_can_run(*t
))
809 error ("Don't know how to %s. Try \"help target\".", do_mesg
);
815 find_default_attach (args
, from_tty
)
819 struct target_ops
*t
;
821 t
= find_default_run_target("attach");
822 (t
->to_attach
) (args
, from_tty
);
827 find_default_create_inferior (exec_file
, allargs
, env
)
832 struct target_ops
*t
;
834 t
= find_default_run_target("run");
835 (t
->to_create_inferior
) (exec_file
, allargs
, env
);
848 struct target_ops
**t
;
849 struct target_ops
*runable
= NULL
;
854 for (t
= target_structs
; t
< target_structs
+ target_struct_size
;
857 if ((*t
)->to_stratum
== core_stratum
)
864 return(count
== 1 ? runable
: NULL
);
867 /* The inferior process has died. Long live the inferior! */
870 generic_mourn_inferior ()
872 extern int show_breakpoint_hit_counts
;
876 breakpoint_init_inferior ();
877 registers_changed ();
879 #ifdef CLEAR_DEFERRED_STORES
880 /* Delete any pending stores to the inferior... */
881 CLEAR_DEFERRED_STORES
;
885 reinit_frame_cache ();
887 /* It is confusing to the user for ignore counts to stick around
888 from previous runs of the inferior. So clear them. */
889 /* However, it is more confusing for the ignore counts to disappear when
890 using hit counts. So don't clear them if we're counting hits. */
891 if (!show_breakpoint_hit_counts
)
892 breakpoint_clear_ignore_counts ();
895 /* This table must match in order and size the signals in enum target_signal
903 {"SIGHUP", "Hangup"},
904 {"SIGINT", "Interrupt"},
906 {"SIGILL", "Illegal instruction"},
907 {"SIGTRAP", "Trace/breakpoint trap"},
908 {"SIGABRT", "Aborted"},
909 {"SIGEMT", "Emulation trap"},
910 {"SIGFPE", "Arithmetic exception"},
911 {"SIGKILL", "Killed"},
912 {"SIGBUS", "Bus error"},
913 {"SIGSEGV", "Segmentation fault"},
914 {"SIGSYS", "Bad system call"},
915 {"SIGPIPE", "Broken pipe"},
916 {"SIGALRM", "Alarm clock"},
917 {"SIGTERM", "Terminated"},
918 {"SIGURG", "Urgent I/O condition"},
919 {"SIGSTOP", "Stopped (signal)"},
920 {"SIGTSTP", "Stopped (user)"},
921 {"SIGCONT", "Continued"},
922 {"SIGCHLD", "Child status changed"},
923 {"SIGTTIN", "Stopped (tty input)"},
924 {"SIGTTOU", "Stopped (tty output)"},
925 {"SIGIO", "I/O possible"},
926 {"SIGXCPU", "CPU time limit exceeded"},
927 {"SIGXFSZ", "File size limit exceeded"},
928 {"SIGVTALRM", "Virtual timer expired"},
929 {"SIGPROF", "Profiling timer expired"},
930 {"SIGWINCH", "Window size changed"},
931 {"SIGLOST", "Resource lost"},
932 {"SIGUSR1", "User defined signal 1"},
933 {"SIGUSR2", "User defined signal 2"},
934 {"SIGPWR", "Power fail/restart"},
935 {"SIGPOLL", "Pollable event occurred"},
936 {"SIGWIND", "SIGWIND"},
937 {"SIGPHONE", "SIGPHONE"},
938 {"SIGWAITING", "Process's LWPs are blocked"},
939 {"SIGLWP", "Signal LWP"},
940 {"SIGDANGER", "Swap space dangerously low"},
941 {"SIGGRANT", "Monitor mode granted"},
942 {"SIGRETRACT", "Need to relinguish monitor mode"},
943 {"SIGMSG", "Monitor mode data available"},
944 {"SIGSOUND", "Sound completed"},
945 {"SIGSAK", "Secure attention"},
946 {NULL
, "Unknown signal"},
947 {NULL
, "Internal error: printing TARGET_SIGNAL_DEFAULT"},
949 /* Last entry, used to check whether the table is the right size. */
950 {NULL
, "TARGET_SIGNAL_MAGIC"}
953 /* Return the string for a signal. */
955 target_signal_to_string (sig
)
956 enum target_signal sig
;
958 return signals
[sig
].string
;
961 /* Return the name for a signal. */
963 target_signal_to_name (sig
)
964 enum target_signal sig
;
966 if (sig
== TARGET_SIGNAL_UNKNOWN
)
967 /* I think the code which prints this will always print it along with
968 the string, so no need to be verbose. */
970 return signals
[sig
].name
;
973 /* Given a name, return its signal. */
975 target_signal_from_name (name
)
978 enum target_signal sig
;
980 /* It's possible we also should allow "SIGCLD" as well as "SIGCHLD"
981 for TARGET_SIGNAL_SIGCHLD. SIGIOT, on the other hand, is more
982 questionable; seems like by now people should call it SIGABRT
985 /* This ugly cast brought to you by the native VAX compiler. */
986 for (sig
= TARGET_SIGNAL_HUP
;
987 signals
[sig
].name
!= NULL
;
988 sig
= (enum target_signal
)((int)sig
+ 1))
989 if (STREQ (name
, signals
[sig
].name
))
991 return TARGET_SIGNAL_UNKNOWN
;
994 /* The following functions are to help certain targets deal
995 with the signal/waitstatus stuff. They could just as well be in
996 a file called native-utils.c or unixwaitstatus-utils.c or whatever. */
998 /* Convert host signal to our signals. */
1000 target_signal_from_host (hostsig
)
1003 /* A switch statement would make sense but would require special kludges
1004 to deal with the cases where more than one signal has the same number. */
1006 if (hostsig
== 0) return TARGET_SIGNAL_0
;
1008 #if defined (SIGHUP)
1009 if (hostsig
== SIGHUP
) return TARGET_SIGNAL_HUP
;
1011 #if defined (SIGINT)
1012 if (hostsig
== SIGINT
) return TARGET_SIGNAL_INT
;
1014 #if defined (SIGQUIT)
1015 if (hostsig
== SIGQUIT
) return TARGET_SIGNAL_QUIT
;
1017 #if defined (SIGILL)
1018 if (hostsig
== SIGILL
) return TARGET_SIGNAL_ILL
;
1020 #if defined (SIGTRAP)
1021 if (hostsig
== SIGTRAP
) return TARGET_SIGNAL_TRAP
;
1023 #if defined (SIGABRT)
1024 if (hostsig
== SIGABRT
) return TARGET_SIGNAL_ABRT
;
1026 #if defined (SIGEMT)
1027 if (hostsig
== SIGEMT
) return TARGET_SIGNAL_EMT
;
1029 #if defined (SIGFPE)
1030 if (hostsig
== SIGFPE
) return TARGET_SIGNAL_FPE
;
1032 #if defined (SIGKILL)
1033 if (hostsig
== SIGKILL
) return TARGET_SIGNAL_KILL
;
1035 #if defined (SIGBUS)
1036 if (hostsig
== SIGBUS
) return TARGET_SIGNAL_BUS
;
1038 #if defined (SIGSEGV)
1039 if (hostsig
== SIGSEGV
) return TARGET_SIGNAL_SEGV
;
1041 #if defined (SIGSYS)
1042 if (hostsig
== SIGSYS
) return TARGET_SIGNAL_SYS
;
1044 #if defined (SIGPIPE)
1045 if (hostsig
== SIGPIPE
) return TARGET_SIGNAL_PIPE
;
1047 #if defined (SIGALRM)
1048 if (hostsig
== SIGALRM
) return TARGET_SIGNAL_ALRM
;
1050 #if defined (SIGTERM)
1051 if (hostsig
== SIGTERM
) return TARGET_SIGNAL_TERM
;
1053 #if defined (SIGUSR1)
1054 if (hostsig
== SIGUSR1
) return TARGET_SIGNAL_USR1
;
1056 #if defined (SIGUSR2)
1057 if (hostsig
== SIGUSR2
) return TARGET_SIGNAL_USR2
;
1059 #if defined (SIGCLD)
1060 if (hostsig
== SIGCLD
) return TARGET_SIGNAL_CHLD
;
1062 #if defined (SIGCHLD)
1063 if (hostsig
== SIGCHLD
) return TARGET_SIGNAL_CHLD
;
1065 #if defined (SIGPWR)
1066 if (hostsig
== SIGPWR
) return TARGET_SIGNAL_PWR
;
1068 #if defined (SIGWINCH)
1069 if (hostsig
== SIGWINCH
) return TARGET_SIGNAL_WINCH
;
1071 #if defined (SIGURG)
1072 if (hostsig
== SIGURG
) return TARGET_SIGNAL_URG
;
1075 if (hostsig
== SIGIO
) return TARGET_SIGNAL_IO
;
1077 #if defined (SIGPOLL)
1078 if (hostsig
== SIGPOLL
) return TARGET_SIGNAL_POLL
;
1080 #if defined (SIGSTOP)
1081 if (hostsig
== SIGSTOP
) return TARGET_SIGNAL_STOP
;
1083 #if defined (SIGTSTP)
1084 if (hostsig
== SIGTSTP
) return TARGET_SIGNAL_TSTP
;
1086 #if defined (SIGCONT)
1087 if (hostsig
== SIGCONT
) return TARGET_SIGNAL_CONT
;
1089 #if defined (SIGTTIN)
1090 if (hostsig
== SIGTTIN
) return TARGET_SIGNAL_TTIN
;
1092 #if defined (SIGTTOU)
1093 if (hostsig
== SIGTTOU
) return TARGET_SIGNAL_TTOU
;
1095 #if defined (SIGVTALRM)
1096 if (hostsig
== SIGVTALRM
) return TARGET_SIGNAL_VTALRM
;
1098 #if defined (SIGPROF)
1099 if (hostsig
== SIGPROF
) return TARGET_SIGNAL_PROF
;
1101 #if defined (SIGXCPU)
1102 if (hostsig
== SIGXCPU
) return TARGET_SIGNAL_XCPU
;
1104 #if defined (SIGXFSZ)
1105 if (hostsig
== SIGXFSZ
) return TARGET_SIGNAL_XFSZ
;
1107 #if defined (SIGWIND)
1108 if (hostsig
== SIGWIND
) return TARGET_SIGNAL_WIND
;
1110 #if defined (SIGPHONE)
1111 if (hostsig
== SIGPHONE
) return TARGET_SIGNAL_PHONE
;
1113 #if defined (SIGLOST)
1114 if (hostsig
== SIGLOST
) return TARGET_SIGNAL_LOST
;
1116 #if defined (SIGWAITING)
1117 if (hostsig
== SIGWAITING
) return TARGET_SIGNAL_WAITING
;
1119 #if defined (SIGLWP)
1120 if (hostsig
== SIGLWP
) return TARGET_SIGNAL_LWP
;
1122 #if defined (SIGDANGER)
1123 if (hostsig
== SIGDANGER
) return TARGET_SIGNAL_DANGER
;
1125 #if defined (SIGGRANT)
1126 if (hostsig
== SIGGRANT
) return TARGET_SIGNAL_GRANT
;
1128 #if defined (SIGRETRACT)
1129 if (hostsig
== SIGRETRACT
) return TARGET_SIGNAL_RETRACT
;
1131 #if defined (SIGMSG)
1132 if (hostsig
== SIGMSG
) return TARGET_SIGNAL_MSG
;
1134 #if defined (SIGSOUND)
1135 if (hostsig
== SIGSOUND
) return TARGET_SIGNAL_SOUND
;
1137 #if defined (SIGSAK)
1138 if (hostsig
== SIGSAK
) return TARGET_SIGNAL_SAK
;
1140 return TARGET_SIGNAL_UNKNOWN
;
1144 target_signal_to_host (oursig
)
1145 enum target_signal oursig
;
1149 case TARGET_SIGNAL_0
: return 0;
1151 #if defined (SIGHUP)
1152 case TARGET_SIGNAL_HUP
: return SIGHUP
;
1154 #if defined (SIGINT)
1155 case TARGET_SIGNAL_INT
: return SIGINT
;
1157 #if defined (SIGQUIT)
1158 case TARGET_SIGNAL_QUIT
: return SIGQUIT
;
1160 #if defined (SIGILL)
1161 case TARGET_SIGNAL_ILL
: return SIGILL
;
1163 #if defined (SIGTRAP)
1164 case TARGET_SIGNAL_TRAP
: return SIGTRAP
;
1166 #if defined (SIGABRT)
1167 case TARGET_SIGNAL_ABRT
: return SIGABRT
;
1169 #if defined (SIGEMT)
1170 case TARGET_SIGNAL_EMT
: return SIGEMT
;
1172 #if defined (SIGFPE)
1173 case TARGET_SIGNAL_FPE
: return SIGFPE
;
1175 #if defined (SIGKILL)
1176 case TARGET_SIGNAL_KILL
: return SIGKILL
;
1178 #if defined (SIGBUS)
1179 case TARGET_SIGNAL_BUS
: return SIGBUS
;
1181 #if defined (SIGSEGV)
1182 case TARGET_SIGNAL_SEGV
: return SIGSEGV
;
1184 #if defined (SIGSYS)
1185 case TARGET_SIGNAL_SYS
: return SIGSYS
;
1187 #if defined (SIGPIPE)
1188 case TARGET_SIGNAL_PIPE
: return SIGPIPE
;
1190 #if defined (SIGALRM)
1191 case TARGET_SIGNAL_ALRM
: return SIGALRM
;
1193 #if defined (SIGTERM)
1194 case TARGET_SIGNAL_TERM
: return SIGTERM
;
1196 #if defined (SIGUSR1)
1197 case TARGET_SIGNAL_USR1
: return SIGUSR1
;
1199 #if defined (SIGUSR2)
1200 case TARGET_SIGNAL_USR2
: return SIGUSR2
;
1202 #if defined (SIGCHLD) || defined (SIGCLD)
1203 case TARGET_SIGNAL_CHLD
:
1204 #if defined (SIGCHLD)
1209 #endif /* SIGCLD or SIGCHLD */
1210 #if defined (SIGPWR)
1211 case TARGET_SIGNAL_PWR
: return SIGPWR
;
1213 #if defined (SIGWINCH)
1214 case TARGET_SIGNAL_WINCH
: return SIGWINCH
;
1216 #if defined (SIGURG)
1217 case TARGET_SIGNAL_URG
: return SIGURG
;
1220 case TARGET_SIGNAL_IO
: return SIGIO
;
1222 #if defined (SIGPOLL)
1223 case TARGET_SIGNAL_POLL
: return SIGPOLL
;
1225 #if defined (SIGSTOP)
1226 case TARGET_SIGNAL_STOP
: return SIGSTOP
;
1228 #if defined (SIGTSTP)
1229 case TARGET_SIGNAL_TSTP
: return SIGTSTP
;
1231 #if defined (SIGCONT)
1232 case TARGET_SIGNAL_CONT
: return SIGCONT
;
1234 #if defined (SIGTTIN)
1235 case TARGET_SIGNAL_TTIN
: return SIGTTIN
;
1237 #if defined (SIGTTOU)
1238 case TARGET_SIGNAL_TTOU
: return SIGTTOU
;
1240 #if defined (SIGVTALRM)
1241 case TARGET_SIGNAL_VTALRM
: return SIGVTALRM
;
1243 #if defined (SIGPROF)
1244 case TARGET_SIGNAL_PROF
: return SIGPROF
;
1246 #if defined (SIGXCPU)
1247 case TARGET_SIGNAL_XCPU
: return SIGXCPU
;
1249 #if defined (SIGXFSZ)
1250 case TARGET_SIGNAL_XFSZ
: return SIGXFSZ
;
1252 #if defined (SIGWIND)
1253 case TARGET_SIGNAL_WIND
: return SIGWIND
;
1255 #if defined (SIGPHONE)
1256 case TARGET_SIGNAL_PHONE
: return SIGPHONE
;
1258 #if defined (SIGLOST)
1259 case TARGET_SIGNAL_LOST
: return SIGLOST
;
1261 #if defined (SIGWAITING)
1262 case TARGET_SIGNAL_WAITING
: return SIGWAITING
;
1264 #if defined (SIGLWP)
1265 case TARGET_SIGNAL_LWP
: return SIGLWP
;
1267 #if defined (SIGDANGER)
1268 case TARGET_SIGNAL_DANGER
: return SIGDANGER
;
1270 #if defined (SIGGRANT)
1271 case TARGET_SIGNAL_GRANT
: return SIGGRANT
;
1273 #if defined (SIGRETRACT)
1274 case TARGET_SIGNAL_RETRACT
: return SIGRETRACT
;
1276 #if defined (SIGMSG)
1277 case TARGET_SIGNAL_MSG
: return SIGMSG
;
1279 #if defined (SIGSOUND)
1280 case TARGET_SIGNAL_SOUND
: return SIGSOUND
;
1282 #if defined (SIGSAK)
1283 case TARGET_SIGNAL_SAK
: return SIGSAK
;
1286 /* The user might be trying to do "signal SIGSAK" where this system
1287 doesn't have SIGSAK. */
1288 warning ("Signal %s does not exist on this system.\n",
1289 target_signal_to_name (oursig
));
1294 /* Helper function for child_wait and the Lynx derivatives of child_wait.
1295 HOSTSTATUS is the waitstatus from wait() or the equivalent; store our
1296 translation of that in OURSTATUS. */
1298 store_waitstatus (ourstatus
, hoststatus
)
1299 struct target_waitstatus
*ourstatus
;
1302 #ifdef CHILD_SPECIAL_WAITSTATUS
1303 /* CHILD_SPECIAL_WAITSTATUS should return nonzero and set *OURSTATUS
1304 if it wants to deal with hoststatus. */
1305 if (CHILD_SPECIAL_WAITSTATUS (ourstatus
, hoststatus
))
1309 if (WIFEXITED (hoststatus
))
1311 ourstatus
->kind
= TARGET_WAITKIND_EXITED
;
1312 ourstatus
->value
.integer
= WEXITSTATUS (hoststatus
);
1314 else if (!WIFSTOPPED (hoststatus
))
1316 ourstatus
->kind
= TARGET_WAITKIND_SIGNALLED
;
1317 ourstatus
->value
.sig
= target_signal_from_host (WTERMSIG (hoststatus
));
1321 ourstatus
->kind
= TARGET_WAITKIND_STOPPED
;
1322 ourstatus
->value
.sig
= target_signal_from_host (WSTOPSIG (hoststatus
));
1327 /* Returns zero to leave the inferior alone, one to interrupt it. */
1328 int (*target_activity_function
) PARAMS ((void));
1329 int target_activity_fd
;
1331 /* Convert a normal process ID to a string. Returns the string in a static
1335 normal_pid_to_str (pid
)
1338 static char buf
[30];
1340 sprintf (buf
, "process %d", pid
);
1345 static char targ_desc
[] =
1346 "Names of targets and files being debugged.\n\
1347 Shows the entire stack of targets currently in use (including the exec-file,\n\
1348 core-file, and process, if any), as well as the symbol file name.";
1351 _initialize_targets ()
1353 push_target (&dummy_target
);
1355 add_info ("target", target_info
, targ_desc
);
1356 add_info ("files", target_info
, targ_desc
);
1358 if (!STREQ (signals
[TARGET_SIGNAL_LAST
].string
, "TARGET_SIGNAL_MAGIC"))