X-Git-Url: https://repo.jachan.dev/binutils.git/blobdiff_plain/632ea0ccc5c4c3f9fc06881bfedfc4b075873941..b9aa90c9a1820bb01fc3a7e1ca08d372cf316599:/gdb/inflow.c diff --git a/gdb/inflow.c b/gdb/inflow.c index b88352ccda..526acdfdc7 100644 --- a/gdb/inflow.c +++ b/gdb/inflow.c @@ -1,118 +1,280 @@ /* Low level interface to ptrace, for GDB when running under Unix. - Copyright (C) 1986, 1987 Free Software Foundation, Inc. + Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, + 1996, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. -GDB is distributed in the hope that it will be useful, but WITHOUT ANY -WARRANTY. No author or distributor accepts responsibility to anyone -for the consequences of using it or for whether it serves any -particular purpose or works at all, unless he says so in writing. -Refer to the GDB General Public License for full details. + This file is part of GDB. -Everyone is granted permission to copy, modify and redistribute GDB, -but only under the conditions described in the GDB General Public -License. A copy of this license is supposed to have been given to you -along with GDB so you can know your rights and responsibilities. It -should be in a file named COPYING. Among other things, the copyright -notice and this notice must be preserved on all copies. + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. -In other words, go ahead and share GDB, but don't try to stop -anyone else from sharing it farther. Help stamp out software hoarding! -*/ + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ #include "defs.h" -#include "initialize.h" -#include "param.h" #include "frame.h" #include "inferior.h" +#include "command.h" +#include "serial.h" +#include "terminal.h" +#include "target.h" +#include "gdbthread.h" -#include -#include -#include -#include +#include "gdb_string.h" #include -#include -#include #include +#ifdef HAVE_SYS_SELECT_H +#include +#endif -#ifdef UMAX_PTRACE -#include +#ifdef HAVE_TERMIOS +#define PROCESS_GROUP_TYPE pid_t #endif -#ifdef NEW_SUN_PTRACE -#include -#include +#ifdef HAVE_TERMIO +#define PROCESS_GROUP_TYPE int #endif -extern int errno; +#ifdef HAVE_SGTTY +#ifdef SHORT_PGRP +/* This is only used for the ultra. Does it have pid_t? */ +#define PROCESS_GROUP_TYPE short +#else +#define PROCESS_GROUP_TYPE int +#endif +#endif /* sgtty */ -/* Nonzero if we are debugging an attached outside process - rather than an inferior. */ +#ifdef HAVE_SYS_IOCTL_H +#include +#endif -static int attach_flag; +#if defined (SIGIO) && defined (FASYNC) && defined (FD_SET) && defined (F_SETOWN) +static void handle_sigio (int); +#endif -START_FILE +extern void _initialize_inflow (void); + +static void pass_signal (int); + +static void kill_command (char *, int); + +static void terminal_ours_1 (int); /* Record terminal status separately for debugger and inferior. */ -static struct sgttyb sg_inferior; -static struct tchars tc_inferior; -static struct ltchars ltc_inferior; -static int lmode_inferior; -static int tflags_inferior; -static int pgrp_inferior; +static struct serial *stdin_serial; -static struct sgttyb sg_ours; -static struct tchars tc_ours; -static struct ltchars ltc_ours; -static int lmode_ours; +/* TTY state for the inferior. We save it whenever the inferior stops, and + restore it when it resumes. */ +static serial_ttystate inferior_ttystate; + +/* Our own tty state, which we restore every time we need to deal with the + terminal. We only set it once, when GDB first starts. The settings of + flags which readline saves and restores and unimportant. */ +static serial_ttystate our_ttystate; + +/* fcntl flags for us and the inferior. Saved and restored just like + {our,inferior}_ttystate. */ +static int tflags_inferior; static int tflags_ours; -static int pgrp_ours; -/* Copy of inferior_io_terminal when inferior was last started. */ +#ifdef PROCESS_GROUP_TYPE +/* Process group for us and the inferior. Saved and restored just like + {our,inferior}_ttystate. */ +PROCESS_GROUP_TYPE our_process_group; +PROCESS_GROUP_TYPE inferior_process_group; +#endif + +/* While the inferior is running, we want SIGINT and SIGQUIT to go to the + inferior only. If we have job control, that takes care of it. If not, + we save our handlers in these two variables and set SIGINT and SIGQUIT + to SIG_IGN. */ + +static void (*sigint_ours) (); +static void (*sigquit_ours) (); + +/* The name of the tty (from the `tty' command) that we gave to the inferior + when it was last started. */ + static char *inferior_thisrun_terminal; -static void terminal_ours_1 (); +/* Nonzero if our terminal settings are in effect. Zero if the + inferior's settings are in effect. Ignored if !gdb_has_a_terminal + (). */ + +int terminal_is_ours; + +enum + { + yes, no, have_not_checked + } +gdb_has_a_terminal_flag = have_not_checked; + +/* Does GDB have a terminal (on stdin)? */ +int +gdb_has_a_terminal (void) +{ + switch (gdb_has_a_terminal_flag) + { + case yes: + return 1; + case no: + return 0; + case have_not_checked: + /* Get all the current tty settings (including whether we have a + tty at all!). Can't do this in _initialize_inflow because + serial_fdopen() won't work until the serial_ops_list is + initialized. */ + +#ifdef F_GETFL + tflags_ours = fcntl (0, F_GETFL, 0); +#endif + + gdb_has_a_terminal_flag = no; + stdin_serial = serial_fdopen (0); + if (stdin_serial != NULL) + { + our_ttystate = serial_get_tty_state (stdin_serial); + + if (our_ttystate != NULL) + { + gdb_has_a_terminal_flag = yes; +#ifdef HAVE_TERMIOS + our_process_group = tcgetpgrp (0); +#endif +#ifdef HAVE_TERMIO + our_process_group = getpgrp (); +#endif +#ifdef HAVE_SGTTY + ioctl (0, TIOCGPGRP, &our_process_group); +#endif + } + } + + return gdb_has_a_terminal_flag == yes; + default: + /* "Can't happen". */ + return 0; + } +} -/* Nonzero if our terminal settings are in effect. - Zero if the inferior's settings are in effect. */ -static int terminal_is_ours; +/* Macro for printing errors from ioctl operations */ + +#define OOPSY(what) \ + if (result == -1) \ + fprintf_unfiltered(gdb_stderr, "[%s failed in terminal_inferior: %s]\n", \ + what, safe_strerror (errno)) + +static void terminal_ours_1 (int); /* Initialize the terminal settings we record for the inferior, before we actually run the inferior. */ void -terminal_init_inferior () +terminal_init_inferior_with_pgrp (int pgrp) { - if (remote_debugging) - return; + if (gdb_has_a_terminal ()) + { + /* We could just as well copy our_ttystate (if we felt like + adding a new function serial_copy_tty_state()). */ + if (inferior_ttystate) + xfree (inferior_ttystate); + inferior_ttystate = serial_get_tty_state (stdin_serial); + +#ifdef PROCESS_GROUP_TYPE + inferior_process_group = pgrp; +#endif - sg_inferior = sg_ours; - tc_inferior = tc_ours; - ltc_inferior = ltc_ours; - lmode_inferior = lmode_ours; - tflags_inferior = tflags_ours; - pgrp_inferior = inferior_pid; + /* Make sure that next time we call terminal_inferior (which will be + before the program runs, as it needs to be), we install the new + process group. */ + terminal_is_ours = 1; + } +} - terminal_is_ours = 1; +void +terminal_init_inferior (void) +{ +#ifdef PROCESS_GROUP_TYPE + /* This is for Lynx, and should be cleaned up by having Lynx be a separate + debugging target with a version of target_terminal_init_inferior which + passes in the process group to a generic routine which does all the work + (and the non-threaded child_terminal_init_inferior can just pass in + inferior_ptid to the same routine). */ + /* We assume INFERIOR_PID is also the child's process group. */ + terminal_init_inferior_with_pgrp (PIDGET (inferior_ptid)); +#endif /* PROCESS_GROUP_TYPE */ } /* Put the inferior's terminal settings into effect. This is preparation for starting or resuming the inferior. */ void -terminal_inferior () +terminal_inferior (void) { - if (remote_debugging) - return; - - if (terminal_is_ours) /* && inferior_thisrun_terminal == 0) */ + if (gdb_has_a_terminal () && terminal_is_ours + && inferior_thisrun_terminal == 0) { - fcntl (0, F_SETFL, tflags_inferior); - fcntl (0, F_SETFL, tflags_inferior); - ioctl (0, TIOCSETN, &sg_inferior); - ioctl (0, TIOCSETC, &tc_inferior); - ioctl (0, TIOCSLTC, <c_inferior); - ioctl (0, TIOCLSET, &lmode_inferior); - ioctl (0, TIOCSPGRP, &pgrp_inferior); + int result; + +#ifdef F_GETFL + /* Is there a reason this is being done twice? It happens both + places we use F_SETFL, so I'm inclined to think perhaps there + is some reason, however perverse. Perhaps not though... */ + result = fcntl (0, F_SETFL, tflags_inferior); + result = fcntl (0, F_SETFL, tflags_inferior); + OOPSY ("fcntl F_SETFL"); +#endif + + /* Because we were careful to not change in or out of raw mode in + terminal_ours, we will not change in our out of raw mode with + this call, so we don't flush any input. */ + result = serial_set_tty_state (stdin_serial, inferior_ttystate); + OOPSY ("setting tty state"); + + if (!job_control) + { + sigint_ours = (void (*)()) signal (SIGINT, SIG_IGN); +#ifdef SIGQUIT + sigquit_ours = (void (*)()) signal (SIGQUIT, SIG_IGN); +#endif + } + + /* If attach_flag is set, we don't know whether we are sharing a + terminal with the inferior or not. (attaching a process + without a terminal is one case where we do not; attaching a + process which we ran from the same shell as GDB via `&' is + one case where we do, I think (but perhaps this is not + `sharing' in the sense that we need to save and restore tty + state)). I don't know if there is any way to tell whether we + are sharing a terminal. So what we do is to go through all + the saving and restoring of the tty state, but ignore errors + setting the process group, which will happen if we are not + sharing a terminal). */ + + if (job_control) + { +#ifdef HAVE_TERMIOS + result = tcsetpgrp (0, inferior_process_group); + if (!attach_flag) + OOPSY ("tcsetpgrp"); +#endif + +#ifdef HAVE_SGTTY + result = ioctl (0, TIOCSPGRP, &inferior_process_group); + if (!attach_flag) + OOPSY ("TIOCSPGRP"); +#endif + } + } terminal_is_ours = 0; } @@ -126,11 +288,8 @@ terminal_inferior () should be called to get back to a normal state of affairs. */ void -terminal_ours_for_output () +terminal_ours_for_output (void) { - if (remote_debugging) - return; - terminal_ours_1 (1); } @@ -139,515 +298,474 @@ terminal_ours_for_output () so they can be restored properly later. */ void -terminal_ours () +terminal_ours (void) { - if (remote_debugging) - return; - terminal_ours_1 (0); } +/* output_only is not used, and should not be used unless we introduce + separate terminal_is_ours and terminal_is_ours_for_output + flags. */ + static void -terminal_ours_1 (output_only) - int output_only; +terminal_ours_1 (int output_only) { - /* Ignore this signal since it will happen when we try to set the pgrp. */ - int (*osigttou) (); + /* Checking inferior_thisrun_terminal is necessary so that + if GDB is running in the background, it won't block trying + to do the ioctl()'s below. Checking gdb_has_a_terminal + avoids attempting all the ioctl's when running in batch. */ + if (inferior_thisrun_terminal != 0 || gdb_has_a_terminal () == 0) + return; - if (!terminal_is_ours) /* && inferior_thisrun_terminal == 0) */ + if (!terminal_is_ours) { +#ifdef SIGTTOU + /* Ignore this signal since it will happen when we try to set the + pgrp. */ + void (*osigttou) () = NULL; +#endif + int result; + terminal_is_ours = 1; - osigttou = signal (SIGTTOU, SIG_IGN); +#ifdef SIGTTOU + if (job_control) + osigttou = (void (*)()) signal (SIGTTOU, SIG_IGN); +#endif - ioctl (0, TIOCGPGRP, &pgrp_inferior); - ioctl (0, TIOCSPGRP, &pgrp_ours); + if (inferior_ttystate) + xfree (inferior_ttystate); + inferior_ttystate = serial_get_tty_state (stdin_serial); +#ifdef HAVE_TERMIOS + inferior_process_group = tcgetpgrp (0); +#endif +#ifdef HAVE_TERMIO + inferior_process_group = getpgrp (); +#endif +#ifdef HAVE_SGTTY + ioctl (0, TIOCGPGRP, &inferior_process_group); +#endif - signal (SIGTTOU, osigttou); + /* Here we used to set ICANON in our ttystate, but I believe this + was an artifact from before when we used readline. Readline sets + the tty state when it needs to. + FIXME-maybe: However, query() expects non-raw mode and doesn't + use readline. Maybe query should use readline (on the other hand, + this only matters for HAVE_SGTTY, not termio or termios, I think). */ + + /* Set tty state to our_ttystate. We don't change in our out of raw + mode, to avoid flushing input. We need to do the same thing + regardless of output_only, because we don't have separate + terminal_is_ours and terminal_is_ours_for_output flags. It's OK, + though, since readline will deal with raw mode when/if it needs to. + */ + + serial_noflush_set_tty_state (stdin_serial, our_ttystate, + inferior_ttystate); + + if (job_control) + { +#ifdef HAVE_TERMIOS + result = tcsetpgrp (0, our_process_group); +#if 0 + /* This fails on Ultrix with EINVAL if you run the testsuite + in the background with nohup, and then log out. GDB never + used to check for an error here, so perhaps there are other + such situations as well. */ + if (result == -1) + fprintf_unfiltered (gdb_stderr, "[tcsetpgrp failed in terminal_ours: %s]\n", + safe_strerror (errno)); +#endif +#endif /* termios */ + +#ifdef HAVE_SGTTY + result = ioctl (0, TIOCSPGRP, &our_process_group); +#endif + } + +#ifdef SIGTTOU + if (job_control) + signal (SIGTTOU, osigttou); +#endif + if (!job_control) + { + signal (SIGINT, sigint_ours); +#ifdef SIGQUIT + signal (SIGQUIT, sigquit_ours); +#endif + } + +#ifdef F_GETFL tflags_inferior = fcntl (0, F_GETFL, 0); - ioctl (0, TIOCGETP, &sg_inferior); - ioctl (0, TIOCGETC, &tc_inferior); - ioctl (0, TIOCGLTC, <c_inferior); - ioctl (0, TIOCLGET, &lmode_inferior); - } - sg_ours.sg_flags &= ~RAW & ~CBREAK; - if (output_only) - sg_ours.sg_flags |= (RAW | CBREAK) & sg_inferior.sg_flags; - - fcntl (0, F_SETFL, tflags_ours); - fcntl (0, F_SETFL, tflags_ours); - ioctl (0, TIOCSETN, &sg_ours); - ioctl (0, TIOCSETC, &tc_ours); - ioctl (0, TIOCSLTC, <c_ours); - ioctl (0, TIOCLSET, &lmode_ours); - sg_ours.sg_flags &= ~RAW & ~CBREAK; + /* Is there a reason this is being done twice? It happens both + places we use F_SETFL, so I'm inclined to think perhaps there + is some reason, however perverse. Perhaps not though... */ + result = fcntl (0, F_SETFL, tflags_ours); + result = fcntl (0, F_SETFL, tflags_ours); +#endif + + result = result; /* lint */ + } } -static void -term_status_command () +/* ARGSUSED */ +void +term_info (char *arg, int from_tty) { - register int i; + target_terminal_info (arg, from_tty); +} - if (remote_debugging) +/* ARGSUSED */ +void +child_terminal_info (char *args, int from_tty) +{ + if (!gdb_has_a_terminal ()) { - printf ("No terminal status when remote debugging.\n"); + printf_filtered ("This GDB does not control a terminal.\n"); return; } - printf ("Inferior's terminal status (currently saved by GDB):\n"); - printf ("fcntl flags = 0x%x, lmode = 0x%x,\nsgttyb.sg_flags = 0x%x, owner pid = %d.\n", - tflags_inferior, lmode_inferior, - sg_inferior.sg_flags, pgrp_inferior); - printf ("tchars: "); - for (i = 0; i < sizeof (struct tchars); i++) - printf ("0x%x ", ((char *)&tc_inferior)[i]); - printf ("\n"); - printf ("ltchars: "); - for (i = 0; i < sizeof (struct ltchars); i++) - printf ("0x%x ", ((char *)<c_inferior)[i]); - printf ("\n"); -} - -static void -new_tty (ttyname) - char *ttyname; -{ - register int tty; - register int fd; + printf_filtered ("Inferior's terminal status (currently saved by GDB):\n"); -#if 0 - /* I think it is better not to do this. Then C-z on the GDB terminal - will still stop the program, while C-z on the data terminal - will be input. */ + /* First the fcntl flags. */ + { + int flags; - /* Disconnect the child process from our controlling terminal. */ - tty = open("/dev/tty", O_RDWR); - if (tty > 0) - { - ioctl(tty, TIOCNOTTY, 0); - close(tty); - } + flags = tflags_inferior; + + printf_filtered ("File descriptor flags = "); + +#ifndef O_ACCMODE +#define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR) +#endif + /* (O_ACCMODE) parens are to avoid Ultrix header file bug */ + switch (flags & (O_ACCMODE)) + { + case O_RDONLY: + printf_filtered ("O_RDONLY"); + break; + case O_WRONLY: + printf_filtered ("O_WRONLY"); + break; + case O_RDWR: + printf_filtered ("O_RDWR"); + break; + } + flags &= ~(O_ACCMODE); + +#ifdef O_NONBLOCK + if (flags & O_NONBLOCK) + printf_filtered (" | O_NONBLOCK"); + flags &= ~O_NONBLOCK; #endif - /* Now open the specified new terminal. */ - tty = open(ttyname, O_RDWR); - if (tty == -1) - _exit(1); +#if defined (O_NDELAY) + /* If O_NDELAY and O_NONBLOCK are defined to the same thing, we will + print it as O_NONBLOCK, which is good cause that is what POSIX + has, and the flag will already be cleared by the time we get here. */ + if (flags & O_NDELAY) + printf_filtered (" | O_NDELAY"); + flags &= ~O_NDELAY; +#endif - dup2(tty, 0); - dup2(tty, 1); - dup2(tty, 2); - close(tty); + if (flags & O_APPEND) + printf_filtered (" | O_APPEND"); + flags &= ~O_APPEND; + +#if defined (O_BINARY) + if (flags & O_BINARY) + printf_filtered (" | O_BINARY"); + flags &= ~O_BINARY; +#endif + + if (flags) + printf_filtered (" | 0x%x", flags); + printf_filtered ("\n"); + } + +#ifdef PROCESS_GROUP_TYPE + printf_filtered ("Process group = %d\n", + (int) inferior_process_group); +#endif + + serial_print_tty_state (stdin_serial, inferior_ttystate, gdb_stdout); } -/* Start an inferior process and returns its pid. - ALLARGS is a vector of program-name and args. - ENV is the environment vector to pass. */ +/* NEW_TTY_PREFORK is called before forking a new child process, + so we can record the state of ttys in the child to be formed. + TTYNAME is null if we are to share the terminal with gdb; + or points to a string containing the name of the desired tty. -int -create_inferior (allargs, env) - char **allargs; - char **env; -{ - int pid; - extern int sys_nerr; - extern char *sys_errlist[]; - extern int errno; + NEW_TTY is called in new child processes under Unix, which will + become debugger target processes. This actually switches to + the terminal specified in the NEW_TTY_PREFORK call. */ - /* exec is said to fail if the executable is open. */ - close_exec_file (); +void +new_tty_prefork (char *ttyname) +{ + /* Save the name for later, for determining whether we and the child + are sharing a tty. */ + inferior_thisrun_terminal = ttyname; +} - pid = vfork (); - if (pid < 0) - perror_with_name ("vfork"); +void +new_tty (void) +{ + register int tty; - if (pid == 0) + if (inferior_thisrun_terminal == 0) + return; +#if !defined(__GO32__) && !defined(_WIN32) +#ifdef TIOCNOTTY + /* Disconnect the child process from our controlling terminal. On some + systems (SVR4 for example), this may cause a SIGTTOU, so temporarily + ignore SIGTTOU. */ + tty = open ("/dev/tty", O_RDWR); + if (tty > 0) { - /* Run inferior in a separate process group. */ - setpgrp (getpid (), getpid ()); + void (*osigttou) (); - inferior_thisrun_terminal = inferior_io_terminal; - if (inferior_io_terminal != 0) - new_tty (inferior_io_terminal); + osigttou = (void (*)()) signal (SIGTTOU, SIG_IGN); + ioctl (tty, TIOCNOTTY, 0); + close (tty); + signal (SIGTTOU, osigttou); + } +#endif -/* Not needed on Sun, at least, and loses there - because it clobbers the superior. */ -/*??? signal (SIGQUIT, SIG_DFL); - signal (SIGINT, SIG_DFL); */ + /* Now open the specified new terminal. */ - ptrace (0); - execle ("/bin/sh", "sh", "-c", allargs, 0, env); +#ifdef USE_O_NOCTTY + tty = open (inferior_thisrun_terminal, O_RDWR | O_NOCTTY); +#else + tty = open (inferior_thisrun_terminal, O_RDWR); +#endif + if (tty == -1) + { + print_sys_errmsg (inferior_thisrun_terminal, errno); + _exit (1); + } - fprintf (stderr, "Cannot exec /bin/sh: %s.\n", - errno < sys_nerr ? sys_errlist[errno] : "unknown error"); - fflush (stderr); - _exit (0177); + /* Avoid use of dup2; doesn't exist on all systems. */ + if (tty != 0) + { + close (0); + dup (tty); + } + if (tty != 1) + { + close (1); + dup (tty); + } + if (tty != 2) + { + close (2); + dup (tty); } - return pid; + if (tty > 2) + close (tty); +#endif /* !go32 && !win32 */ } - + /* Kill the inferior process. Make us have no inferior. */ +/* ARGSUSED */ static void -kill_command () +kill_command (char *arg, int from_tty) { - if (remote_debugging) - return; - if (inferior_pid == 0) + /* FIXME: This should not really be inferior_ptid (or target_has_execution). + It should be a distinct flag that indicates that a target is active, cuz + some targets don't have processes! */ + + if (ptid_equal (inferior_ptid, null_ptid)) error ("The program is not being run."); - if (!query ("Kill the inferior process? ")) + if (!query ("Kill the program being debugged? ")) error ("Not confirmed."); - kill_inferior (); -} + target_kill (); -kill_inferior () -{ - if (remote_debugging) - return; - if (inferior_pid == 0) - return; - ptrace (8, inferior_pid, 0, 0); - wait (0); - inferior_died (); -} + init_thread_list (); /* Destroy thread info */ -inferior_died () -{ - inferior_pid = 0; - attach_flag = 0; - mark_breakpoints_out (); - reopen_exec_file (); - if (have_core_file_p ()) - set_current_frame (read_register (FP_REGNUM)); -} - -/* Resume execution of the inferior process. - If STEP is nonzero, single-step it. - If SIGNAL is nonzero, give it that signal. */ - -void -resume (step, signal) - int step; - int signal; -{ - errno = 0; - if (remote_debugging) - remote_resume (step, signal); - else + /* Killing off the inferior can leave us with a core file. If so, + print the state we are left in. */ + if (target_has_stack) { - ptrace (step ? 9 : 7, inferior_pid, 1, signal); - if (errno) - perror_with_name ("ptrace"); + printf_filtered ("In %s,\n", target_longname); + if (selected_frame == NULL) + fputs_filtered ("No selected stack frame.\n", gdb_stdout); + else + print_stack_frame (selected_frame, + frame_relative_level (selected_frame), 1); } } -#ifdef NEW_SUN_PTRACE +/* Call set_sigint_trap when you need to pass a signal on to an attached + process when handling SIGINT */ -/* Start debugging the process whose number is PID. */ - -attach (pid) - int pid; +/* ARGSUSED */ +static void +pass_signal (int signo) { - errno = 0; - ptrace (PTRACE_ATTACH, pid, 0, 0); - if (errno) - perror_with_name ("ptrace"); - attach_flag = 1; - return pid; +#ifndef _WIN32 + kill (PIDGET (inferior_ptid), SIGINT); +#endif } -/* Stop debugging the process whose number is PID - and continue it with signal number SIGNAL. - SIGNAL = 0 means just continue it. */ +static void (*osig) (); void -detach (signal) - int signal; +set_sigint_trap (void) { - errno = 0; - ptrace (PTRACE_DETACH, inferior_pid, 1, signal); - if (errno) - perror_with_name ("ptrace"); - attach_flag = 0; + if (attach_flag || inferior_thisrun_terminal) + { + osig = (void (*)()) signal (SIGINT, pass_signal); + } } -#endif - -#ifdef NEW_SUN_PTRACE void -fetch_inferior_registers () +clear_sigint_trap (void) { - struct regs inferior_registers; - struct fp_status inferior_fp_registers; - extern char registers[]; - - if (remote_debugging) - remote_fetch_registers (registers); - else + if (attach_flag || inferior_thisrun_terminal) { - ptrace (PTRACE_GETREGS, inferior_pid, &inferior_registers); - ptrace (PTRACE_GETFPREGS, inferior_pid, &inferior_fp_registers); - - bcopy (&inferior_registers, registers, 16 * 4); - bcopy (&inferior_fp_registers, ®isters[REGISTER_BYTE (FP0_REGNUM)], - sizeof inferior_fp_registers.fps_regs); - *(int *)®isters[REGISTER_BYTE (PS_REGNUM)] = inferior_registers.r_ps; - *(int *)®isters[REGISTER_BYTE (PC_REGNUM)] = inferior_registers.r_pc; - bcopy (&inferior_fp_registers.fps_control, - ®isters[REGISTER_BYTE (FPC_REGNUM)], - sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); + signal (SIGINT, osig); } } + +#if defined (SIGIO) && defined (FASYNC) && defined (FD_SET) && defined (F_SETOWN) +static void (*old_sigio) (); -/* Store our register values back into the inferior. - If REGNO is -1, do this for all registers. - Otherwise, REGNO specifies which register (so we can save time). */ - -store_inferior_registers (regno) - int regno; +static void +handle_sigio (int signo) { - struct regs inferior_registers; - struct fp_status inferior_fp_registers; - extern char registers[]; + int numfds; + fd_set readfds; + + signal (SIGIO, handle_sigio); - if (remote_debugging) - remote_store_registers (registers); - else + FD_ZERO (&readfds); + FD_SET (target_activity_fd, &readfds); + numfds = select (target_activity_fd + 1, &readfds, NULL, NULL, NULL); + if (numfds >= 0 && FD_ISSET (target_activity_fd, &readfds)) { - bcopy (registers, &inferior_registers, 16 * 4); - bcopy (®isters[REGISTER_BYTE (FP0_REGNUM)], &inferior_fp_registers, - sizeof inferior_fp_registers.fps_regs); - inferior_registers.r_ps = *(int *)®isters[REGISTER_BYTE (PS_REGNUM)]; - inferior_registers.r_pc = *(int *)®isters[REGISTER_BYTE (PC_REGNUM)]; - bcopy (®isters[REGISTER_BYTE (FPC_REGNUM)], - &inferior_fp_registers.fps_control, - sizeof inferior_fp_registers - sizeof inferior_fp_registers.fps_regs); - - ptrace (PTRACE_SETREGS, inferior_pid, &inferior_registers); - ptrace (PTRACE_SETFPREGS, inferior_pid, &inferior_fp_registers); +#ifndef _WIN32 + if ((*target_activity_function) ()) + kill (PIDGET (inferior_ptid), SIGINT); +#endif } } -#else +static int old_fcntl_flags; void -fetch_inferior_registers () +set_sigio_trap (void) { - register int regno; - register unsigned int regaddr; - char buf[MAX_REGISTER_RAW_SIZE]; - register int i; - -#ifdef UMAX_PTRACE - unsigned int offset = 0; -#else - struct user u; - unsigned int offset = (char *) &u.u_ar0 - (char *) &u; - offset = ptrace (3, inferior_pid, offset, 0) - KERNEL_U_ADDR; -#endif - - for (regno = 0; regno < NUM_REGS; regno++) + if (target_activity_function) { - regaddr = register_addr (regno, offset); - for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int)) - { - *(int *) &buf[i] = ptrace (3, inferior_pid, regaddr, 0); - regaddr += sizeof (int); - } - supply_register (regno, buf); + old_sigio = (void (*)()) signal (SIGIO, handle_sigio); + fcntl (target_activity_fd, F_SETOWN, getpid ()); + old_fcntl_flags = fcntl (target_activity_fd, F_GETFL, 0); + fcntl (target_activity_fd, F_SETFL, old_fcntl_flags | FASYNC); } } -/* Store our register values back into the inferior. - If REGNO is -1, do this for all registers. - Otherwise, REGNO specifies which register (so we can save time). */ - -store_inferior_registers (regno) - int regno; +void +clear_sigio_trap (void) { - register unsigned int regaddr; - char buf[80]; - -#ifdef UMAX_PTRACE - unsigned int offset = 0; -#else - struct user u; - unsigned int offset = (char *) &u.u_ar0 - (char *) &u; - offset = ptrace (3, inferior_pid, offset, 0) - KERNEL_U_ADDR; -#endif - - if (regno >= 0) + if (target_activity_function) { - regaddr = register_addr (regno, offset); - errno = 0; - ptrace (6, inferior_pid, regaddr, read_register (regno)); - if (errno != 0) - { - sprintf (buf, "writing register number %d", regno); - perror_with_name (buf); - } - } - else for (regno = 0; regno < NUM_REGS; regno++) - { - regaddr = register_addr (regno, offset); - errno = 0; - ptrace (6, inferior_pid, regaddr, read_register (regno)); - if (errno != 0) - { - sprintf (buf, "writing register number %d", regno); - perror_with_name (buf); - } + signal (SIGIO, old_sigio); + fcntl (target_activity_fd, F_SETFL, old_fcntl_flags); } } - -#endif /* not NEW_SUN_PTRACE */ - -/* NOTE! I tried using PTRACE_READDATA, etc., to read and write memory - in the NEW_SUN_PTRACE case. - It ought to be straightforward. But it appears that writing did - not write the data that I specified. I cannot understand where - it got the data that it actually did write. */ - -/* Copy LEN bytes from inferior's memory starting at MEMADDR - to debugger memory starting at MYADDR. */ - -read_inferior_memory (memaddr, myaddr, len) - CORE_ADDR memaddr; - char *myaddr; - int len; +#else /* No SIGIO. */ +void +set_sigio_trap (void) { - register int i; - /* Round starting address down to longword boundary. */ - register CORE_ADDR addr = memaddr & - sizeof (int); - /* Round ending address up; get number of longwords that makes. */ - register int count - = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); - /* Allocate buffer of that many longwords. */ - register int *buffer = (int *) alloca (count * sizeof (int)); - - /* Read all the longwords */ - for (i = 0; i < count; i++, addr += sizeof (int)) - { - if (remote_debugging) - buffer[i] = remote_fetch_word (addr); - else - buffer[i] = ptrace (1, inferior_pid, addr, 0); - } + if (target_activity_function) + internal_error (__FILE__, __LINE__, "failed internal consistency check"); +} - /* Copy appropriate bytes out of the buffer. */ - bcopy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len); +void +clear_sigio_trap (void) +{ + if (target_activity_function) + internal_error (__FILE__, __LINE__, "failed internal consistency check"); } +#endif /* No SIGIO. */ + -/* Copy LEN bytes of data from debugger memory at MYADDR - to inferior's memory at MEMADDR. - On failure (cannot write the inferior) - returns the value of errno. */ +/* This is here because this is where we figure out whether we (probably) + have job control. Just using job_control only does part of it because + setpgid or setpgrp might not exist on a system without job control. + It might be considered misplaced (on the other hand, process groups and + job control are closely related to ttys). + For a more clean implementation, in libiberty, put a setpgid which merely + calls setpgrp and a setpgrp which does nothing (any system with job control + will have one or the other). */ int -write_inferior_memory (memaddr, myaddr, len) - CORE_ADDR memaddr; - char *myaddr; - int len; +gdb_setpgid (void) { - register int i; - /* Round starting address down to longword boundary. */ - register CORE_ADDR addr = memaddr & - sizeof (int); - /* Round ending address up; get number of longwords that makes. */ - register int count - = (((memaddr + len) - addr) + sizeof (int) - 1) / sizeof (int); - /* Allocate buffer of that many longwords. */ - register int *buffer = (int *) alloca (count * sizeof (int)); - extern int errno; - - /* Fill start and end extra bytes of buffer with existing memory data. */ - - if (remote_debugging) - buffer[0] = remote_fetch_word (addr); - else - buffer[0] = ptrace (1, inferior_pid, addr, 0); - - if (count > 1) - { - if (remote_debugging) - buffer[count - 1] - = remote_fetch_word (addr + (count - 1) * sizeof (int)); - else - buffer[count - 1] - = ptrace (1, inferior_pid, - addr + (count - 1) * sizeof (int), 0); - } - - /* Copy data to be written over corresponding part of buffer */ - - bcopy (myaddr, (char *) buffer + (memaddr & (sizeof (int) - 1)), len); + int retval = 0; - /* Write the entire buffer. */ - - for (i = 0; i < count; i++, addr += sizeof (int)) + if (job_control) { - errno = 0; - if (remote_debugging) - remote_store_word (addr, buffer[i]); - else - ptrace (4, inferior_pid, addr, buffer[i]); - if (errno) - return errno; +#if defined (HAVE_TERMIOS) || defined (TIOCGPGRP) +#ifdef HAVE_SETPGID + /* The call setpgid (0, 0) is supposed to work and mean the same + thing as this, but on Ultrix 4.2A it fails with EPERM (and + setpgid (getpid (), getpid ()) succeeds). */ + retval = setpgid (getpid (), getpid ()); +#else +#ifdef HAVE_SETPGRP +#ifdef SETPGRP_VOID + retval = setpgrp (); +#else + retval = setpgrp (getpid (), getpid ()); +#endif +#endif /* HAVE_SETPGRP */ +#endif /* HAVE_SETPGID */ +#endif /* defined (HAVE_TERMIOS) || defined (TIOCGPGRP) */ } - return 0; + return retval; } - -static void -try_writing_regs_command () -{ - register int i; - register int value; - extern int errno; - - if (inferior_pid == 0) - error ("There is no inferior process now."); - for (i = 0; ; i += 2) - { - QUIT; - errno = 0; - value = ptrace (3, inferior_pid, i, 0); - ptrace (6, inferior_pid, i, value); - if (errno == 0) - { - printf (" Succeeded with address 0x%x; value 0x%x (%d).\n", - i, value, value); - } - else if ((i & 0377) == 0) - printf (" Failed at 0x%x.\n", i); - } -} - -static -initialize () +void +_initialize_inflow (void) { - add_com ("term-status", class_obscure, term_status_command, - "Print info on inferior's saved terminal status."); - - add_com ("try-writing-regs", class_obscure, try_writing_regs_command, - "Try writing all locations in inferior's system block.\n\ -Report which ones can be written."); + add_info ("terminal", term_info, + "Print inferior's saved terminal status."); add_com ("kill", class_run, kill_command, "Kill execution of program being debugged."); - inferior_pid = 0; - - ioctl (0, TIOCGETP, &sg_ours); - ioctl (0, TIOCGETC, &tc_ours); - ioctl (0, TIOCGLTC, <c_ours); - ioctl (0, TIOCLGET, &lmode_ours); - fcntl (0, F_GETFL, tflags_ours); - ioctl (0, TIOCGPGRP, &pgrp_ours); + inferior_ptid = null_ptid; terminal_is_ours = 1; -} -END_FILE + /* OK, figure out whether we have job control. If neither termios nor + sgtty (i.e. termio or go32), leave job_control 0. */ + +#if defined (HAVE_TERMIOS) + /* Do all systems with termios have the POSIX way of identifying job + control? I hope so. */ +#ifdef _POSIX_JOB_CONTROL + job_control = 1; +#else +#ifdef _SC_JOB_CONTROL + job_control = sysconf (_SC_JOB_CONTROL); +#else + job_control = 0; /* have to assume the worst */ +#endif /* _SC_JOB_CONTROL */ +#endif /* _POSIX_JOB_CONTROL */ +#endif /* HAVE_TERMIOS */ + +#ifdef HAVE_SGTTY +#ifdef TIOCGPGRP + job_control = 1; +#else + job_control = 0; +#endif /* TIOCGPGRP */ +#endif /* sgtty */ +}