/* Low level interface to ptrace, for GDB when running under Unix.
- Copyright (C) 1986, 1987 Free Software Foundation, Inc.
+ Copyright 1986, 1987, 1989, 1991, 1992 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., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "defs.h"
-#include "initialize.h"
-#include "param.h"
#include "frame.h"
#include "inferior.h"
+#include "command.h"
+#include "signals.h"
+#include "terminal.h"
+#include "target.h"
-#include <stdio.h>
-#include <sys/param.h>
-#include <sys/dir.h>
-#ifndef UMAX_PTRACE
-#include <sys/user.h>
+#ifdef USG
+#include <sys/types.h>
#endif
-#include <signal.h>
-#include <sys/ioctl.h>
-#include <fcntl.h>
-#ifdef UMAX_PTRACE
-#include <a.out.h>
-#include <sys/ptrace.h>
-#define PTRACE_ATTACH PT_ATTACH
-#define PTRACE_DETACH PT_FREEPROC
-#endif
+/* Some USG-esque systems (some of which are BSD-esque enough so that USG
+ is not defined) want this header, and it won't do any harm. */
+#include <fcntl.h>
-#ifdef NEW_SUN_PTRACE
-#include <sys/ptrace.h>
-#include <machine/reg.h>
-#endif
+#include <sys/param.h>
+#include <signal.h>
-#ifdef HP9K320
-#include <sys/ptrace.h>
-#include <sys/reg.h>
-#include <sys/trap.h>
-#endif
+static void
+kill_command PARAMS ((char *, int));
-#ifdef HAVE_TERMIO
-#include <termio.h>
-#undef TIOCGETP
-#define TIOCGETP TCGETA
-#undef TIOCSETN
-#define TIOCSETN TCSETA
-#undef TIOCSETP
-#define TIOCSETP TCSETAF
-#define TERMINAL struct termio
-#else
-#include <sgtty.h>
-#define TERMINAL struct sgttyb
-#endif
+static void
+terminal_ours_1 PARAMS ((int));
-extern int errno;
+extern struct target_ops child_ops;
/* Nonzero if we are debugging an attached outside process
rather than an inferior. */
-static int attach_flag;
+int attach_flag;
-START_FILE
\f
/* Record terminal status separately for debugger and inferior. */
+/* Does GDB have a terminal (on stdin)? */
+int gdb_has_a_terminal;
+#if !defined(__GO32__)
static TERMINAL sg_inferior;
static TERMINAL sg_ours;
+#endif
static int tflags_inferior;
static int tflags_ours;
-#ifdef TIOCGLTC
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
static struct tchars tc_inferior;
static struct tchars tc_ours;
+#endif
+
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
static struct ltchars ltc_inferior;
static struct ltchars ltc_ours;
+#endif
+
+#ifdef TIOCLGET
static int lmode_inferior;
static int lmode_ours;
-#endif /* TIOCGLTC */
+#endif
#ifdef TIOCGPGRP
+# ifdef SHORT_PGRP
+static short pgrp_inferior;
+static short pgrp_ours;
+# else /* not def SHORT_PGRP */
static int pgrp_inferior;
static int pgrp_ours;
-#else
-static int (*sigint_ours) ();
-static int (*sigquit_ours) ();
+# endif /* not def SHORT_PGRP */
+#else /* not def TIOCGPGRP */
+static void (*sigint_ours) ();
+static void (*sigquit_ours) ();
#endif /* TIOCGPGRP */
-/* Copy of inferior_io_terminal when inferior was last started. */
-static char *inferior_thisrun_terminal;
+/* The name of the tty (from the `tty' command) that we gave to the inferior
+ when it was last started. */
-static void terminal_ours_1 ();
+static char *inferior_thisrun_terminal;
/* 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(stderr, "[%s failed in terminal_inferior: %s]\n", \
+ what, strerror (errno))
+
+static void terminal_ours_1 ();
+
/* Initialize the terminal settings we record for the inferior,
before we actually run the inferior. */
void
terminal_init_inferior ()
{
- if (remote_debugging)
- return;
-
+#if !defined(__GO32__)
sg_inferior = sg_ours;
tflags_inferior = tflags_ours;
-#ifdef TIOCGLTC
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
tc_inferior = tc_ours;
+#endif
+
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
ltc_inferior = ltc_ours;
+#endif
+
+#ifdef TIOCLGET
lmode_inferior = lmode_ours;
-#endif /* TIOCGLTC */
+#endif
#ifdef TIOCGPGRP
pgrp_inferior = inferior_pid;
#endif /* TIOCGPGRP */
-
+#endif
terminal_is_ours = 1;
}
void
terminal_inferior ()
{
- if (remote_debugging)
- return;
+#if !defined(__GO32__)
+ int result;
- 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);
-
-#ifdef TIOCGLTC
- ioctl (0, TIOCSETC, &tc_inferior);
- ioctl (0, TIOCSLTC, <c_inferior);
- ioctl (0, TIOCLSET, &lmode_inferior);
-#endif /* TIOCGLTC */
+ result = fcntl (0, F_SETFL, tflags_inferior);
+ result = fcntl (0, F_SETFL, tflags_inferior);
+ OOPSY ("fcntl F_SETFL");
+ result = ioctl (0, TIOCSETN, &sg_inferior);
+ OOPSY ("ioctl TIOCSETN");
+
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
+ result = ioctl (0, TIOCSETC, &tc_inferior);
+ OOPSY ("ioctl TIOCSETC");
+#endif
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
+ result = ioctl (0, TIOCSLTC, <c_inferior);
+ OOPSY ("ioctl TIOCSLTC");
+#endif
+#ifdef TIOCLGET
+ result = ioctl (0, TIOCLSET, &lmode_inferior);
+ OOPSY ("ioctl TIOCLSET");
+#endif
#ifdef TIOCGPGRP
- ioctl (0, TIOCSPGRP, &pgrp_inferior);
+ result = ioctl (0, TIOCSPGRP, &pgrp_inferior);
+ /* If we attached to the process, we might or might not be sharing
+ a terminal. Avoid printing error msg if we are unable to set our
+ terminal's process group to his process group ID. */
+ if (!attach_flag) {
+ OOPSY ("ioctl TIOCSPGRP");
+ }
#else
- sigint_ours = (signal (SIGINT, SIG_IGN));
- sigquit_ours = (signal (SIGQUIT, SIG_IGN));
+ sigint_ours = (void (*) ()) signal (SIGINT, SIG_IGN);
+ sigquit_ours = (void (*) ()) signal (SIGQUIT, SIG_IGN);
#endif /* TIOCGPGRP */
}
+#endif
terminal_is_ours = 0;
}
void
terminal_ours_for_output ()
{
- if (remote_debugging)
- return;
-
terminal_ours_1 (1);
}
void
terminal_ours ()
{
- if (remote_debugging)
- return;
-
terminal_ours_1 (0);
}
terminal_ours_1 (output_only)
int output_only;
{
+#if !defined(__GO32__)
+ int result;
#ifdef TIOCGPGRP
/* Ignore this signal since it will happen when we try to set the pgrp. */
- int (*osigttou) ();
+ void (*osigttou) ();
#endif /* TIOCGPGRP */
- if (!terminal_is_ours) /* && inferior_thisrun_terminal == 0) */
+ /* 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)
{
terminal_is_ours = 1;
#ifdef TIOCGPGRP
- osigttou = signal (SIGTTOU, SIG_IGN);
+ osigttou = (void (*) ()) signal (SIGTTOU, SIG_IGN);
- ioctl (0, TIOCGPGRP, &pgrp_inferior);
- ioctl (0, TIOCSPGRP, &pgrp_ours);
+ result = ioctl (0, TIOCGPGRP, &pgrp_inferior);
+ result = ioctl (0, TIOCSPGRP, &pgrp_ours);
signal (SIGTTOU, osigttou);
#else
#endif /* TIOCGPGRP */
tflags_inferior = fcntl (0, F_GETFL, 0);
- ioctl (0, TIOCGETP, &sg_inferior);
+ result = ioctl (0, TIOCGETP, &sg_inferior);
-#ifdef TIOCGLTC
- ioctl (0, TIOCGETC, &tc_inferior);
- ioctl (0, TIOCGLTC, <c_inferior);
- ioctl (0, TIOCLGET, &lmode_inferior);
-#endif /* TIOCGLTC */
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
+ result = ioctl (0, TIOCGETC, &tc_inferior);
+#endif
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
+ result = ioctl (0, TIOCGLTC, <c_inferior);
+#endif
+#ifdef TIOCLGET
+ result = ioctl (0, TIOCLGET, &lmode_inferior);
+#endif
}
#ifdef HAVE_TERMIO
sg_ours.sg_flags |= (RAW | CBREAK) & sg_inferior.sg_flags;
#endif /* not HAVE_TERMIO */
- fcntl (0, F_SETFL, tflags_ours);
- fcntl (0, F_SETFL, tflags_ours);
- ioctl (0, TIOCSETN, &sg_ours);
-
-#ifdef TIOCGLTC
- ioctl (0, TIOCSETC, &tc_ours);
- ioctl (0, TIOCSLTC, <c_ours);
- ioctl (0, TIOCLSET, &lmode_ours);
-#endif /* TIOCGLTC */
+ result = fcntl (0, F_SETFL, tflags_ours);
+ result = fcntl (0, F_SETFL, tflags_ours);
+ result = ioctl (0, TIOCSETN, &sg_ours);
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
+ result = ioctl (0, TIOCSETC, &tc_ours);
+#endif
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
+ result = ioctl (0, TIOCSLTC, <c_ours);
+#endif
+#ifdef TIOCLGET
+ result = ioctl (0, TIOCLSET, &lmode_ours);
+#endif
#ifdef HAVE_TERMIO
sg_ours.c_lflag |= ICANON;
#else /* not HAVE_TERMIO */
sg_ours.sg_flags &= ~RAW & ~CBREAK;
#endif /* not HAVE_TERMIO */
+
+ result = result; /* lint */
+#endif
}
-static void
-term_status_command ()
+/* ARGSUSED */
+void
+term_info (arg, from_tty)
+ char *arg;
+ int from_tty;
+{
+ target_terminal_info (arg, from_tty);
+}
+
+/* ARGSUSED */
+void
+child_terminal_info (args, from_tty)
+ char *args;
+ int from_tty;
{
register int i;
- if (remote_debugging)
- {
- printf ("No terminal status when remote debugging.\n");
- return;
- }
+ if (!gdb_has_a_terminal) {
+ printf_filtered ("This GDB does not control a terminal.\n");
+ return;
+ }
+#if !defined(__GO32__)
+#ifdef TIOCGPGRP
+ printf_filtered ("Inferior's terminal status (currently saved by GDB):\n");
- printf ("Inferior's terminal status (currently saved by GDB):\n");
+ printf_filtered ("owner pgrp = %d, fcntl flags = 0x%x.\n",
+ pgrp_inferior, tflags_inferior);
+#endif /* TIOCGPGRP */
#ifdef HAVE_TERMIO
- printf ("fcntl flags = 0x%x, c_iflag = 0x%x, c_oflag = 0x%x,\n",
- tflags_inferior, sg_inferior.c_iflag, sg_inferior.c_oflag);
- printf ("c_cflag = 0x%x, c_lflag = 0x%x, c_line = 0x%x.\n",
+ printf_filtered ("c_iflag = 0x%x, c_oflag = 0x%x,\n",
+ sg_inferior.c_iflag, sg_inferior.c_oflag);
+ printf_filtered ("c_cflag = 0x%x, c_lflag = 0x%x, c_line = 0x%x.\n",
sg_inferior.c_cflag, sg_inferior.c_lflag, sg_inferior.c_line);
- printf ("c_cc: ");
+ printf_filtered ("c_cc: ");
for (i = 0; (i < NCC); i += 1)
- printf ("0x%x ", sg_inferior.c_cc[i]);
- printf ("\n");
+ printf_filtered ("0x%x ", sg_inferior.c_cc[i]);
+ printf_filtered ("\n");
#else /* not HAVE_TERMIO */
- 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_filtered ("sgttyb.sg_flags = 0x%x.\n", sg_inferior.sg_flags);
#endif /* not HAVE_TERMIO */
+
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
+ printf_filtered ("tchars: ");
+ for (i = 0; i < (int)sizeof (struct tchars); i++)
+ printf_filtered ("0x%x ", ((unsigned char *)&tc_inferior)[i]);
+ printf_filtered ("\n");
+#endif
+
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
+ printf_filtered ("ltchars: ");
+ for (i = 0; i < (int)sizeof (struct ltchars); i++)
+ printf_filtered ("0x%x ", ((unsigned char *)<c_inferior)[i]);
+ printf_filtered ("\n");
+#endif
+
+#ifdef TIOCLGET
+ printf_filtered ("lmode: 0x%x\n", lmode_inferior);
+#endif
+#else
+ printf_filtered("This is a DOS machine; there is no terminal state\n");
+#endif
+
}
\f
-static void
-new_tty (ttyname)
+/* 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.
+
+ 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. */
+
+void
+new_tty_prefork (ttyname)
char *ttyname;
{
- register int tty;
- register int fd;
+ /* Save the name for later, for determining whether we and the child
+ are sharing a tty. */
+ inferior_thisrun_terminal = ttyname;
+}
-#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. */
+void
+new_tty ()
+{
+ register int tty;
+ void (*osigttou) ();
- /* Disconnect the child process from our controlling terminal. */
+ if (inferior_thisrun_terminal == 0)
+ return;
+#if !defined(__GO32__)
+#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)
{
+ osigttou = (void (*)()) signal(SIGTTOU, SIG_IGN);
ioctl(tty, TIOCNOTTY, 0);
close(tty);
+ (void) signal(SIGTTOU, osigttou);
}
#endif
- /* Now open the specified new terminal. */
-
- tty = open(ttyname, O_RDWR);
- if (tty == -1)
- _exit(1);
- dup2(tty, 0);
- dup2(tty, 1);
- dup2(tty, 2);
- close(tty);
-}
-\f
-/* Start an inferior process and returns its pid.
- ALLARGS is a string containing shell command to run the program.
- ENV is the environment vector to pass. */
-
-#ifndef SHELL_FILE
-#define SHELL_FILE "/bin/sh"
-#endif
+ /* Now open the specified new terminal. */
-int
-create_inferior (allargs, env)
- char *allargs;
- char **env;
-{
- int pid;
- char *shell_command;
- extern int sys_nerr;
- extern char *sys_errlist[];
- extern int errno;
-
- /* If desired, concat something onto the front of ALLARGS.
- SHELL_COMMAND is the result. */
-#ifdef SHELL_COMMAND_CONCAT
- shell_command = (char *) alloca (strlen (SHELL_COMMAND_CONCAT) + strlen (allargs) + 1);
- strcpy (shell_command, SHELL_COMMAND_CONCAT);
- strcat (shell_command, allargs);
+#ifdef USE_O_NOCTTY
+ tty = open(inferior_thisrun_terminal, O_RDWR | O_NOCTTY);
#else
- shell_command = allargs;
+ tty = open(inferior_thisrun_terminal, O_RDWR);
#endif
-
- /* exec is said to fail if the executable is open. */
- close_exec_file ();
-
- pid = vfork ();
- if (pid < 0)
- perror_with_name ("vfork");
-
- if (pid == 0)
+ if (tty == -1)
{
- char *args[4];
-
-#ifdef TIOCGPGRP
- /* Run inferior in a separate process group. */
- setpgrp (getpid (), getpid ());
-#endif /* TIOCGPGRP */
-
- inferior_thisrun_terminal = inferior_io_terminal;
- if (inferior_io_terminal != 0)
- new_tty (inferior_io_terminal);
-
-/* Not needed on Sun, at least, and loses there
- because it clobbers the superior. */
-/*??? signal (SIGQUIT, SIG_DFL);
- signal (SIGINT, SIG_DFL); */
-
- ptrace (0);
-
- args[0] = "sh";
- args[1] = "-c";
- args[2] = shell_command;
- args[3] = 0;
-
- execve (SHELL_FILE, args, env);
-
- fprintf (stderr, "Cannot exec %s: %s.\n", SHELL_FILE,
- errno < sys_nerr ? sys_errlist[errno] : "unknown error");
- fflush (stderr);
- _exit (0177);
+ print_sys_errmsg (inferior_thisrun_terminal, errno);
+ _exit(1);
}
- return pid;
-}
+ /* 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); }
+ if (tty > 2)
+ close(tty);
+#endif /* !go32*/o
+}
+\f
/* Kill the inferior process. Make us have no inferior. */
+/* ARGSUSED */
static void
-kill_command ()
+kill_command (arg, from_tty)
+ char *arg;
+ int from_tty;
{
- if (remote_debugging)
- return;
if (inferior_pid == 0)
error ("The program is not being run.");
if (!query ("Kill the inferior process? "))
error ("Not confirmed.");
- kill_inferior ();
-}
-
-kill_inferior ()
-{
- if (remote_debugging)
- return;
- if (inferior_pid == 0)
- return;
- ptrace (8, inferior_pid, 0, 0);
- wait (0);
- inferior_died ();
+ target_kill ();
+
+ /* Killing off the inferior can leave us with a core file. If so,
+ print the state we are left in. */
+ if (target_has_stack) {
+ printf_filtered ("In %s,\n", current_target->to_longname);
+ if (selected_frame == NULL)
+ fputs_filtered ("No selected stack frame.\n", stdout);
+ else
+ print_stack_frame (selected_frame, selected_frame_level, 1);
+ }
}
-/* This is used when GDB is exiting. It gives less chance of error.*/
-
-kill_inferior_fast ()
-{
- if (remote_debugging)
- return;
- if (inferior_pid == 0)
- return;
- ptrace (8, inferior_pid, 0, 0);
- wait (0);
-}
+/* The inferior process has died. Long live the inferior! */
-inferior_died ()
+void
+generic_mourn_inferior ()
{
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
- {
- ptrace (step ? 9 : 7, inferior_pid, 1, signal);
- if (errno)
- perror_with_name ("ptrace");
- }
-}
-\f
-#ifdef ATTACH_DETACH
-
-/* Start debugging the process whose number is PID. */
-
-attach (pid)
- int pid;
-{
- errno = 0;
- ptrace (PTRACE_ATTACH, pid, 0, 0);
- if (errno)
- perror_with_name ("ptrace");
- attach_flag = 1;
- return pid;
-}
-
-/* Stop debugging the process whose number is PID
- and continue it with signal number SIGNAL.
- SIGNAL = 0 means just continue it. */
-
-void
-detach (signal)
- int signal;
-{
- errno = 0;
- ptrace (PTRACE_DETACH, inferior_pid, 1, signal);
- if (errno)
- perror_with_name ("ptrace");
- attach_flag = 0;
-}
-#endif /* ATTACH_DETACH */
-\f
-#ifdef NEW_SUN_PTRACE
-
-void
-fetch_inferior_registers ()
-{
- struct regs inferior_registers;
- struct fp_status inferior_fp_registers;
- extern char registers[];
-
- if (remote_debugging)
- remote_fetch_registers (registers);
- else
- {
- 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);
- }
-}
-
-/* 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;
-{
- struct regs inferior_registers;
- struct fp_status inferior_fp_registers;
- extern char registers[];
-
- if (remote_debugging)
- remote_store_registers (registers);
- else
- {
- 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);
- }
-}
-
-#else
-#ifdef HP9K320
-
-#define FP_REGISTER_ADDR_DIFF(u, regno) \
- (((char *) (FP_REGISTER_ADDR (u, regno))) - ((char *) &(u)))
-
-#define INFERIOR_AR0(u) \
- ((ptrace \
- (PT_RUAREA, inferior_pid, ((char *) &u.u_ar0 - (char *) &u), 0)) \
- - KERNEL_U_ADDR)
-
-static void
-fetch_inferior_register (regno, regaddr)
- register int regno;
- register unsigned int regaddr;
-{
-#ifndef HPUX_VERSION_5
- if (regno == PS_REGNUM)
- {
- union { int i; short s[2]; } ps_val;
- int regval;
-
- ps_val.i = (ptrace (PT_RUAREA, inferior_pid, regaddr, 0));
- regval = ps_val.s[0];
- supply_register (regno, ®val);
- }
- else
-#endif /* not HPUX_VERSION_5 */
- {
- char buf[MAX_REGISTER_RAW_SIZE];
- register int i;
+ registers_changed ();
- for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
- {
- *(int *) &buf[i] = ptrace (PT_RUAREA, inferior_pid, regaddr, 0);
- regaddr += sizeof (int);
- }
- supply_register (regno, buf);
- }
- return;
-}
-
-static void
-store_inferior_register_1 (regno, regaddr, value)
- int regno;
- unsigned int regaddr;
- int value;
-{
- errno = 0;
- ptrace (PT_WUAREA, inferior_pid, regaddr, value);
-#if 0
- /* HP-UX randomly sets errno to non-zero for regno == 25.
- However, the value is correctly written, so ignore errno. */
- if (errno != 0)
- {
- char string_buf[64];
-
- sprintf (string_buf, "writing register number %d", regno);
- perror_with_name (string_buf);
- }
+#ifdef CLEAR_DEFERRED_STORES
+ /* Delete any pending stores to the inferior... */
+ CLEAR_DEFERRED_STORES;
#endif
- return;
-}
-
-static void
-store_inferior_register (regno, regaddr)
- register int regno;
- register unsigned int regaddr;
-{
-#ifndef HPUX_VERSION_5
- if (regno == PS_REGNUM)
- {
- union { int i; short s[2]; } ps_val;
-
- ps_val.i = (ptrace (PT_RUAREA, inferior_pid, regaddr, 0));
- ps_val.s[0] = (read_register (regno));
- store_inferior_register_1 (regno, regaddr, ps_val.i);
- }
- else
-#endif /* not HPUX_VERSION_5 */
- {
- char buf[MAX_REGISTER_RAW_SIZE];
- register int i;
- extern char registers[];
-
- for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
- {
- store_inferior_register_1
- (regno, regaddr,
- (*(int *) ®isters[(REGISTER_BYTE (regno)) + i]));
- regaddr += sizeof (int);
- }
- }
- return;
-}
-
-void
-fetch_inferior_registers ()
-{
- struct user u;
- register int regno;
- register unsigned int ar0_offset;
-
- ar0_offset = (INFERIOR_AR0 (u));
- for (regno = 0; (regno < FP0_REGNUM); regno++)
- fetch_inferior_register (regno, (REGISTER_ADDR (ar0_offset, regno)));
- for (; (regno < NUM_REGS); regno++)
- fetch_inferior_register (regno, (FP_REGISTER_ADDR_DIFF (u, regno)));
-}
-
-/* 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)
- register int regno;
-{
- struct user u;
- register unsigned int ar0_offset;
-
- if (regno >= FP0_REGNUM)
- {
- store_inferior_register (regno, (FP_REGISTER_ADDR_DIFF (u, regno)));
- return;
- }
-
- ar0_offset = (INFERIOR_AR0 (u));
- if (regno >= 0)
- {
- store_inferior_register (regno, (REGISTER_ADDR (ar0_offset, regno)));
- return;
- }
-
- for (regno = 0; (regno < FP0_REGNUM); regno++)
- store_inferior_register (regno, (REGISTER_ADDR (ar0_offset, regno)));
- for (; (regno < NUM_REGS); regno++)
- store_inferior_register (regno, (FP_REGISTER_ADDR_DIFF (u, regno)));
- return;
+ reopen_exec_file ();
+ if (target_has_stack) {
+ set_current_frame ( create_new_frame (read_register (FP_REGNUM),
+ read_pc ()));
+ select_frame (get_current_frame (), 0);
+ } else {
+ set_current_frame (0);
+ select_frame ((FRAME) 0, -1);
+ }
+ /* It is confusing to the user for ignore counts to stick around
+ from previous runs of the inferior. So clear them. */
+ breakpoint_clear_ignore_counts ();
}
-#else /* not HP9K320 */
-
void
-fetch_inferior_registers ()
-{
- 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++)
- {
- 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);
- }
-}
-
-/* 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;
-{
- register unsigned int regaddr;
- char buf[80];
- extern char registers[];
- 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
-
- if (regno >= 0)
- {
- regaddr = register_addr (regno, offset);
- for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int))
- {
- errno = 0;
- ptrace (6, inferior_pid, regaddr,
- *(int *) ®isters[REGISTER_BYTE (regno) + i]);
- if (errno != 0)
- {
- sprintf (buf, "writing register number %d(%d)", regno, i);
- perror_with_name (buf);
- }
- regaddr += sizeof(int);
- }
- }
- else for (regno = 0; regno < NUM_REGS; regno++)
- {
- regaddr = register_addr (regno, offset);
- for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int))
- {
- errno = 0;
- ptrace (6, inferior_pid, regaddr,
- *(int *) ®isters[REGISTER_BYTE (regno) + i]);
- if (errno != 0)
- {
- sprintf (buf, "writing register number %d(%d)", regno, i);
- perror_with_name (buf);
- }
- regaddr += sizeof(int);
- }
- }
-}
-
-#endif /* not HP9K320 */
-#endif /* not NEW_SUN_PTRACE */
-\f
-/* 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;
+child_mourn_inferior ()
{
- 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);
- }
-
- /* Copy appropriate bytes out of the buffer. */
- bcopy ((char *) buffer + (memaddr & (sizeof (int) - 1)), myaddr, len);
-}
-
-/* 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. */
-
-int
-write_inferior_memory (memaddr, myaddr, len)
- CORE_ADDR memaddr;
- char *myaddr;
- int len;
-{
- 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);
-
- /* Write the entire buffer. */
-
- for (i = 0; i < count; i++, addr += sizeof (int))
- {
- errno = 0;
- if (remote_debugging)
- remote_store_word (addr, buffer[i]);
- else
- ptrace (4, inferior_pid, addr, buffer[i]);
- if (errno)
- return errno;
- }
-
- return 0;
+ unpush_target (&child_ops);
+ generic_mourn_inferior ();
}
\f
+#if 0
+/* This function is just for testing, and on some systems (Sony NewsOS
+ 3.2) <sys/user.h> also includes <sys/time.h> which leads to errors
+ (since on this system at least sys/time.h is not protected against
+ multiple inclusion). */
+/* ARGSUSED */
static void
-try_writing_regs_command ()
+try_writing_regs_command (arg, from_tty)
+ char *arg;
+ int from_tty;
{
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)
+ /* A Sun 3/50 or 3/60 (at least) running SunOS 4.0.3 will have a
+ kernel panic if we try to write past the end of the user area.
+ Presumably Sun will fix this bug (it has been reported), but it
+ is tacky to crash the system, so at least on SunOS4 we need to
+ stop writing when we hit the end of the user area. */
+ for (i = 0; i < sizeof (struct user); i += 2)
{
QUIT;
errno = 0;
- value = ptrace (3, inferior_pid, i, 0);
- ptrace (6, inferior_pid, i, value);
+ value = call_ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) i, 0);
+ call_ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) i, value);
if (errno == 0)
{
printf (" Succeeded with address 0x%x; value 0x%x (%d).\n",
printf (" Failed at 0x%x.\n", i);
}
}
+#endif
\f
-static
-initialize ()
+void
+_initialize_inflow ()
{
- add_com ("term-status", class_obscure, term_status_command,
- "Print info on inferior's saved terminal status.");
+ int result;
+ add_info ("terminal", term_info,
+ "Print inferior's saved terminal status.");
+
+#if 0
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.");
+#endif
add_com ("kill", class_run, kill_command,
"Kill execution of program being debugged.");
inferior_pid = 0;
- ioctl (0, TIOCGETP, &sg_ours);
- fcntl (0, F_GETFL, tflags_ours);
+ /* Get all the current tty settings (including whether we have a tty at
+ all!). */
-#ifdef TIOCGLTC
- ioctl (0, TIOCGETC, &tc_ours);
- ioctl (0, TIOCGLTC, <c_ours);
- ioctl (0, TIOCLGET, &lmode_ours);
-#endif /* TIOCGLTC */
+#if !defined(__GO32__)
+ tflags_ours = fcntl (0, F_GETFL, 0);
+ result = ioctl (0, TIOCGETP, &sg_ours);
+ if (result == 0) {
+ gdb_has_a_terminal = 1;
+ /* Get the rest of the tty settings, then... */
+#if defined(TIOCGETC) && !defined(TIOCGETC_BROKEN)
+ ioctl (0, TIOCGETC, &tc_ours);
+#endif
+#if defined(TIOCGLTC) && !defined(TIOCGLTC_BROKEN)
+ ioctl (0, TIOCGLTC, <c_ours);
+#endif
+#ifdef TIOCLGET
+ ioctl (0, TIOCLGET, &lmode_ours);
+#endif
#ifdef TIOCGPGRP
- ioctl (0, TIOCGPGRP, &pgrp_ours);
+ ioctl (0, TIOCGPGRP, &pgrp_ours);
#endif /* TIOCGPGRP */
+ } else {
+ gdb_has_a_terminal = 0;
+ }
+#else
+ gdb_has_a_terminal = 0;
+#endif
+
terminal_is_ours = 1;
}
-
-END_FILE