1 /* Low level interface to ptrace, for the remote server for GDB.
2 Copyright 1995, 1996, 1998, 1999, 2000, 2001, 2002
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 "linux-low.h"
27 #include <sys/param.h>
29 #include <sys/ptrace.h>
32 #include <sys/ioctl.h>
38 /* ``all_threads'' is keyed by the LWP ID - it should be the thread ID instead,
39 however. This requires changing the ID in place when we go from !using_threads
40 to using_threads, immediately.
42 ``all_processes'' is keyed by the process ID - which on Linux is (presently)
43 the same as the LWP ID. */
45 struct inferior_list all_processes
;
47 /* FIXME this is a bit of a hack, and could be removed. */
50 /* FIXME make into a target method? */
53 static void linux_resume_one_process (struct inferior_list_entry
*entry
,
54 int step
, int signal
);
55 static void linux_resume (int step
, int signal
);
56 static void stop_all_processes (void);
57 static int linux_wait_for_event (struct thread_info
*child
);
59 struct pending_signals
62 struct pending_signals
*prev
;
65 #define PTRACE_ARG3_TYPE long
66 #define PTRACE_XFER_TYPE long
68 #ifdef HAVE_LINUX_REGSETS
69 static int use_regsets_p
= 1;
74 int debug_threads
= 0;
76 #define pid_of(proc) ((proc)->head.id)
78 /* FIXME: Delete eventually. */
79 #define inferior_pid (pid_of (get_thread_process (current_inferior)))
81 /* This function should only be called if the process got a SIGTRAP.
82 The SIGTRAP could mean several things.
84 On i386, where decr_pc_after_break is non-zero:
85 If we were single-stepping this process using PTRACE_SINGLESTEP,
86 we will get only the one SIGTRAP (even if the instruction we
87 stepped over was a breakpoint). The value of $eip will be the
89 If we continue the process using PTRACE_CONT, we will get a
90 SIGTRAP when we hit a breakpoint. The value of $eip will be
91 the instruction after the breakpoint (i.e. needs to be
92 decremented). If we report the SIGTRAP to GDB, we must also
93 report the undecremented PC. If we cancel the SIGTRAP, we
94 must resume at the decremented PC.
96 (Presumably, not yet tested) On a non-decr_pc_after_break machine
97 with hardware or kernel single-step:
98 If we single-step over a breakpoint instruction, our PC will
99 point at the following instruction. If we continue and hit a
100 breakpoint instruction, our PC will point at the breakpoint
106 CORE_ADDR stop_pc
= (*the_low_target
.get_pc
) ();
108 if (get_thread_process (current_inferior
)->stepping
)
111 return stop_pc
- the_low_target
.decr_pc_after_break
;
115 add_process (int pid
)
117 struct process_info
*process
;
119 process
= (struct process_info
*) malloc (sizeof (*process
));
120 memset (process
, 0, sizeof (*process
));
122 process
->head
.id
= pid
;
124 /* Default to tid == lwpid == pid. */
126 process
->lwpid
= pid
;
128 add_inferior_to_list (&all_processes
, &process
->head
);
133 /* Start an inferior process and returns its pid.
134 ALLARGS is a vector of program-name and args. */
137 linux_create_inferior (char *program
, char **allargs
)
144 perror_with_name ("fork");
148 ptrace (PTRACE_TRACEME
, 0, 0, 0);
150 signal (__SIGRTMIN
+ 1, SIG_DFL
);
154 execv (program
, allargs
);
156 fprintf (stderr
, "Cannot exec %s: %s.\n", program
,
162 new_process
= add_process (pid
);
163 add_thread (pid
, new_process
);
168 /* Attach to an inferior process. */
171 linux_attach_lwp (int pid
, int tid
)
173 struct process_info
*new_process
;
175 if (ptrace (PTRACE_ATTACH
, pid
, 0, 0) != 0)
177 fprintf (stderr
, "Cannot attach to process %d: %s (%d)\n", pid
,
178 errno
< sys_nerr
? sys_errlist
[errno
] : "unknown error",
182 /* If we fail to attach to an LWP, just return. */
188 new_process
= (struct process_info
*) add_process (pid
);
189 add_thread (tid
, new_process
);
191 /* The next time we wait for this LWP we'll see a SIGSTOP as PTRACE_ATTACH
192 brings it to a halt. We should ignore that SIGSTOP and resume the process
193 (unless this is the first process, in which case the flag will be cleared
196 On the other hand, if we are currently trying to stop all threads, we
197 should treat the new thread as if we had sent it a SIGSTOP. This works
198 because we are guaranteed that add_process added us to the end of the
199 list, and so the new thread has not yet reached wait_for_sigstop (but
201 if (! stopping_threads
)
202 new_process
->stop_expected
= 1;
206 linux_attach (int pid
)
208 struct process_info
*process
;
210 linux_attach_lwp (pid
, pid
);
212 /* Don't ignore the initial SIGSTOP if we just attached to this process. */
213 process
= (struct process_info
*) find_inferior_id (&all_processes
, pid
);
214 process
->stop_expected
= 0;
219 /* Kill the inferior process. Make us have no inferior. */
222 linux_kill_one_process (struct inferior_list_entry
*entry
)
224 struct thread_info
*thread
= (struct thread_info
*) entry
;
225 struct process_info
*process
= get_thread_process (thread
);
230 ptrace (PTRACE_KILL
, pid_of (process
), 0, 0);
232 /* Make sure it died. The loop is most likely unnecessary. */
233 wstat
= linux_wait_for_event (thread
);
234 } while (WIFSTOPPED (wstat
));
240 for_each_inferior (&all_threads
, linux_kill_one_process
);
244 linux_detach_one_process (struct inferior_list_entry
*entry
)
246 struct thread_info
*thread
= (struct thread_info
*) entry
;
247 struct process_info
*process
= get_thread_process (thread
);
249 ptrace (PTRACE_DETACH
, pid_of (process
), 0, 0);
255 for_each_inferior (&all_threads
, linux_detach_one_process
);
258 /* Return nonzero if the given thread is still alive. */
260 linux_thread_alive (int tid
)
262 if (find_inferior_id (&all_threads
, tid
) != NULL
)
268 /* Return nonzero if this process stopped at a breakpoint which
269 no longer appears to be inserted. Also adjust the PC
270 appropriately to resume where the breakpoint used to be. */
272 check_removed_breakpoint (struct process_info
*event_child
)
275 struct thread_info
*saved_inferior
;
277 if (event_child
->pending_is_breakpoint
== 0)
281 fprintf (stderr
, "Checking for breakpoint.\n");
283 saved_inferior
= current_inferior
;
284 current_inferior
= get_process_thread (event_child
);
286 stop_pc
= get_stop_pc ();
288 /* If the PC has changed since we stopped, then we shouldn't do
289 anything. This happens if, for instance, GDB handled the
290 decr_pc_after_break subtraction itself. */
291 if (stop_pc
!= event_child
->pending_stop_pc
)
294 fprintf (stderr
, "Ignoring, PC was changed.\n");
296 event_child
->pending_is_breakpoint
= 0;
297 current_inferior
= saved_inferior
;
301 /* If the breakpoint is still there, we will report hitting it. */
302 if ((*the_low_target
.breakpoint_at
) (stop_pc
))
305 fprintf (stderr
, "Ignoring, breakpoint is still present.\n");
306 current_inferior
= saved_inferior
;
311 fprintf (stderr
, "Removed breakpoint.\n");
313 /* For decr_pc_after_break targets, here is where we perform the
314 decrement. We go immediately from this function to resuming,
315 and can not safely call get_stop_pc () again. */
316 if (the_low_target
.set_pc
!= NULL
)
317 (*the_low_target
.set_pc
) (stop_pc
);
319 /* We consumed the pending SIGTRAP. */
320 event_child
->status_pending_p
= 0;
321 event_child
->status_pending
= 0;
323 current_inferior
= saved_inferior
;
327 /* Return 1 if this process has an interesting status pending. This function
328 may silently resume an inferior process. */
330 status_pending_p (struct inferior_list_entry
*entry
, void *dummy
)
332 struct process_info
*process
= (struct process_info
*) entry
;
334 if (process
->status_pending_p
)
335 if (check_removed_breakpoint (process
))
337 /* This thread was stopped at a breakpoint, and the breakpoint
338 is now gone. We were told to continue (or step...) all threads,
339 so GDB isn't trying to single-step past this breakpoint.
340 So instead of reporting the old SIGTRAP, pretend we got to
341 the breakpoint just after it was removed instead of just
342 before; resume the process. */
343 linux_resume_one_process (&process
->head
, 0, 0);
347 return process
->status_pending_p
;
351 linux_wait_for_process (struct process_info
**childp
, int *wstatp
)
354 int to_wait_for
= -1;
357 to_wait_for
= (*childp
)->lwpid
;
361 ret
= waitpid (to_wait_for
, wstatp
, WNOHANG
);
366 perror_with_name ("waitpid");
371 ret
= waitpid (to_wait_for
, wstatp
, WNOHANG
| __WCLONE
);
376 perror_with_name ("waitpid (WCLONE)");
385 && (!WIFSTOPPED (*wstatp
)
386 || (WSTOPSIG (*wstatp
) != 32
387 && WSTOPSIG (*wstatp
) != 33)))
388 fprintf (stderr
, "Got an event from %d (%x)\n", ret
, *wstatp
);
390 if (to_wait_for
== -1)
391 *childp
= (struct process_info
*) find_inferior_id (&all_processes
, ret
);
393 (*childp
)->stopped
= 1;
394 (*childp
)->pending_is_breakpoint
= 0;
397 && WIFSTOPPED (*wstatp
))
399 current_inferior
= (struct thread_info
*)
400 find_inferior_id (&all_threads
, (*childp
)->tid
);
401 /* For testing only; i386_stop_pc prints out a diagnostic. */
402 if (the_low_target
.get_pc
!= NULL
)
408 linux_wait_for_event (struct thread_info
*child
)
411 struct process_info
*event_child
;
414 /* Check for a process with a pending status. */
415 /* It is possible that the user changed the pending task's registers since
416 it stopped. We correctly handle the change of PC if we hit a breakpoint
417 (in check_removed_breakpoint); signals should be reported anyway. */
420 event_child
= (struct process_info
*)
421 find_inferior (&all_processes
, status_pending_p
, NULL
);
422 if (debug_threads
&& event_child
)
423 fprintf (stderr
, "Got a pending child %d\n", event_child
->lwpid
);
427 event_child
= get_thread_process (child
);
428 if (event_child
->status_pending_p
429 && check_removed_breakpoint (event_child
))
433 if (event_child
!= NULL
)
435 if (event_child
->status_pending_p
)
438 fprintf (stderr
, "Got an event from pending child %d (%04x)\n",
439 event_child
->lwpid
, event_child
->status_pending
);
440 wstat
= event_child
->status_pending
;
441 event_child
->status_pending_p
= 0;
442 event_child
->status_pending
= 0;
443 current_inferior
= get_process_thread (event_child
);
448 /* We only enter this loop if no process has a pending wait status. Thus
449 any action taken in response to a wait status inside this loop is
450 responding as soon as we detect the status, not after any pending
457 event_child
= get_thread_process (child
);
459 linux_wait_for_process (&event_child
, &wstat
);
461 if (event_child
== NULL
)
462 error ("event from unknown child");
464 current_inferior
= (struct thread_info
*)
465 find_inferior_id (&all_threads
, event_child
->tid
);
469 /* Check for thread exit. */
470 if (! WIFSTOPPED (wstat
))
473 fprintf (stderr
, "Thread %d (LWP %d) exiting\n",
474 event_child
->tid
, event_child
->head
.id
);
476 /* If the last thread is exiting, just return. */
477 if (all_threads
.head
== all_threads
.tail
)
480 dead_thread_notify (event_child
->tid
);
482 remove_inferior (&all_processes
, &event_child
->head
);
484 remove_thread (current_inferior
);
485 current_inferior
= (struct thread_info
*) all_threads
.head
;
487 /* If we were waiting for this particular child to do something...
488 well, it did something. */
492 /* Wait for a more interesting event. */
496 if (WIFSTOPPED (wstat
)
497 && WSTOPSIG (wstat
) == SIGSTOP
498 && event_child
->stop_expected
)
501 fprintf (stderr
, "Expected stop.\n");
502 event_child
->stop_expected
= 0;
503 linux_resume_one_process (&event_child
->head
,
504 event_child
->stepping
, 0);
508 /* FIXME drow/2002-06-09: Get signal numbers from the inferior's
510 if (WIFSTOPPED (wstat
)
511 && (WSTOPSIG (wstat
) == __SIGRTMIN
512 || WSTOPSIG (wstat
) == __SIGRTMIN
+ 1))
515 fprintf (stderr
, "Ignored signal %d for %d (LWP %d).\n",
516 WSTOPSIG (wstat
), event_child
->tid
,
517 event_child
->head
.id
);
518 linux_resume_one_process (&event_child
->head
,
519 event_child
->stepping
,
525 /* If this event was not handled above, and is not a SIGTRAP, report
527 if (!WIFSTOPPED (wstat
) || WSTOPSIG (wstat
) != SIGTRAP
)
530 /* If this target does not support breakpoints, we simply report the
531 SIGTRAP; it's of no concern to us. */
532 if (the_low_target
.get_pc
== NULL
)
535 stop_pc
= get_stop_pc ();
537 /* bp_reinsert will only be set if we were single-stepping.
538 Notice that we will resume the process after hitting
539 a gdbserver breakpoint; single-stepping to/over one
540 is not supported (yet). */
541 if (event_child
->bp_reinsert
!= 0)
544 fprintf (stderr
, "Reinserted breakpoint.\n");
545 reinsert_breakpoint (event_child
->bp_reinsert
);
546 event_child
->bp_reinsert
= 0;
548 /* Clear the single-stepping flag and SIGTRAP as we resume. */
549 linux_resume_one_process (&event_child
->head
, 0, 0);
554 fprintf (stderr
, "Hit a (non-reinsert) breakpoint.\n");
556 if (check_breakpoints (stop_pc
) != 0)
558 /* We hit one of our own breakpoints. We mark it as a pending
559 breakpoint, so that check_removed_breakpoint () will do the PC
560 adjustment for us at the appropriate time. */
561 event_child
->pending_is_breakpoint
= 1;
562 event_child
->pending_stop_pc
= stop_pc
;
564 /* Now we need to put the breakpoint back. We continue in the event
565 loop instead of simply replacing the breakpoint right away,
566 in order to not lose signals sent to the thread that hit the
567 breakpoint. Unfortunately this increases the window where another
568 thread could sneak past the removed breakpoint. For the current
569 use of server-side breakpoints (thread creation) this is
570 acceptable; but it needs to be considered before this breakpoint
571 mechanism can be used in more general ways. For some breakpoints
572 it may be necessary to stop all other threads, but that should
573 be avoided where possible.
575 If breakpoint_reinsert_addr is NULL, that means that we can
576 use PTRACE_SINGLESTEP on this platform. Uninsert the breakpoint,
577 mark it for reinsertion, and single-step.
579 Otherwise, call the target function to figure out where we need
580 our temporary breakpoint, create it, and continue executing this
582 if (the_low_target
.breakpoint_reinsert_addr
== NULL
)
584 event_child
->bp_reinsert
= stop_pc
;
585 uninsert_breakpoint (stop_pc
);
586 linux_resume_one_process (&event_child
->head
, 1, 0);
590 reinsert_breakpoint_by_bp
591 (stop_pc
, (*the_low_target
.breakpoint_reinsert_addr
) ());
592 linux_resume_one_process (&event_child
->head
, 0, 0);
598 /* If we were single-stepping, we definitely want to report the
599 SIGTRAP. The single-step operation has completed, so also
600 clear the stepping flag; in general this does not matter,
601 because the SIGTRAP will be reported to the client, which
602 will give us a new action for this thread, but clear it for
603 consistency anyway. It's safe to clear the stepping flag
604 because the only consumer of get_stop_pc () after this point
605 is check_removed_breakpoint, and pending_is_breakpoint is not
606 set. It might be wiser to use a step_completed flag instead. */
607 if (event_child
->stepping
)
609 event_child
->stepping
= 0;
613 /* A SIGTRAP that we can't explain. It may have been a breakpoint.
614 Check if it is a breakpoint, and if so mark the process information
615 accordingly. This will handle both the necessary fiddling with the
616 PC on decr_pc_after_break targets and suppressing extra threads
617 hitting a breakpoint if two hit it at once and then GDB removes it
618 after the first is reported. Arguably it would be better to report
619 multiple threads hitting breakpoints simultaneously, but the current
620 remote protocol does not allow this. */
621 if ((*the_low_target
.breakpoint_at
) (stop_pc
))
623 event_child
->pending_is_breakpoint
= 1;
624 event_child
->pending_stop_pc
= stop_pc
;
634 /* Wait for process, returns status. */
637 linux_wait (char *status
)
640 struct thread_info
*child
= NULL
;
643 /* If we were only supposed to resume one thread, only wait for
644 that thread - if it's still alive. If it died, however - which
645 can happen if we're coming from the thread death case below -
646 then we need to make sure we restart the other threads. We could
647 pick a thread at random or restart all; restarting all is less
651 child
= (struct thread_info
*) find_inferior_id (&all_threads
,
654 /* No stepping, no signal - unless one is pending already, of course. */
660 w
= linux_wait_for_event (child
);
661 stop_all_processes ();
664 /* If we are waiting for a particular child, and it exited,
665 linux_wait_for_event will return its exit status. Similarly if
666 the last child exited. If this is not the last child, however,
667 do not report it as exited until there is a 'thread exited' response
668 available in the remote protocol. Instead, just wait for another event.
669 This should be safe, because if the thread crashed we will already
670 have reported the termination signal to GDB; that should stop any
671 in-progress stepping operations, etc.
673 Report the exit status of the last thread to exit. This matches
674 LinuxThreads' behavior. */
676 if (all_threads
.head
== all_threads
.tail
)
680 fprintf (stderr
, "\nChild exited with retcode = %x \n", WEXITSTATUS (w
));
683 return ((unsigned char) WEXITSTATUS (w
));
685 else if (!WIFSTOPPED (w
))
687 fprintf (stderr
, "\nChild terminated with signal = %x \n", WTERMSIG (w
));
690 return ((unsigned char) WTERMSIG (w
));
700 return ((unsigned char) WSTOPSIG (w
));
704 send_sigstop (struct inferior_list_entry
*entry
)
706 struct process_info
*process
= (struct process_info
*) entry
;
708 if (process
->stopped
)
711 /* If we already have a pending stop signal for this process, don't
713 if (process
->stop_expected
)
715 process
->stop_expected
= 0;
720 fprintf (stderr
, "Sending sigstop to process %d\n", process
->head
.id
);
722 kill (process
->head
.id
, SIGSTOP
);
723 process
->sigstop_sent
= 1;
727 wait_for_sigstop (struct inferior_list_entry
*entry
)
729 struct process_info
*process
= (struct process_info
*) entry
;
730 struct thread_info
*saved_inferior
, *thread
;
731 int wstat
, saved_tid
;
733 if (process
->stopped
)
736 saved_inferior
= current_inferior
;
737 saved_tid
= ((struct inferior_list_entry
*) saved_inferior
)->id
;
738 thread
= (struct thread_info
*) find_inferior_id (&all_threads
,
740 wstat
= linux_wait_for_event (thread
);
742 /* If we stopped with a non-SIGSTOP signal, save it for later
743 and record the pending SIGSTOP. If the process exited, just
745 if (WIFSTOPPED (wstat
)
746 && WSTOPSIG (wstat
) != SIGSTOP
)
749 fprintf (stderr
, "Stopped with non-sigstop signal\n");
750 process
->status_pending_p
= 1;
751 process
->status_pending
= wstat
;
752 process
->stop_expected
= 1;
755 if (linux_thread_alive (saved_tid
))
756 current_inferior
= saved_inferior
;
760 fprintf (stderr
, "Previously current thread died.\n");
762 /* Set a valid thread as current. */
763 set_desired_inferior (0);
768 stop_all_processes (void)
770 stopping_threads
= 1;
771 for_each_inferior (&all_processes
, send_sigstop
);
772 for_each_inferior (&all_processes
, wait_for_sigstop
);
773 stopping_threads
= 0;
776 /* Resume execution of the inferior process.
777 If STEP is nonzero, single-step it.
778 If SIGNAL is nonzero, give it that signal. */
781 linux_resume_one_process (struct inferior_list_entry
*entry
,
782 int step
, int signal
)
784 struct process_info
*process
= (struct process_info
*) entry
;
785 struct thread_info
*saved_inferior
;
787 if (process
->stopped
== 0)
790 /* If we have pending signals or status, and a new signal, enqueue the
791 signal. Also enqueue the signal if we are waiting to reinsert a
792 breakpoint; it will be picked up again below. */
794 && (process
->status_pending_p
|| process
->pending_signals
!= NULL
795 || process
->bp_reinsert
!= 0))
797 struct pending_signals
*p_sig
;
798 p_sig
= malloc (sizeof (*p_sig
));
799 p_sig
->prev
= process
->pending_signals
;
800 p_sig
->signal
= signal
;
801 process
->pending_signals
= p_sig
;
804 if (process
->status_pending_p
&& !check_removed_breakpoint (process
))
807 saved_inferior
= current_inferior
;
808 current_inferior
= get_process_thread (process
);
811 fprintf (stderr
, "Resuming process %d (%s, signal %d, stop %s)\n", inferior_pid
,
812 step
? "step" : "continue", signal
,
813 process
->stop_expected
? "expected" : "not expected");
815 /* This bit needs some thinking about. If we get a signal that
816 we must report while a single-step reinsert is still pending,
817 we often end up resuming the thread. It might be better to
818 (ew) allow a stack of pending events; then we could be sure that
819 the reinsert happened right away and not lose any signals.
821 Making this stack would also shrink the window in which breakpoints are
822 uninserted (see comment in linux_wait_for_process) but not enough for
823 complete correctness, so it won't solve that problem. It may be
824 worthwhile just to solve this one, however. */
825 if (process
->bp_reinsert
!= 0)
828 fprintf (stderr
, " pending reinsert at %08lx", (long)process
->bp_reinsert
);
830 fprintf (stderr
, "BAD - reinserting but not stepping.\n");
833 /* Postpone any pending signal. It was enqueued above. */
837 check_removed_breakpoint (process
);
839 if (debug_threads
&& the_low_target
.get_pc
!= NULL
)
841 fprintf (stderr
, " ");
842 (long) (*the_low_target
.get_pc
) ();
845 /* If we have pending signals, consume one unless we are trying to reinsert
847 if (process
->pending_signals
!= NULL
&& process
->bp_reinsert
== 0)
849 struct pending_signals
**p_sig
;
851 p_sig
= &process
->pending_signals
;
852 while ((*p_sig
)->prev
!= NULL
)
853 p_sig
= &(*p_sig
)->prev
;
855 signal
= (*p_sig
)->signal
;
860 regcache_invalidate_one ((struct inferior_list_entry
*)
861 get_process_thread (process
));
863 process
->stopped
= 0;
864 process
->stepping
= step
;
865 ptrace (step
? PTRACE_SINGLESTEP
: PTRACE_CONT
, process
->lwpid
, 0, signal
);
867 current_inferior
= saved_inferior
;
869 perror_with_name ("ptrace");
872 /* This function is called once per process other than the first
873 one. The first process we are told the signal to continue
874 with, and whether to step or continue; for all others, any
875 existing signals will be marked in status_pending_p to be
876 reported momentarily, and we preserve the stepping flag. */
878 linux_continue_one_process (struct inferior_list_entry
*entry
)
880 struct process_info
*process
;
882 process
= (struct process_info
*) entry
;
883 linux_resume_one_process (entry
, process
->stepping
, 0);
887 linux_resume (int step
, int signal
)
889 struct process_info
*process
;
891 process
= get_thread_process (current_inferior
);
893 /* If the current process has a status pending, this signal will
894 be enqueued and sent later. */
895 linux_resume_one_process (&process
->head
, step
, signal
);
897 if (cont_thread
== 0 || cont_thread
== -1)
898 for_each_inferior (&all_processes
, linux_continue_one_process
);
901 #ifdef HAVE_LINUX_USRREGS
904 register_addr (int regnum
)
908 if (regnum
< 0 || regnum
>= the_low_target
.num_regs
)
909 error ("Invalid register number %d.", regnum
);
911 addr
= the_low_target
.regmap
[regnum
];
916 /* Fetch one register. */
918 fetch_register (int regno
)
924 if (regno
>= the_low_target
.num_regs
)
926 if ((*the_low_target
.cannot_fetch_register
) (regno
))
929 regaddr
= register_addr (regno
);
932 buf
= alloca (register_size (regno
));
933 for (i
= 0; i
< register_size (regno
); i
+= sizeof (PTRACE_XFER_TYPE
))
936 *(PTRACE_XFER_TYPE
*) (buf
+ i
) =
937 ptrace (PTRACE_PEEKUSER
, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
, 0);
938 regaddr
+= sizeof (PTRACE_XFER_TYPE
);
941 /* Warning, not error, in case we are attached; sometimes the
942 kernel doesn't let us at the registers. */
943 char *err
= strerror (errno
);
944 char *msg
= alloca (strlen (err
) + 128);
945 sprintf (msg
, "reading register %d: %s", regno
, err
);
950 supply_register (regno
, buf
);
955 /* Fetch all registers, or just one, from the child process. */
957 usr_fetch_inferior_registers (int regno
)
959 if (regno
== -1 || regno
== 0)
960 for (regno
= 0; regno
< the_low_target
.num_regs
; regno
++)
961 fetch_register (regno
);
963 fetch_register (regno
);
966 /* Store our register values back into the inferior.
967 If REGNO is -1, do this for all registers.
968 Otherwise, REGNO specifies which register (so we can save time). */
970 usr_store_inferior_registers (int regno
)
978 if (regno
>= the_low_target
.num_regs
)
981 if ((*the_low_target
.cannot_store_register
) (regno
) == 1)
984 regaddr
= register_addr (regno
);
988 buf
= alloca (register_size (regno
));
989 collect_register (regno
, buf
);
990 for (i
= 0; i
< register_size (regno
); i
+= sizeof (PTRACE_XFER_TYPE
))
993 ptrace (PTRACE_POKEUSER
, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
,
994 *(PTRACE_XFER_TYPE
*) (buf
+ i
));
997 if ((*the_low_target
.cannot_store_register
) (regno
) == 0)
999 char *err
= strerror (errno
);
1000 char *msg
= alloca (strlen (err
) + 128);
1001 sprintf (msg
, "writing register %d: %s",
1007 regaddr
+= sizeof (PTRACE_XFER_TYPE
);
1011 for (regno
= 0; regno
< the_low_target
.num_regs
; regno
++)
1012 usr_store_inferior_registers (regno
);
1014 #endif /* HAVE_LINUX_USRREGS */
1018 #ifdef HAVE_LINUX_REGSETS
1021 regsets_fetch_inferior_registers ()
1023 struct regset_info
*regset
;
1025 regset
= target_regsets
;
1027 while (regset
->size
>= 0)
1032 if (regset
->size
== 0)
1038 buf
= malloc (regset
->size
);
1039 res
= ptrace (regset
->get_request
, inferior_pid
, 0, buf
);
1044 /* If we get EIO on the first regset, do not try regsets again.
1045 If we get EIO on a later regset, disable that regset. */
1046 if (regset
== target_regsets
)
1060 sprintf (s
, "ptrace(regsets_fetch_inferior_registers) PID=%d",
1065 regset
->store_function (buf
);
1072 regsets_store_inferior_registers ()
1074 struct regset_info
*regset
;
1076 regset
= target_regsets
;
1078 while (regset
->size
>= 0)
1083 if (regset
->size
== 0)
1089 buf
= malloc (regset
->size
);
1090 regset
->fill_function (buf
);
1091 res
= ptrace (regset
->set_request
, inferior_pid
, 0, buf
);
1096 /* If we get EIO on the first regset, do not try regsets again.
1097 If we get EIO on a later regset, disable that regset. */
1098 if (regset
== target_regsets
)
1111 perror ("Warning: ptrace(regsets_store_inferior_registers)");
1120 #endif /* HAVE_LINUX_REGSETS */
1124 linux_fetch_registers (int regno
)
1126 #ifdef HAVE_LINUX_REGSETS
1129 if (regsets_fetch_inferior_registers () == 0)
1133 #ifdef HAVE_LINUX_USRREGS
1134 usr_fetch_inferior_registers (regno
);
1139 linux_store_registers (int regno
)
1141 #ifdef HAVE_LINUX_REGSETS
1144 if (regsets_store_inferior_registers () == 0)
1148 #ifdef HAVE_LINUX_USRREGS
1149 usr_store_inferior_registers (regno
);
1154 /* Copy LEN bytes from inferior's memory starting at MEMADDR
1155 to debugger memory starting at MYADDR. */
1158 linux_read_memory (CORE_ADDR memaddr
, char *myaddr
, int len
)
1161 /* Round starting address down to longword boundary. */
1162 register CORE_ADDR addr
= memaddr
& -(CORE_ADDR
) sizeof (PTRACE_XFER_TYPE
);
1163 /* Round ending address up; get number of longwords that makes. */
1165 = (((memaddr
+ len
) - addr
) + sizeof (PTRACE_XFER_TYPE
) - 1)
1166 / sizeof (PTRACE_XFER_TYPE
);
1167 /* Allocate buffer of that many longwords. */
1168 register PTRACE_XFER_TYPE
*buffer
1169 = (PTRACE_XFER_TYPE
*) alloca (count
* sizeof (PTRACE_XFER_TYPE
));
1171 /* Read all the longwords */
1172 for (i
= 0; i
< count
; i
++, addr
+= sizeof (PTRACE_XFER_TYPE
))
1174 buffer
[i
] = ptrace (PTRACE_PEEKTEXT
, inferior_pid
, (PTRACE_ARG3_TYPE
) addr
, 0);
1177 /* Copy appropriate bytes out of the buffer. */
1178 memcpy (myaddr
, (char *) buffer
+ (memaddr
& (sizeof (PTRACE_XFER_TYPE
) - 1)), len
);
1181 /* Copy LEN bytes of data from debugger memory at MYADDR
1182 to inferior's memory at MEMADDR.
1183 On failure (cannot write the inferior)
1184 returns the value of errno. */
1187 linux_write_memory (CORE_ADDR memaddr
, const char *myaddr
, int len
)
1190 /* Round starting address down to longword boundary. */
1191 register CORE_ADDR addr
= memaddr
& -(CORE_ADDR
) sizeof (PTRACE_XFER_TYPE
);
1192 /* Round ending address up; get number of longwords that makes. */
1194 = (((memaddr
+ len
) - addr
) + sizeof (PTRACE_XFER_TYPE
) - 1) / sizeof (PTRACE_XFER_TYPE
);
1195 /* Allocate buffer of that many longwords. */
1196 register PTRACE_XFER_TYPE
*buffer
= (PTRACE_XFER_TYPE
*) alloca (count
* sizeof (PTRACE_XFER_TYPE
));
1201 fprintf (stderr
, "Writing %02x to %08lx\n", (unsigned)myaddr
[0], (long)memaddr
);
1204 /* Fill start and end extra bytes of buffer with existing memory data. */
1206 buffer
[0] = ptrace (PTRACE_PEEKTEXT
, inferior_pid
,
1207 (PTRACE_ARG3_TYPE
) addr
, 0);
1212 = ptrace (PTRACE_PEEKTEXT
, inferior_pid
,
1213 (PTRACE_ARG3_TYPE
) (addr
+ (count
- 1)
1214 * sizeof (PTRACE_XFER_TYPE
)),
1218 /* Copy data to be written over corresponding part of buffer */
1220 memcpy ((char *) buffer
+ (memaddr
& (sizeof (PTRACE_XFER_TYPE
) - 1)), myaddr
, len
);
1222 /* Write the entire buffer. */
1224 for (i
= 0; i
< count
; i
++, addr
+= sizeof (PTRACE_XFER_TYPE
))
1227 ptrace (PTRACE_POKETEXT
, inferior_pid
, (PTRACE_ARG3_TYPE
) addr
, buffer
[i
]);
1236 linux_look_up_symbols (void)
1238 #ifdef USE_THREAD_DB
1242 using_threads
= thread_db_init ();
1247 linux_send_signal (int signum
)
1249 extern int signal_pid
;
1251 if (cont_thread
> 0)
1253 struct process_info
*process
;
1255 process
= get_thread_process (current_inferior
);
1256 kill (process
->lwpid
, signum
);
1259 kill (signal_pid
, signum
);
1263 static struct target_ops linux_target_ops
= {
1264 linux_create_inferior
,
1271 linux_fetch_registers
,
1272 linux_store_registers
,
1275 linux_look_up_symbols
,
1280 linux_init_signals ()
1282 /* FIXME drow/2002-06-09: As above, we should check with LinuxThreads
1283 to find what the cancel signal actually is. */
1284 signal (__SIGRTMIN
+1, SIG_IGN
);
1288 initialize_low (void)
1291 set_target_ops (&linux_target_ops
);
1292 set_breakpoint_data (the_low_target
.breakpoint
,
1293 the_low_target
.breakpoint_len
);
1295 linux_init_signals ();