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, struct target_ops
*));
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
, t
)
184 struct target_ops
*t
;
186 errno
= EIO
; /* Can't read/write this location */
187 return 0; /* No bytes handled */
193 error ("You can't do that when your target is `%s'",
194 current_target
.to_shortname
);
200 error ("You can't do that without a process to debug");
205 nosymbol (name
, addrp
)
209 return 1; /* Symbol does not exist in target env */
214 default_terminal_info (args
, from_tty
)
218 printf_unfiltered("No saved terminal information.\n");
221 /* This is the default target_create_inferior and target_attach function.
222 If the current target is executing, it asks whether to kill it off.
223 If this function returns without calling error(), it has killed off
224 the target, and the operation should be attempted. */
227 kill_or_be_killed (from_tty
)
230 if (target_has_execution
)
232 printf_unfiltered ("You are already running a program:\n");
233 target_files_info ();
234 if (query ("Kill it? ")) {
236 if (target_has_execution
)
237 error ("Killing the program did not help.");
240 error ("Program not killed.");
247 maybe_kill_then_attach (args
, from_tty
)
251 kill_or_be_killed (from_tty
);
252 target_attach (args
, from_tty
);
256 maybe_kill_then_create_inferior (exec
, args
, env
)
261 kill_or_be_killed (0);
262 target_create_inferior (exec
, args
, env
);
265 /* Clean up a target struct so it no longer has any zero pointers in it.
266 We default entries, at least to stubs that print error messages. */
270 struct target_ops
*t
;
273 #define de_fault(field, value) \
274 if (!t->field) t->field = value
276 /* FIELD DEFAULT VALUE */
278 de_fault (to_open
, (void (*)())tcomplain
);
279 de_fault (to_close
, (void (*)())ignore
);
280 de_fault (to_attach
, maybe_kill_then_attach
);
281 de_fault (to_detach
, (void (*)())ignore
);
282 de_fault (to_resume
, (void (*)())noprocess
);
283 de_fault (to_wait
, (int (*)())noprocess
);
284 de_fault (to_fetch_registers
, (void (*)())ignore
);
285 de_fault (to_store_registers
, (void (*)())noprocess
);
286 de_fault (to_prepare_to_store
, (void (*)())noprocess
);
287 de_fault (to_xfer_memory
, (int (*)())nomemory
);
288 de_fault (to_files_info
, (void (*)())ignore
);
289 de_fault (to_insert_breakpoint
, memory_insert_breakpoint
);
290 de_fault (to_remove_breakpoint
, memory_remove_breakpoint
);
291 de_fault (to_terminal_init
, ignore
);
292 de_fault (to_terminal_inferior
, ignore
);
293 de_fault (to_terminal_ours_for_output
,ignore
);
294 de_fault (to_terminal_ours
, ignore
);
295 de_fault (to_terminal_info
, default_terminal_info
);
296 de_fault (to_kill
, (void (*)())noprocess
);
297 de_fault (to_load
, (void (*)())tcomplain
);
298 de_fault (to_lookup_symbol
, nosymbol
);
299 de_fault (to_create_inferior
, maybe_kill_then_create_inferior
);
300 de_fault (to_mourn_inferior
, (void (*)())noprocess
);
301 de_fault (to_can_run
, return_zero
);
302 de_fault (to_notice_signals
, (void (*)())ignore
);
307 /* Go through the target stack from top to bottom, copying over zero entries in
308 current_target. In effect, we are doing class inheritance through the
309 pushed target vectors. */
312 update_current_target ()
314 struct target_stack_item
*item
;
315 struct target_ops
*t
;
317 /* First, reset current_target */
318 memset (¤t_target
, 0, sizeof current_target
);
320 for (item
= target_stack
; item
; item
= item
->next
)
322 t
= item
->target_ops
;
324 #define INHERIT(FIELD, TARGET) \
325 if (!current_target.FIELD) \
326 current_target.FIELD = TARGET->FIELD
328 INHERIT (to_shortname
, t
);
329 INHERIT (to_longname
, t
);
331 INHERIT (to_open
, t
);
332 INHERIT (to_close
, t
);
333 INHERIT (to_attach
, t
);
334 INHERIT (to_detach
, t
);
335 INHERIT (to_resume
, t
);
336 INHERIT (to_wait
, t
);
337 INHERIT (to_fetch_registers
, t
);
338 INHERIT (to_store_registers
, t
);
339 INHERIT (to_prepare_to_store
, t
);
340 INHERIT (to_xfer_memory
, t
);
341 INHERIT (to_files_info
, t
);
342 INHERIT (to_insert_breakpoint
, t
);
343 INHERIT (to_remove_breakpoint
, t
);
344 INHERIT (to_terminal_init
, t
);
345 INHERIT (to_terminal_inferior
, t
);
346 INHERIT (to_terminal_ours_for_output
, t
);
347 INHERIT (to_terminal_ours
, t
);
348 INHERIT (to_terminal_info
, t
);
349 INHERIT (to_kill
, t
);
350 INHERIT (to_load
, t
);
351 INHERIT (to_lookup_symbol
, t
);
352 INHERIT (to_create_inferior
, t
);
353 INHERIT (to_mourn_inferior
, t
);
354 INHERIT (to_can_run
, t
);
355 INHERIT (to_notice_signals
, t
);
356 INHERIT (to_stratum
, t
);
357 INHERIT (DONT_USE
, t
);
358 INHERIT (to_has_all_memory
, t
);
359 INHERIT (to_has_memory
, t
);
360 INHERIT (to_has_stack
, t
);
361 INHERIT (to_has_registers
, t
);
362 INHERIT (to_has_execution
, t
);
363 INHERIT (to_sections
, t
);
364 INHERIT (to_sections_end
, t
);
365 INHERIT (to_magic
, t
);
371 /* Push a new target type into the stack of the existing target accessors,
372 possibly superseding some of the existing accessors.
374 Result is zero if the pushed target ended up on top of the stack,
375 nonzero if at least one target is on top of it.
377 Rather than allow an empty stack, we always have the dummy target at
378 the bottom stratum, so we can call the function vectors without
383 struct target_ops
*t
;
385 struct target_stack_item
*cur
, *prev
, *tmp
;
387 /* Check magic number. If wrong, it probably means someone changed
388 the struct definition, but not all the places that initialize one. */
389 if (t
->to_magic
!= OPS_MAGIC
)
391 fprintf_unfiltered(gdb_stderr
,
392 "Magic number of %s target struct wrong\n",
397 /* Find the proper stratum to install this target in. */
399 for (prev
= NULL
, cur
= target_stack
; cur
; prev
= cur
, cur
= cur
->next
)
401 if ((int)(t
->to_stratum
) >= (int)(cur
->target_ops
->to_stratum
))
405 /* If there's already targets at this stratum, remove them. */
408 while (t
->to_stratum
== cur
->target_ops
->to_stratum
)
410 /* There's already something on this stratum. Close it off. */
411 (cur
->target_ops
->to_close
) (0);
413 prev
->next
= cur
->next
; /* Unchain old target_ops */
415 target_stack
= cur
->next
; /* Unchain first on list */
421 /* We have removed all targets in our stratum, now add the new one. */
423 tmp
= (struct target_stack_item
*)
424 xmalloc (sizeof (struct target_stack_item
));
433 update_current_target ();
435 cleanup_target (¤t_target
); /* Fill in the gaps */
439 /* Remove a target_ops vector from the stack, wherever it may be.
440 Return how many times it was removed (0 or 1). */
444 struct target_ops
*t
;
446 struct target_stack_item
*cur
, *prev
;
448 t
->to_close (0); /* Let it clean up */
450 /* Look for the specified target. Note that we assume that a target
451 can only occur once in the target stack. */
453 for (cur
= target_stack
, prev
= NULL
; cur
; prev
= cur
, cur
= cur
->next
)
454 if (cur
->target_ops
== t
)
458 return 0; /* Didn't find target_ops, quit now */
460 /* Unchain the target */
463 target_stack
= cur
->next
;
465 prev
->next
= cur
->next
;
467 free (cur
); /* Release the target_stack_item */
469 update_current_target ();
470 cleanup_target (¤t_target
);
478 (current_target
.to_close
)(0); /* Let it clean up */
479 if (unpush_target (target_stack
->target_ops
) == 1)
482 fprintf_unfiltered(gdb_stderr
,
483 "pop_target couldn't find target %s\n",
484 current_target
.to_shortname
);
489 #define MIN(A, B) (((A) <= (B)) ? (A) : (B))
491 /* target_read_string -- read a null terminated string, up to LEN bytes,
492 from MEMADDR in target. Set *ERRNOP to the errno code, or 0 if successful.
493 Set *STRING to a pointer to malloc'd memory containing the data; the caller
494 is responsible for freeing it. Return the number of bytes successfully
498 target_read_string (memaddr
, string
, len
, errnop
)
504 int tlen
, origlen
, offset
, i
;
508 int buffer_allocated
;
510 unsigned int nbytes_read
= 0;
512 /* Small for testing. */
513 buffer_allocated
= 4;
514 buffer
= xmalloc (buffer_allocated
);
521 tlen
= MIN (len
, 4 - (memaddr
& 3));
522 offset
= memaddr
& 3;
524 errcode
= target_xfer_memory (memaddr
& ~3, buf
, 4, 0);
528 if (bufptr
- buffer
+ tlen
> buffer_allocated
)
531 bytes
= bufptr
- buffer
;
532 buffer_allocated
*= 2;
533 buffer
= xrealloc (buffer
, buffer_allocated
);
534 bufptr
= buffer
+ bytes
;
537 for (i
= 0; i
< tlen
; i
++)
539 *bufptr
++ = buf
[i
+ offset
];
540 if (buf
[i
+ offset
] == '\000')
542 nbytes_read
+= i
+ 1;
559 /* Read LEN bytes of target memory at address MEMADDR, placing the results in
560 GDB's memory at MYADDR. Returns either 0 for success or an errno value
563 If an error occurs, no guarantee is made about the contents of the data at
564 MYADDR. In particular, the caller should not depend upon partial reads
565 filling the buffer with good data. There is no way for the caller to know
566 how much good data might have been transfered anyway. Callers that can
567 deal with partial reads should call target_read_memory_partial. */
570 target_read_memory (memaddr
, myaddr
, len
)
575 return target_xfer_memory (memaddr
, myaddr
, len
, 0);
578 /* Read LEN bytes of target memory at address MEMADDR, placing the results
579 in GDB's memory at MYADDR. Returns a count of the bytes actually read,
580 and optionally an errno value in the location pointed to by ERRNOPTR
581 if ERRNOPTR is non-null. */
584 target_read_memory_partial (memaddr
, myaddr
, len
, errnoptr
)
590 int nread
; /* Number of bytes actually read. */
591 int errcode
; /* Error from last read. */
593 /* First try a complete read. */
594 errcode
= target_xfer_memory (memaddr
, myaddr
, len
, 0);
602 /* Loop, reading one byte at a time until we get as much as we can. */
603 for (errcode
= 0, nread
= 0; len
> 0 && errcode
== 0; nread
++, len
--)
605 errcode
= target_xfer_memory (memaddr
++, myaddr
++, 1, 0);
607 /* If an error, the last read was unsuccessful, so adjust count. */
613 if (errnoptr
!= NULL
)
621 target_write_memory (memaddr
, myaddr
, len
)
626 return target_xfer_memory (memaddr
, myaddr
, len
, 1);
629 /* Move memory to or from the targets. Iterate until all of it has
630 been moved, if necessary. The top target gets priority; anything
631 it doesn't want, is offered to the next one down, etc. Note the
632 business with curlen: if an early target says "no, but I have a
633 boundary overlapping this xfer" then we shorten what we offer to
634 the subsequent targets so the early guy will get a chance at the
635 tail before the subsequent ones do.
637 Result is 0 or errno value. */
640 target_xfer_memory (memaddr
, myaddr
, len
, write
)
648 struct target_ops
*t
;
649 struct target_stack_item
*item
;
651 /* to_xfer_memory is not guaranteed to set errno, even when it returns
655 /* The quick case is that the top target does it all. */
656 res
= current_target
.to_xfer_memory
657 (memaddr
, myaddr
, len
, write
, ¤t_target
);
663 /* If res <= 0 then we call it again in the loop. Ah well. */
667 curlen
= len
; /* Want to do it all */
668 for (item
= target_stack
; item
; item
= item
->next
)
670 t
= item
->target_ops
;
672 res
= t
->to_xfer_memory (memaddr
, myaddr
, curlen
, write
, t
);
674 break; /* Handled all or part of xfer */
675 if (t
->to_has_all_memory
)
681 /* If this address is for nonexistent memory,
682 read zeros if reading, or do nothing if writing. Return error. */
684 memset (myaddr
, 0, len
);
695 return 0; /* We managed to cover it all somehow. */
701 target_info (args
, from_tty
)
705 struct target_ops
*t
;
706 struct target_stack_item
*item
;
709 if (symfile_objfile
!= NULL
)
710 printf_unfiltered ("Symbols from \"%s\".\n", symfile_objfile
->name
);
712 #ifdef FILES_INFO_HOOK
713 if (FILES_INFO_HOOK ())
717 for (item
= target_stack
; item
; item
= item
->next
)
719 t
= item
->target_ops
;
721 if ((int)(t
->to_stratum
) <= (int)dummy_stratum
)
724 printf_unfiltered("\tWhile running this, GDB does not access memory from...\n");
725 printf_unfiltered("%s:\n", t
->to_longname
);
726 (t
->to_files_info
)(t
);
727 has_all_mem
= t
->to_has_all_memory
;
731 /* This is to be called by the open routine before it does
735 target_preopen (from_tty
)
740 if (target_has_execution
)
742 if (query ("A program is being debugged already. Kill it? "))
745 error ("Program not killed.");
748 /* Calling target_kill may remove the target from the stack. But if
749 it doesn't (which seems like a win for UDI), remove it now. */
751 if (target_has_execution
)
755 /* Detach a target after doing deferred register stores. */
758 target_detach (args
, from_tty
)
762 /* Handle any optimized stores to the inferior. */
763 #ifdef DO_DEFERRED_STORES
766 (current_target
.to_detach
) (args
, from_tty
);
770 target_link (modname
, t_reloc
)
774 if (STREQ(current_target
.to_shortname
, "rombug"))
776 (current_target
.to_lookup_symbol
) (modname
, t_reloc
);
778 error("Unable to link to %s and get relocation in rombug", modname
);
781 *t_reloc
= (CORE_ADDR
)-1;
784 /* Look through the list of possible targets for a target that can
785 execute a run or attach command without any other data. This is
786 used to locate the default process stratum.
788 Result is always valid (error() is called for errors). */
790 static struct target_ops
*
791 find_default_run_target (do_mesg
)
794 struct target_ops
**t
;
795 struct target_ops
*runable
= NULL
;
800 for (t
= target_structs
; t
< target_structs
+ target_struct_size
;
803 if (target_can_run(*t
))
811 error ("Don't know how to %s. Try \"help target\".", do_mesg
);
817 find_default_attach (args
, from_tty
)
821 struct target_ops
*t
;
823 t
= find_default_run_target("attach");
824 (t
->to_attach
) (args
, from_tty
);
829 find_default_create_inferior (exec_file
, allargs
, env
)
834 struct target_ops
*t
;
836 t
= find_default_run_target("run");
837 (t
->to_create_inferior
) (exec_file
, allargs
, env
);
850 struct target_ops
**t
;
851 struct target_ops
*runable
= NULL
;
856 for (t
= target_structs
; t
< target_structs
+ target_struct_size
;
859 if ((*t
)->to_stratum
== core_stratum
)
866 return(count
== 1 ? runable
: NULL
);
869 /* The inferior process has died. Long live the inferior! */
872 generic_mourn_inferior ()
874 extern int show_breakpoint_hit_counts
;
878 breakpoint_init_inferior ();
879 registers_changed ();
881 #ifdef CLEAR_DEFERRED_STORES
882 /* Delete any pending stores to the inferior... */
883 CLEAR_DEFERRED_STORES
;
887 reinit_frame_cache ();
889 /* It is confusing to the user for ignore counts to stick around
890 from previous runs of the inferior. So clear them. */
891 /* However, it is more confusing for the ignore counts to disappear when
892 using hit counts. So don't clear them if we're counting hits. */
893 if (!show_breakpoint_hit_counts
)
894 breakpoint_clear_ignore_counts ();
897 /* This table must match in order and size the signals in enum target_signal
905 {"SIGHUP", "Hangup"},
906 {"SIGINT", "Interrupt"},
908 {"SIGILL", "Illegal instruction"},
909 {"SIGTRAP", "Trace/breakpoint trap"},
910 {"SIGABRT", "Aborted"},
911 {"SIGEMT", "Emulation trap"},
912 {"SIGFPE", "Arithmetic exception"},
913 {"SIGKILL", "Killed"},
914 {"SIGBUS", "Bus error"},
915 {"SIGSEGV", "Segmentation fault"},
916 {"SIGSYS", "Bad system call"},
917 {"SIGPIPE", "Broken pipe"},
918 {"SIGALRM", "Alarm clock"},
919 {"SIGTERM", "Terminated"},
920 {"SIGURG", "Urgent I/O condition"},
921 {"SIGSTOP", "Stopped (signal)"},
922 {"SIGTSTP", "Stopped (user)"},
923 {"SIGCONT", "Continued"},
924 {"SIGCHLD", "Child status changed"},
925 {"SIGTTIN", "Stopped (tty input)"},
926 {"SIGTTOU", "Stopped (tty output)"},
927 {"SIGIO", "I/O possible"},
928 {"SIGXCPU", "CPU time limit exceeded"},
929 {"SIGXFSZ", "File size limit exceeded"},
930 {"SIGVTALRM", "Virtual timer expired"},
931 {"SIGPROF", "Profiling timer expired"},
932 {"SIGWINCH", "Window size changed"},
933 {"SIGLOST", "Resource lost"},
934 {"SIGUSR1", "User defined signal 1"},
935 {"SIGUSR2", "User defined signal 2"},
936 {"SIGPWR", "Power fail/restart"},
937 {"SIGPOLL", "Pollable event occurred"},
938 {"SIGWIND", "SIGWIND"},
939 {"SIGPHONE", "SIGPHONE"},
940 {"SIGWAITING", "Process's LWPs are blocked"},
941 {"SIGLWP", "Signal LWP"},
942 {"SIGDANGER", "Swap space dangerously low"},
943 {"SIGGRANT", "Monitor mode granted"},
944 {"SIGRETRACT", "Need to relinguish monitor mode"},
945 {"SIGMSG", "Monitor mode data available"},
946 {"SIGSOUND", "Sound completed"},
947 {"SIGSAK", "Secure attention"},
948 {NULL
, "Unknown signal"},
949 {NULL
, "Internal error: printing TARGET_SIGNAL_DEFAULT"},
951 /* Last entry, used to check whether the table is the right size. */
952 {NULL
, "TARGET_SIGNAL_MAGIC"}
955 /* Return the string for a signal. */
957 target_signal_to_string (sig
)
958 enum target_signal sig
;
960 return signals
[sig
].string
;
963 /* Return the name for a signal. */
965 target_signal_to_name (sig
)
966 enum target_signal sig
;
968 if (sig
== TARGET_SIGNAL_UNKNOWN
)
969 /* I think the code which prints this will always print it along with
970 the string, so no need to be verbose. */
972 return signals
[sig
].name
;
975 /* Given a name, return its signal. */
977 target_signal_from_name (name
)
980 enum target_signal sig
;
982 /* It's possible we also should allow "SIGCLD" as well as "SIGCHLD"
983 for TARGET_SIGNAL_SIGCHLD. SIGIOT, on the other hand, is more
984 questionable; seems like by now people should call it SIGABRT
987 /* This ugly cast brought to you by the native VAX compiler. */
988 for (sig
= TARGET_SIGNAL_HUP
;
989 signals
[sig
].name
!= NULL
;
990 sig
= (enum target_signal
)((int)sig
+ 1))
991 if (STREQ (name
, signals
[sig
].name
))
993 return TARGET_SIGNAL_UNKNOWN
;
996 /* The following functions are to help certain targets deal
997 with the signal/waitstatus stuff. They could just as well be in
998 a file called native-utils.c or unixwaitstatus-utils.c or whatever. */
1000 /* Convert host signal to our signals. */
1002 target_signal_from_host (hostsig
)
1005 /* A switch statement would make sense but would require special kludges
1006 to deal with the cases where more than one signal has the same number. */
1008 if (hostsig
== 0) return TARGET_SIGNAL_0
;
1010 #if defined (SIGHUP)
1011 if (hostsig
== SIGHUP
) return TARGET_SIGNAL_HUP
;
1013 #if defined (SIGINT)
1014 if (hostsig
== SIGINT
) return TARGET_SIGNAL_INT
;
1016 #if defined (SIGQUIT)
1017 if (hostsig
== SIGQUIT
) return TARGET_SIGNAL_QUIT
;
1019 #if defined (SIGILL)
1020 if (hostsig
== SIGILL
) return TARGET_SIGNAL_ILL
;
1022 #if defined (SIGTRAP)
1023 if (hostsig
== SIGTRAP
) return TARGET_SIGNAL_TRAP
;
1025 #if defined (SIGABRT)
1026 if (hostsig
== SIGABRT
) return TARGET_SIGNAL_ABRT
;
1028 #if defined (SIGEMT)
1029 if (hostsig
== SIGEMT
) return TARGET_SIGNAL_EMT
;
1031 #if defined (SIGFPE)
1032 if (hostsig
== SIGFPE
) return TARGET_SIGNAL_FPE
;
1034 #if defined (SIGKILL)
1035 if (hostsig
== SIGKILL
) return TARGET_SIGNAL_KILL
;
1037 #if defined (SIGBUS)
1038 if (hostsig
== SIGBUS
) return TARGET_SIGNAL_BUS
;
1040 #if defined (SIGSEGV)
1041 if (hostsig
== SIGSEGV
) return TARGET_SIGNAL_SEGV
;
1043 #if defined (SIGSYS)
1044 if (hostsig
== SIGSYS
) return TARGET_SIGNAL_SYS
;
1046 #if defined (SIGPIPE)
1047 if (hostsig
== SIGPIPE
) return TARGET_SIGNAL_PIPE
;
1049 #if defined (SIGALRM)
1050 if (hostsig
== SIGALRM
) return TARGET_SIGNAL_ALRM
;
1052 #if defined (SIGTERM)
1053 if (hostsig
== SIGTERM
) return TARGET_SIGNAL_TERM
;
1055 #if defined (SIGUSR1)
1056 if (hostsig
== SIGUSR1
) return TARGET_SIGNAL_USR1
;
1058 #if defined (SIGUSR2)
1059 if (hostsig
== SIGUSR2
) return TARGET_SIGNAL_USR2
;
1061 #if defined (SIGCLD)
1062 if (hostsig
== SIGCLD
) return TARGET_SIGNAL_CHLD
;
1064 #if defined (SIGCHLD)
1065 if (hostsig
== SIGCHLD
) return TARGET_SIGNAL_CHLD
;
1067 #if defined (SIGPWR)
1068 if (hostsig
== SIGPWR
) return TARGET_SIGNAL_PWR
;
1070 #if defined (SIGWINCH)
1071 if (hostsig
== SIGWINCH
) return TARGET_SIGNAL_WINCH
;
1073 #if defined (SIGURG)
1074 if (hostsig
== SIGURG
) return TARGET_SIGNAL_URG
;
1077 if (hostsig
== SIGIO
) return TARGET_SIGNAL_IO
;
1079 #if defined (SIGPOLL)
1080 if (hostsig
== SIGPOLL
) return TARGET_SIGNAL_POLL
;
1082 #if defined (SIGSTOP)
1083 if (hostsig
== SIGSTOP
) return TARGET_SIGNAL_STOP
;
1085 #if defined (SIGTSTP)
1086 if (hostsig
== SIGTSTP
) return TARGET_SIGNAL_TSTP
;
1088 #if defined (SIGCONT)
1089 if (hostsig
== SIGCONT
) return TARGET_SIGNAL_CONT
;
1091 #if defined (SIGTTIN)
1092 if (hostsig
== SIGTTIN
) return TARGET_SIGNAL_TTIN
;
1094 #if defined (SIGTTOU)
1095 if (hostsig
== SIGTTOU
) return TARGET_SIGNAL_TTOU
;
1097 #if defined (SIGVTALRM)
1098 if (hostsig
== SIGVTALRM
) return TARGET_SIGNAL_VTALRM
;
1100 #if defined (SIGPROF)
1101 if (hostsig
== SIGPROF
) return TARGET_SIGNAL_PROF
;
1103 #if defined (SIGXCPU)
1104 if (hostsig
== SIGXCPU
) return TARGET_SIGNAL_XCPU
;
1106 #if defined (SIGXFSZ)
1107 if (hostsig
== SIGXFSZ
) return TARGET_SIGNAL_XFSZ
;
1109 #if defined (SIGWIND)
1110 if (hostsig
== SIGWIND
) return TARGET_SIGNAL_WIND
;
1112 #if defined (SIGPHONE)
1113 if (hostsig
== SIGPHONE
) return TARGET_SIGNAL_PHONE
;
1115 #if defined (SIGLOST)
1116 if (hostsig
== SIGLOST
) return TARGET_SIGNAL_LOST
;
1118 #if defined (SIGWAITING)
1119 if (hostsig
== SIGWAITING
) return TARGET_SIGNAL_WAITING
;
1121 #if defined (SIGLWP)
1122 if (hostsig
== SIGLWP
) return TARGET_SIGNAL_LWP
;
1124 #if defined (SIGDANGER)
1125 if (hostsig
== SIGDANGER
) return TARGET_SIGNAL_DANGER
;
1127 #if defined (SIGGRANT)
1128 if (hostsig
== SIGGRANT
) return TARGET_SIGNAL_GRANT
;
1130 #if defined (SIGRETRACT)
1131 if (hostsig
== SIGRETRACT
) return TARGET_SIGNAL_RETRACT
;
1133 #if defined (SIGMSG)
1134 if (hostsig
== SIGMSG
) return TARGET_SIGNAL_MSG
;
1136 #if defined (SIGSOUND)
1137 if (hostsig
== SIGSOUND
) return TARGET_SIGNAL_SOUND
;
1139 #if defined (SIGSAK)
1140 if (hostsig
== SIGSAK
) return TARGET_SIGNAL_SAK
;
1142 return TARGET_SIGNAL_UNKNOWN
;
1146 target_signal_to_host (oursig
)
1147 enum target_signal oursig
;
1151 case TARGET_SIGNAL_0
: return 0;
1153 #if defined (SIGHUP)
1154 case TARGET_SIGNAL_HUP
: return SIGHUP
;
1156 #if defined (SIGINT)
1157 case TARGET_SIGNAL_INT
: return SIGINT
;
1159 #if defined (SIGQUIT)
1160 case TARGET_SIGNAL_QUIT
: return SIGQUIT
;
1162 #if defined (SIGILL)
1163 case TARGET_SIGNAL_ILL
: return SIGILL
;
1165 #if defined (SIGTRAP)
1166 case TARGET_SIGNAL_TRAP
: return SIGTRAP
;
1168 #if defined (SIGABRT)
1169 case TARGET_SIGNAL_ABRT
: return SIGABRT
;
1171 #if defined (SIGEMT)
1172 case TARGET_SIGNAL_EMT
: return SIGEMT
;
1174 #if defined (SIGFPE)
1175 case TARGET_SIGNAL_FPE
: return SIGFPE
;
1177 #if defined (SIGKILL)
1178 case TARGET_SIGNAL_KILL
: return SIGKILL
;
1180 #if defined (SIGBUS)
1181 case TARGET_SIGNAL_BUS
: return SIGBUS
;
1183 #if defined (SIGSEGV)
1184 case TARGET_SIGNAL_SEGV
: return SIGSEGV
;
1186 #if defined (SIGSYS)
1187 case TARGET_SIGNAL_SYS
: return SIGSYS
;
1189 #if defined (SIGPIPE)
1190 case TARGET_SIGNAL_PIPE
: return SIGPIPE
;
1192 #if defined (SIGALRM)
1193 case TARGET_SIGNAL_ALRM
: return SIGALRM
;
1195 #if defined (SIGTERM)
1196 case TARGET_SIGNAL_TERM
: return SIGTERM
;
1198 #if defined (SIGUSR1)
1199 case TARGET_SIGNAL_USR1
: return SIGUSR1
;
1201 #if defined (SIGUSR2)
1202 case TARGET_SIGNAL_USR2
: return SIGUSR2
;
1204 #if defined (SIGCHLD) || defined (SIGCLD)
1205 case TARGET_SIGNAL_CHLD
:
1206 #if defined (SIGCHLD)
1211 #endif /* SIGCLD or SIGCHLD */
1212 #if defined (SIGPWR)
1213 case TARGET_SIGNAL_PWR
: return SIGPWR
;
1215 #if defined (SIGWINCH)
1216 case TARGET_SIGNAL_WINCH
: return SIGWINCH
;
1218 #if defined (SIGURG)
1219 case TARGET_SIGNAL_URG
: return SIGURG
;
1222 case TARGET_SIGNAL_IO
: return SIGIO
;
1224 #if defined (SIGPOLL)
1225 case TARGET_SIGNAL_POLL
: return SIGPOLL
;
1227 #if defined (SIGSTOP)
1228 case TARGET_SIGNAL_STOP
: return SIGSTOP
;
1230 #if defined (SIGTSTP)
1231 case TARGET_SIGNAL_TSTP
: return SIGTSTP
;
1233 #if defined (SIGCONT)
1234 case TARGET_SIGNAL_CONT
: return SIGCONT
;
1236 #if defined (SIGTTIN)
1237 case TARGET_SIGNAL_TTIN
: return SIGTTIN
;
1239 #if defined (SIGTTOU)
1240 case TARGET_SIGNAL_TTOU
: return SIGTTOU
;
1242 #if defined (SIGVTALRM)
1243 case TARGET_SIGNAL_VTALRM
: return SIGVTALRM
;
1245 #if defined (SIGPROF)
1246 case TARGET_SIGNAL_PROF
: return SIGPROF
;
1248 #if defined (SIGXCPU)
1249 case TARGET_SIGNAL_XCPU
: return SIGXCPU
;
1251 #if defined (SIGXFSZ)
1252 case TARGET_SIGNAL_XFSZ
: return SIGXFSZ
;
1254 #if defined (SIGWIND)
1255 case TARGET_SIGNAL_WIND
: return SIGWIND
;
1257 #if defined (SIGPHONE)
1258 case TARGET_SIGNAL_PHONE
: return SIGPHONE
;
1260 #if defined (SIGLOST)
1261 case TARGET_SIGNAL_LOST
: return SIGLOST
;
1263 #if defined (SIGWAITING)
1264 case TARGET_SIGNAL_WAITING
: return SIGWAITING
;
1266 #if defined (SIGLWP)
1267 case TARGET_SIGNAL_LWP
: return SIGLWP
;
1269 #if defined (SIGDANGER)
1270 case TARGET_SIGNAL_DANGER
: return SIGDANGER
;
1272 #if defined (SIGGRANT)
1273 case TARGET_SIGNAL_GRANT
: return SIGGRANT
;
1275 #if defined (SIGRETRACT)
1276 case TARGET_SIGNAL_RETRACT
: return SIGRETRACT
;
1278 #if defined (SIGMSG)
1279 case TARGET_SIGNAL_MSG
: return SIGMSG
;
1281 #if defined (SIGSOUND)
1282 case TARGET_SIGNAL_SOUND
: return SIGSOUND
;
1284 #if defined (SIGSAK)
1285 case TARGET_SIGNAL_SAK
: return SIGSAK
;
1288 /* The user might be trying to do "signal SIGSAK" where this system
1289 doesn't have SIGSAK. */
1290 warning ("Signal %s does not exist on this system.\n",
1291 target_signal_to_name (oursig
));
1296 /* Helper function for child_wait and the Lynx derivatives of child_wait.
1297 HOSTSTATUS is the waitstatus from wait() or the equivalent; store our
1298 translation of that in OURSTATUS. */
1300 store_waitstatus (ourstatus
, hoststatus
)
1301 struct target_waitstatus
*ourstatus
;
1304 #ifdef CHILD_SPECIAL_WAITSTATUS
1305 /* CHILD_SPECIAL_WAITSTATUS should return nonzero and set *OURSTATUS
1306 if it wants to deal with hoststatus. */
1307 if (CHILD_SPECIAL_WAITSTATUS (ourstatus
, hoststatus
))
1311 if (WIFEXITED (hoststatus
))
1313 ourstatus
->kind
= TARGET_WAITKIND_EXITED
;
1314 ourstatus
->value
.integer
= WEXITSTATUS (hoststatus
);
1316 else if (!WIFSTOPPED (hoststatus
))
1318 ourstatus
->kind
= TARGET_WAITKIND_SIGNALLED
;
1319 ourstatus
->value
.sig
= target_signal_from_host (WTERMSIG (hoststatus
));
1323 ourstatus
->kind
= TARGET_WAITKIND_STOPPED
;
1324 ourstatus
->value
.sig
= target_signal_from_host (WSTOPSIG (hoststatus
));
1329 /* Returns zero to leave the inferior alone, one to interrupt it. */
1330 int (*target_activity_function
) PARAMS ((void));
1331 int target_activity_fd
;
1333 /* Convert a normal process ID to a string. Returns the string in a static
1337 normal_pid_to_str (pid
)
1340 static char buf
[30];
1342 sprintf (buf
, "process %d", pid
);
1347 static char targ_desc
[] =
1348 "Names of targets and files being debugged.\n\
1349 Shows the entire stack of targets currently in use (including the exec-file,\n\
1350 core-file, and process, if any), as well as the symbol file name.";
1353 initialize_targets ()
1355 push_target (&dummy_target
);
1357 add_info ("target", target_info
, targ_desc
);
1358 add_info ("files", target_info
, targ_desc
);
1360 if (!STREQ (signals
[TARGET_SIGNAL_LAST
].string
, "TARGET_SIGNAL_MAGIC"))