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);
152 execv (program, allargs);
154 fprintf (stderr, "Cannot exec %s: %s.\n", program,
160 new_process = add_process (pid);
161 add_thread (pid, new_process);
166 /* Attach to an inferior process. */
169 linux_attach_lwp (int pid, int tid)
171 struct process_info *new_process;
173 if (ptrace (PTRACE_ATTACH, pid, 0, 0) != 0)
175 fprintf (stderr, "Cannot attach to process %d: %s (%d)\n", pid,
176 errno < sys_nerr ? sys_errlist[errno] : "unknown error",
180 /* If we fail to attach to an LWP, just return. */
186 new_process = (struct process_info *) add_process (pid);
187 add_thread (tid, new_process);
189 /* The next time we wait for this LWP we'll see a SIGSTOP as PTRACE_ATTACH
190 brings it to a halt. We should ignore that SIGSTOP and resume the process
191 (unless this is the first process, in which case the flag will be cleared
194 On the other hand, if we are currently trying to stop all threads, we
195 should treat the new thread as if we had sent it a SIGSTOP. This works
196 because we are guaranteed that add_process added us to the end of the
197 list, and so the new thread has not yet reached wait_for_sigstop (but
199 if (! stopping_threads)
200 new_process->stop_expected = 1;
204 linux_attach (int pid)
206 struct process_info *process;
208 linux_attach_lwp (pid, pid);
210 /* Don't ignore the initial SIGSTOP if we just attached to this process. */
211 process = (struct process_info *) find_inferior_id (&all_processes, pid);
212 process->stop_expected = 0;
217 /* Kill the inferior process. Make us have no inferior. */
220 linux_kill_one_process (struct inferior_list_entry *entry)
222 struct thread_info *thread = (struct thread_info *) entry;
223 struct process_info *process = get_thread_process (thread);
228 ptrace (PTRACE_KILL, pid_of (process), 0, 0);
230 /* Make sure it died. The loop is most likely unnecessary. */
231 wstat = linux_wait_for_event (thread);
232 } while (WIFSTOPPED (wstat));
235 /* Return nonzero if the given thread is still alive. */
239 for_each_inferior (&all_threads, linux_kill_one_process);
243 linux_thread_alive (int tid)
245 if (find_inferior_id (&all_threads, tid) != NULL)
251 /* Return nonzero if this process stopped at a breakpoint which
252 no longer appears to be inserted. Also adjust the PC
253 appropriately to resume where the breakpoint used to be. */
255 check_removed_breakpoint (struct process_info *event_child)
258 struct thread_info *saved_inferior;
260 if (event_child->pending_is_breakpoint == 0)
264 fprintf (stderr, "Checking for breakpoint.\n");
266 saved_inferior = current_inferior;
267 current_inferior = get_process_thread (event_child);
269 stop_pc = get_stop_pc ();
271 /* If the PC has changed since we stopped, then we shouldn't do
272 anything. This happens if, for instance, GDB handled the
273 decr_pc_after_break subtraction itself. */
274 if (stop_pc != event_child->pending_stop_pc)
277 fprintf (stderr, "Ignoring, PC was changed.\n");
279 event_child->pending_is_breakpoint = 0;
280 current_inferior = saved_inferior;
284 /* If the breakpoint is still there, we will report hitting it. */
285 if ((*the_low_target.breakpoint_at) (stop_pc))
288 fprintf (stderr, "Ignoring, breakpoint is still present.\n");
289 current_inferior = saved_inferior;
294 fprintf (stderr, "Removed breakpoint.\n");
296 /* For decr_pc_after_break targets, here is where we perform the
297 decrement. We go immediately from this function to resuming,
298 and can not safely call get_stop_pc () again. */
299 if (the_low_target.set_pc != NULL)
300 (*the_low_target.set_pc) (stop_pc);
302 /* We consumed the pending SIGTRAP. */
303 event_child->status_pending_p = 0;
304 event_child->status_pending = 0;
306 current_inferior = saved_inferior;
310 /* Return 1 if this process has an interesting status pending. This function
311 may silently resume an inferior process. */
313 status_pending_p (struct inferior_list_entry *entry, void *dummy)
315 struct process_info *process = (struct process_info *) entry;
317 if (process->status_pending_p)
318 if (check_removed_breakpoint (process))
320 /* This thread was stopped at a breakpoint, and the breakpoint
321 is now gone. We were told to continue (or step...) all threads,
322 so GDB isn't trying to single-step past this breakpoint.
323 So instead of reporting the old SIGTRAP, pretend we got to
324 the breakpoint just after it was removed instead of just
325 before; resume the process. */
326 linux_resume_one_process (&process->head, 0, 0);
330 return process->status_pending_p;
334 linux_wait_for_process (struct process_info **childp, int *wstatp)
337 int to_wait_for = -1;
340 to_wait_for = (*childp)->lwpid;
344 ret = waitpid (to_wait_for, wstatp, WNOHANG);
349 perror_with_name ("waitpid");
354 ret = waitpid (to_wait_for, wstatp, WNOHANG | __WCLONE);
359 perror_with_name ("waitpid (WCLONE)");
368 && (!WIFSTOPPED (*wstatp)
369 || (WSTOPSIG (*wstatp) != 32
370 && WSTOPSIG (*wstatp) != 33)))
371 fprintf (stderr, "Got an event from %d (%x)\n", ret, *wstatp);
373 if (to_wait_for == -1)
374 *childp = (struct process_info *) find_inferior_id (&all_processes, ret);
376 (*childp)->stopped = 1;
377 (*childp)->pending_is_breakpoint = 0;
380 && WIFSTOPPED (*wstatp))
382 current_inferior = (struct thread_info *)
383 find_inferior_id (&all_threads, (*childp)->tid);
384 /* For testing only; i386_stop_pc prints out a diagnostic. */
385 if (the_low_target.get_pc != NULL)
391 linux_wait_for_event (struct thread_info *child)
394 struct process_info *event_child;
397 /* Check for a process with a pending status. */
398 /* It is possible that the user changed the pending task's registers since
399 it stopped. We correctly handle the change of PC if we hit a breakpoint
400 (in check_removed_breakpoints); signals should be reported anyway. */
403 event_child = (struct process_info *)
404 find_inferior (&all_processes, status_pending_p, NULL);
405 if (debug_threads && event_child)
406 fprintf (stderr, "Got a pending child %d\n", event_child->lwpid);
410 event_child = get_thread_process (child);
411 if (event_child->status_pending_p
412 && check_removed_breakpoint (event_child))
416 if (event_child != NULL)
418 if (event_child->status_pending_p)
421 fprintf (stderr, "Got an event from pending child %d (%04x)\n",
422 event_child->lwpid, event_child->status_pending);
423 wstat = event_child->status_pending;
424 event_child->status_pending_p = 0;
425 event_child->status_pending = 0;
426 current_inferior = get_process_thread (event_child);
431 /* We only enter this loop if no process has a pending wait status. Thus
432 any action taken in response to a wait status inside this loop is
433 responding as soon as we detect the status, not after any pending
440 event_child = get_thread_process (child);
442 linux_wait_for_process (&event_child, &wstat);
444 if (event_child == NULL)
445 error ("event from unknown child");
447 current_inferior = (struct thread_info *)
448 find_inferior_id (&all_threads, event_child->tid);
452 /* Check for thread exit. */
453 if (! WIFSTOPPED (wstat))
456 fprintf (stderr, "Thread %d (LWP %d) exiting\n",
457 event_child->tid, event_child->head.id);
459 /* If the last thread is exiting, just return. */
460 if (all_threads.head == all_threads.tail)
463 dead_thread_notify (event_child->tid);
465 remove_inferior (&all_processes, &event_child->head);
467 remove_thread (current_inferior);
468 current_inferior = (struct thread_info *) all_threads.head;
470 /* If we were waiting for this particular child to do something...
471 well, it did something. */
475 /* Wait for a more interesting event. */
479 if (WIFSTOPPED (wstat)
480 && WSTOPSIG (wstat) == SIGSTOP
481 && event_child->stop_expected)
484 fprintf (stderr, "Expected stop.\n");
485 event_child->stop_expected = 0;
486 linux_resume_one_process (&event_child->head,
487 event_child->stepping, 0);
491 /* FIXME drow/2002-06-09: Get signal numbers from the inferior's
493 if (WIFSTOPPED (wstat)
494 && (WSTOPSIG (wstat) == SIGRTMIN
495 || WSTOPSIG (wstat) == SIGRTMIN + 1))
498 fprintf (stderr, "Ignored signal %d for %d (LWP %d).\n",
499 WSTOPSIG (wstat), event_child->tid,
500 event_child->head.id);
501 linux_resume_one_process (&event_child->head,
502 event_child->stepping,
508 /* If this event was not handled above, and is not a SIGTRAP, report
510 if (!WIFSTOPPED (wstat) || WSTOPSIG (wstat) != SIGTRAP)
513 /* If this target does not support breakpoints, we simply report the
514 SIGTRAP; it's of no concern to us. */
515 if (the_low_target.get_pc == NULL)
518 stop_pc = get_stop_pc ();
520 /* bp_reinsert will only be set if we were single-stepping.
521 Notice that we will resume the process after hitting
522 a gdbserver breakpoint; single-stepping to/over one
523 is not supported (yet). */
524 if (event_child->bp_reinsert != 0)
527 fprintf (stderr, "Reinserted breakpoint.\n");
528 reinsert_breakpoint (event_child->bp_reinsert);
529 event_child->bp_reinsert = 0;
531 /* Clear the single-stepping flag and SIGTRAP as we resume. */
532 linux_resume_one_process (&event_child->head, 0, 0);
537 fprintf (stderr, "Hit a (non-reinsert) breakpoint.\n");
539 if (check_breakpoints (stop_pc) != 0)
541 /* We hit one of our own breakpoints. We mark it as a pending
542 breakpoint, so that check_removed_breakpoints () will do the PC
543 adjustment for us at the appropriate time. */
544 event_child->pending_is_breakpoint = 1;
545 event_child->pending_stop_pc = stop_pc;
547 /* Now we need to put the breakpoint back. We continue in the event
548 loop instead of simply replacing the breakpoint right away,
549 in order to not lose signals sent to the thread that hit the
550 breakpoint. Unfortunately this increases the window where another
551 thread could sneak past the removed breakpoint. For the current
552 use of server-side breakpoints (thread creation) this is
553 acceptable; but it needs to be considered before this breakpoint
554 mechanism can be used in more general ways. For some breakpoints
555 it may be necessary to stop all other threads, but that should
556 be avoided where possible.
558 If breakpoint_reinsert_addr is NULL, that means that we can
559 use PTRACE_SINGLESTEP on this platform. Uninsert the breakpoint,
560 mark it for reinsertion, and single-step.
562 Otherwise, call the target function to figure out where we need
563 our temporary breakpoint, create it, and continue executing this
565 if (the_low_target.breakpoint_reinsert_addr == NULL)
567 event_child->bp_reinsert = stop_pc;
568 uninsert_breakpoint (stop_pc);
569 linux_resume_one_process (&event_child->head, 1, 0);
573 reinsert_breakpoint_by_bp
574 (stop_pc, (*the_low_target.breakpoint_reinsert_addr) ());
575 linux_resume_one_process (&event_child->head, 0, 0);
581 /* If we were single-stepping, we definitely want to report the
582 SIGTRAP. The single-step operation has completed, so also
583 clear the stepping flag; in general this does not matter,
584 because the SIGTRAP will be reported to the client, which
585 will give us a new action for this thread, but clear it for
586 consistency anyway. It's safe to clear the stepping flag
587 because the only consumer of get_stop_pc () after this point
588 is check_removed_breakpoints, and pending_is_breakpoint is not
589 set. It might be wiser to use a step_completed flag instead. */
590 if (event_child->stepping)
592 event_child->stepping = 0;
596 /* A SIGTRAP that we can't explain. It may have been a breakpoint.
597 Check if it is a breakpoint, and if so mark the process information
598 accordingly. This will handle both the necessary fiddling with the
599 PC on decr_pc_after_break targets and suppressing extra threads
600 hitting a breakpoint if two hit it at once and then GDB removes it
601 after the first is reported. Arguably it would be better to report
602 multiple threads hitting breakpoints simultaneously, but the current
603 remote protocol does not allow this. */
604 if ((*the_low_target.breakpoint_at) (stop_pc))
606 event_child->pending_is_breakpoint = 1;
607 event_child->pending_stop_pc = stop_pc;
617 /* Wait for process, returns status. */
620 linux_wait (char *status)
623 struct thread_info *child = NULL;
626 /* If we were only supposed to resume one thread, only wait for
627 that thread - if it's still alive. If it died, however - which
628 can happen if we're coming from the thread death case below -
629 then we need to make sure we restart the other threads. We could
630 pick a thread at random or restart all; restarting all is less
634 child = (struct thread_info *) find_inferior_id (&all_threads,
637 /* No stepping, no signal - unless one is pending already, of course. */
643 w = linux_wait_for_event (child);
644 stop_all_processes ();
647 /* If we are waiting for a particular child, and it exited,
648 linux_wait_for_event will return its exit status. Similarly if
649 the last child exited. If this is not the last child, however,
650 do not report it as exited until there is a 'thread exited' response
651 available in the remote protocol. Instead, just wait for another event.
652 This should be safe, because if the thread crashed we will already
653 have reported the termination signal to GDB; that should stop any
654 in-progress stepping operations, etc.
656 Report the exit status of the last thread to exit. This matches
657 LinuxThreads' behavior. */
659 if (all_threads.head == all_threads.tail)
663 fprintf (stderr, "\nChild exited with retcode = %x \n", WEXITSTATUS (w));
666 return ((unsigned char) WEXITSTATUS (w));
668 else if (!WIFSTOPPED (w))
670 fprintf (stderr, "\nChild terminated with signal = %x \n", WTERMSIG (w));
673 return ((unsigned char) WTERMSIG (w));
683 return ((unsigned char) WSTOPSIG (w));
687 send_sigstop (struct inferior_list_entry *entry)
689 struct process_info *process = (struct process_info *) entry;
691 if (process->stopped)
694 /* If we already have a pending stop signal for this process, don't
696 if (process->stop_expected)
698 process->stop_expected = 0;
703 fprintf (stderr, "Sending sigstop to process %d\n", process->head.id);
705 kill (process->head.id, SIGSTOP);
706 process->sigstop_sent = 1;
710 wait_for_sigstop (struct inferior_list_entry *entry)
712 struct process_info *process = (struct process_info *) entry;
713 struct thread_info *saved_inferior, *thread;
714 int wstat, saved_tid;
716 if (process->stopped)
719 saved_inferior = current_inferior;
720 saved_tid = ((struct inferior_list_entry *) saved_inferior)->id;
721 thread = (struct thread_info *) find_inferior_id (&all_threads,
723 wstat = linux_wait_for_event (thread);
725 /* If we stopped with a non-SIGSTOP signal, save it for later
726 and record the pending SIGSTOP. If the process exited, just
728 if (WIFSTOPPED (wstat)
729 && WSTOPSIG (wstat) != SIGSTOP)
732 fprintf (stderr, "Stopped with non-sigstop signal\n");
733 process->status_pending_p = 1;
734 process->status_pending = wstat;
735 process->stop_expected = 1;
738 if (linux_thread_alive (saved_tid))
739 current_inferior = saved_inferior;
743 fprintf (stderr, "Previously current thread died.\n");
745 /* Set a valid thread as current. */
746 set_desired_inferior (0);
751 stop_all_processes (void)
753 stopping_threads = 1;
754 for_each_inferior (&all_processes, send_sigstop);
755 for_each_inferior (&all_processes, wait_for_sigstop);
756 stopping_threads = 0;
759 /* Resume execution of the inferior process.
760 If STEP is nonzero, single-step it.
761 If SIGNAL is nonzero, give it that signal. */
764 linux_resume_one_process (struct inferior_list_entry *entry,
765 int step, int signal)
767 struct process_info *process = (struct process_info *) entry;
768 struct thread_info *saved_inferior;
770 if (process->stopped == 0)
773 /* If we have pending signals or status, and a new signal, enqueue the
774 signal. Also enqueue the signal if we are waiting to reinsert a
775 breakpoint; it will be picked up again below. */
777 && (process->status_pending_p || process->pending_signals != NULL
778 || process->bp_reinsert != 0))
780 struct pending_signals *p_sig;
781 p_sig = malloc (sizeof (*p_sig));
782 p_sig->prev = process->pending_signals;
783 p_sig->signal = signal;
784 process->pending_signals = p_sig;
787 if (process->status_pending_p)
790 saved_inferior = current_inferior;
791 current_inferior = get_process_thread (process);
794 fprintf (stderr, "Resuming process %d (%s, signal %d, stop %s)\n", inferior_pid,
795 step ? "step" : "continue", signal,
796 process->stop_expected ? "expected" : "not expected");
798 /* This bit needs some thinking about. If we get a signal that
799 we must report while a single-step reinsert is still pending,
800 we often end up resuming the thread. It might be better to
801 (ew) allow a stack of pending events; then we could be sure that
802 the reinsert happened right away and not lose any signals.
804 Making this stack would also shrink the window in which breakpoints are
805 uninserted (see comment in linux_wait_for_process) but not enough for
806 complete correctness, so it won't solve that problem. It may be
807 worthwhile just to solve this one, however. */
808 if (process->bp_reinsert != 0)
811 fprintf (stderr, " pending reinsert at %08lx", (long)process->bp_reinsert);
813 fprintf (stderr, "BAD - reinserting but not stepping.\n");
816 /* Postpone any pending signal. It was enqueued above. */
820 check_removed_breakpoint (process);
822 if (debug_threads && the_low_target.get_pc != NULL)
824 fprintf (stderr, " ");
825 (long) (*the_low_target.get_pc) ();
828 /* If we have pending signals, consume one unless we are trying to reinsert
830 if (process->pending_signals != NULL && process->bp_reinsert == 0)
832 struct pending_signals **p_sig;
834 p_sig = &process->pending_signals;
835 while ((*p_sig)->prev != NULL)
836 p_sig = &(*p_sig)->prev;
838 signal = (*p_sig)->signal;
843 regcache_invalidate_one ((struct inferior_list_entry *)
844 get_process_thread (process));
846 process->stopped = 0;
847 process->stepping = step;
848 ptrace (step ? PTRACE_SINGLESTEP : PTRACE_CONT, process->lwpid, 0, signal);
850 current_inferior = saved_inferior;
852 perror_with_name ("ptrace");
855 /* This function is called once per process other than the first
856 one. The first process we are told the signal to continue
857 with, and whether to step or continue; for all others, any
858 existing signals will be marked in status_pending_p to be
859 reported momentarily, and we preserve the stepping flag. */
861 linux_continue_one_process (struct inferior_list_entry *entry)
863 struct process_info *process;
865 process = (struct process_info *) entry;
866 linux_resume_one_process (entry, process->stepping, 0);
870 linux_resume (int step, int signal)
872 struct process_info *process;
874 process = get_thread_process (current_inferior);
876 /* If the current process has a status pending, this signal will
877 be enqueued and sent later. */
878 linux_resume_one_process (&process->head, step, signal);
880 if (cont_thread == 0 || cont_thread == -1)
881 for_each_inferior (&all_processes, linux_continue_one_process);
884 #ifdef HAVE_LINUX_USRREGS
887 register_addr (int regnum)
891 if (regnum < 0 || regnum >= the_low_target.num_regs)
892 error ("Invalid register number %d.", regnum);
894 addr = the_low_target.regmap[regnum];
901 /* Fetch one register. */
903 fetch_register (int regno)
909 if (regno >= the_low_target.num_regs)
911 if ((*the_low_target.cannot_fetch_register) (regno))
914 regaddr = register_addr (regno);
917 buf = alloca (register_size (regno));
918 for (i = 0; i < register_size (regno); i += sizeof (PTRACE_XFER_TYPE))
921 *(PTRACE_XFER_TYPE *) (buf + i) =
922 ptrace (PTRACE_PEEKUSER, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, 0);
923 regaddr += sizeof (PTRACE_XFER_TYPE);
926 /* Warning, not error, in case we are attached; sometimes the
927 kernel doesn't let us at the registers. */
928 char *err = strerror (errno);
929 char *msg = alloca (strlen (err) + 128);
930 sprintf (msg, "reading register %d: %s", regno, err);
935 supply_register (regno, buf);
940 /* Fetch all registers, or just one, from the child process. */
942 usr_fetch_inferior_registers (int regno)
944 if (regno == -1 || regno == 0)
945 for (regno = 0; regno < the_low_target.num_regs; regno++)
946 fetch_register (regno);
948 fetch_register (regno);
951 /* Store our register values back into the inferior.
952 If REGNO is -1, do this for all registers.
953 Otherwise, REGNO specifies which register (so we can save time). */
955 usr_store_inferior_registers (int regno)
963 if (regno >= the_low_target.num_regs)
966 if ((*the_low_target.cannot_store_register) (regno) == 1)
969 regaddr = register_addr (regno);
973 buf = alloca (register_size (regno));
974 collect_register (regno, buf);
975 for (i = 0; i < register_size (regno); i += sizeof (PTRACE_XFER_TYPE))
978 ptrace (PTRACE_POKEUSER, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
982 if ((*the_low_target.cannot_store_register) (regno) == 0)
984 char *err = strerror (errno);
985 char *msg = alloca (strlen (err) + 128);
986 sprintf (msg, "writing register %d: %s",
992 regaddr += sizeof (int);
996 for (regno = 0; regno < the_low_target.num_regs; regno++)
997 usr_store_inferior_registers (regno);
999 #endif /* HAVE_LINUX_USRREGS */
1003 #ifdef HAVE_LINUX_REGSETS
1006 regsets_fetch_inferior_registers ()
1008 struct regset_info *regset;
1010 regset = target_regsets;
1012 while (regset->size >= 0)
1017 if (regset->size == 0)
1023 buf = malloc (regset->size);
1024 res = ptrace (regset->get_request, inferior_pid, 0, buf);
1029 /* If we get EIO on the first regset, do not try regsets again.
1030 If we get EIO on a later regset, disable that regset. */
1031 if (regset == target_regsets)
1045 sprintf (s, "ptrace(regsets_fetch_inferior_registers) PID=%d",
1050 regset->store_function (buf);
1057 regsets_store_inferior_registers ()
1059 struct regset_info *regset;
1061 regset = target_regsets;
1063 while (regset->size >= 0)
1068 if (regset->size == 0)
1074 buf = malloc (regset->size);
1075 regset->fill_function (buf);
1076 res = ptrace (regset->set_request, inferior_pid, 0, buf);
1081 /* If we get EIO on the first regset, do not try regsets again.
1082 If we get EIO on a later regset, disable that regset. */
1083 if (regset == target_regsets)
1096 perror ("Warning: ptrace(regsets_store_inferior_registers)");
1104 #endif /* HAVE_LINUX_REGSETS */
1108 linux_fetch_registers (int regno)
1110 #ifdef HAVE_LINUX_REGSETS
1113 if (regsets_fetch_inferior_registers () == 0)
1117 #ifdef HAVE_LINUX_USRREGS
1118 usr_fetch_inferior_registers (regno);
1123 linux_store_registers (int regno)
1125 #ifdef HAVE_LINUX_REGSETS
1128 if (regsets_store_inferior_registers () == 0)
1132 #ifdef HAVE_LINUX_USRREGS
1133 usr_store_inferior_registers (regno);
1138 /* Copy LEN bytes from inferior's memory starting at MEMADDR
1139 to debugger memory starting at MYADDR. */
1142 linux_read_memory (CORE_ADDR memaddr, char *myaddr, int len)
1145 /* Round starting address down to longword boundary. */
1146 register CORE_ADDR addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE);
1147 /* Round ending address up; get number of longwords that makes. */
1149 = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1)
1150 / sizeof (PTRACE_XFER_TYPE);
1151 /* Allocate buffer of that many longwords. */
1152 register PTRACE_XFER_TYPE *buffer
1153 = (PTRACE_XFER_TYPE *) alloca (count * sizeof (PTRACE_XFER_TYPE));
1155 /* Read all the longwords */
1156 for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE))
1158 buffer[i] = ptrace (PTRACE_PEEKTEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, 0);
1161 /* Copy appropriate bytes out of the buffer. */
1162 memcpy (myaddr, (char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), len);
1165 /* Copy LEN bytes of data from debugger memory at MYADDR
1166 to inferior's memory at MEMADDR.
1167 On failure (cannot write the inferior)
1168 returns the value of errno. */
1171 linux_write_memory (CORE_ADDR memaddr, const char *myaddr, int len)
1174 /* Round starting address down to longword boundary. */
1175 register CORE_ADDR addr = memaddr & -(CORE_ADDR) sizeof (PTRACE_XFER_TYPE);
1176 /* Round ending address up; get number of longwords that makes. */
1178 = (((memaddr + len) - addr) + sizeof (PTRACE_XFER_TYPE) - 1) / sizeof (PTRACE_XFER_TYPE);
1179 /* Allocate buffer of that many longwords. */
1180 register PTRACE_XFER_TYPE *buffer = (PTRACE_XFER_TYPE *) alloca (count * sizeof (PTRACE_XFER_TYPE));
1185 fprintf (stderr, "Writing %02x to %08lx\n", (unsigned)myaddr[0], (long)memaddr);
1188 /* Fill start and end extra bytes of buffer with existing memory data. */
1190 buffer[0] = ptrace (PTRACE_PEEKTEXT, inferior_pid,
1191 (PTRACE_ARG3_TYPE) addr, 0);
1196 = ptrace (PTRACE_PEEKTEXT, inferior_pid,
1197 (PTRACE_ARG3_TYPE) (addr + (count - 1)
1198 * sizeof (PTRACE_XFER_TYPE)),
1202 /* Copy data to be written over corresponding part of buffer */
1204 memcpy ((char *) buffer + (memaddr & (sizeof (PTRACE_XFER_TYPE) - 1)), myaddr, len);
1206 /* Write the entire buffer. */
1208 for (i = 0; i < count; i++, addr += sizeof (PTRACE_XFER_TYPE))
1211 ptrace (PTRACE_POKETEXT, inferior_pid, (PTRACE_ARG3_TYPE) addr, buffer[i]);
1220 linux_look_up_symbols (void)
1222 #ifdef USE_THREAD_DB
1226 using_threads = thread_db_init ();
1230 /* Return 1 if this process is not stopped. */
1232 unstopped_p (struct inferior_list_entry *entry, void *dummy)
1234 struct process_info *process = (struct process_info *) entry;
1236 if (process->stopped)
1245 struct inferior_list_entry *process;
1247 process = find_inferior (&all_processes, unstopped_p, NULL);
1249 if (process == NULL)
1251 warning ("no unstopped process");
1252 return inferior_pid;
1255 return pid_of ((struct process_info *) process);
1259 static struct target_ops linux_target_ops = {
1260 linux_create_inferior,
1266 linux_fetch_registers,
1267 linux_store_registers,
1270 linux_look_up_symbols,
1275 linux_init_signals ()
1277 /* FIXME drow/2002-06-09: As above, we should check with LinuxThreads
1278 to find what the cancel signal actually is. */
1279 signal (SIGRTMIN+1, SIG_IGN);
1283 initialize_low (void)
1286 set_target_ops (&linux_target_ops);
1287 set_breakpoint_data (the_low_target.breakpoint,
1288 the_low_target.breakpoint_len);
1290 linux_init_signals ();