-/* Convex stuff for GDB.
- Copyright (C) 1990-1991 Free Software Foundation, Inc.
+/* Convex host-dependent code for GDB.
+ Copyright 1990, 1991, 1992 Free Software Foundation, Inc.
This file is part of GDB.
#include "gdbcmd.h"
-/* Nonzero if we are debugging an attached outside process
- rather than an inferior. */
-
-extern int attach_flag;
-
-
-
static struct type *vector_type ();
static long *read_vector_register ();
static long *read_vector_register_1 ();
static void write_vector_register ();
-static REGISTER_TYPE read_comm_register ();
+static unsigned LONGEST read_comm_register ();
static void write_comm_register ();
static void convex_cont_command ();
static void thread_continue ();
int
call_ptrace (request, pid, procaddr, buf)
- int request, pid, procaddr, buf;
+ int request, pid;
+ PTRACE_ARG3_TYPE procaddr;
+ int buf;
{
if (request == 0)
return;
len -= i;
}
if (errno)
- bzero (myaddr, len);
+ memset (myaddr, '\0', len);
return errno;
}
and started up. We must do a pattach to grab it for debugging.
Also, intercept the CONT command by altering its dispatch address. */
+/* FIXME: This used to be called from a macro CREATE_INFERIOR_HOOK.
+ But now init_trace_fun is in the same place. So re-write this to
+ use the init_trace_fun (making convex a debugging target). */
create_inferior_hook (pid)
int pid;
target_mourn_inferior ();
}
-/* This is used when GDB is exiting. It gives less chance of error.*/
-
-kill_inferior_fast ()
-{
- if (inferior_pid == 0)
- return;
- ioctl (inferior_fd, PIXTERMINATE, 0);
- wait (0);
-}
-
/* Read vector register REG, and return a pointer to the value. */
static long *
ps.pi_thread = inferior_thread;
ioctl (inferior_fd, PIXRDVREGS, &ps);
if (errno)
- bzero (&vector_registers, sizeof vector_registers);
+ memset (&vector_registers, '\0', sizeof vector_registers);
}
else if (corechan >= 0)
{
static void
write_vector_register (reg, element, val)
int reg, element;
- REGISTER_TYPE val;
+ unsigned LONGEST val;
{
if (have_inferior_p ())
{
/* Return the contents of communication register NUM. */
-static REGISTER_TYPE
+static unsigned LONGEST
read_comm_register (num)
int num;
{
static void
write_comm_register (num, val)
int num;
- REGISTER_TYPE val;
+ unsigned LONGEST val;
{
if (have_inferior_p ())
{
select_thread (signal_stack->thread);
+ FIXME: need to convert from host sig.
stop_signal = signal_stack->signo;
stop_sigcode = signal_stack->subsig;
if (thread == inferior_thread)
return;
- bcopy (registers, thread_regs[inferior_thread], REGISTER_BYTES);
+ memcpy (thread_regs[inferior_thread], registers, REGISTER_BYTES);
ps.pi_thread = inferior_thread = thread;
if (have_inferior_p ())
ioctl (inferior_fd, PISETRWTID, &ps);
- bcopy (thread_regs[thread], registers, REGISTER_BYTES);
+ memcpy (registers, thread_regs[thread], REGISTER_BYTES);
}
/* Routine to set or clear a psw bit in the psw and also all psws
make_cleanup (free, filename);
if (have_inferior_p ())
- error ("To look at a core file, you must kill the inferior with \"kill\".");
+ error ("To look at a core file, you must kill the program with \"kill\".");
corechan = open (filename, O_RDONLY, 0);
if (corechan < 0)
perror_with_name (filename);
core_aouthdr.a_magic = 0;
flush_cached_frames ();
- set_current_frame (create_new_frame (read_register (FP_REGNUM),
- read_pc ()));
select_frame (get_current_frame (), 0);
validate_files ();