OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [i386mach-nat.c] - Diff between revs 104 and 105

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 104 Rev 105
/* Native dependent code for Mach 386's for GDB, the GNU debugger.
/* Native dependent code for Mach 386's for GDB, the GNU debugger.
   Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
   Copyright (C) 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
 
 
   This file is part of GDB.
   This file is part of GDB.
 
 
   This program is free software; you can redistribute it and/or modify
   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
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   (at your option) any later version.
 
 
   This program is distributed in the hope that it will be useful,
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   GNU General Public License for more details.
 
 
   You should have received a copy of the GNU General Public License
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330,
   Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.  */
   Boston, MA 02111-1307, USA.  */
 
 
#include "defs.h"
#include "defs.h"
#include "frame.h"
#include "frame.h"
#include "inferior.h"
#include "inferior.h"
#include "gdbcore.h"
#include "gdbcore.h"
 
 
#include <sys/param.h>
#include <sys/param.h>
#include <sys/dir.h>
#include <sys/dir.h>
#include <sys/user.h>
#include <sys/user.h>
#include <signal.h>
#include <signal.h>
#include <sys/ioctl.h>
#include <sys/ioctl.h>
#include <fcntl.h>
#include <fcntl.h>
 
 
#include <sys/ptrace.h>
#include <sys/ptrace.h>
#include <machine/reg.h>
#include <machine/reg.h>
 
 
#include <sys/file.h>
#include <sys/file.h>
#include "gdb_stat.h"
#include "gdb_stat.h"
#include <sys/core.h>
#include <sys/core.h>
 
 
static void fetch_core_registers PARAMS ((char *, unsigned, int, CORE_ADDR));
static void fetch_core_registers PARAMS ((char *, unsigned, int, CORE_ADDR));
 
 
void
void
fetch_inferior_registers (regno)
fetch_inferior_registers (regno)
     int regno;                 /* Original value discarded */
     int regno;                 /* Original value discarded */
{
{
  struct regs inferior_registers;
  struct regs inferior_registers;
  struct fp_state inferior_fp_registers;
  struct fp_state inferior_fp_registers;
 
 
  registers_fetched ();
  registers_fetched ();
 
 
  ptrace (PTRACE_GETREGS, inferior_pid,
  ptrace (PTRACE_GETREGS, inferior_pid,
          (PTRACE_ARG3_TYPE) & inferior_registers);
          (PTRACE_ARG3_TYPE) & inferior_registers);
  ptrace (PTRACE_GETFPREGS, inferior_pid,
  ptrace (PTRACE_GETFPREGS, inferior_pid,
          (PTRACE_ARG3_TYPE) & inferior_fp_registers);
          (PTRACE_ARG3_TYPE) & inferior_fp_registers);
 
 
  memcpy (registers, &inferior_registers, sizeof inferior_registers);
  memcpy (registers, &inferior_registers, sizeof inferior_registers);
 
 
  memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)],
  memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)],
          inferior_fp_registers.f_st,
          inferior_fp_registers.f_st,
          sizeof inferior_fp_registers.f_st);
          sizeof inferior_fp_registers.f_st);
  memcpy (&registers[REGISTER_BYTE (FPC_REGNUM)],
  memcpy (&registers[REGISTER_BYTE (FPC_REGNUM)],
          &inferior_fp_registers.f_ctrl,
          &inferior_fp_registers.f_ctrl,
          sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st);
          sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st);
}
}
 
 
/* Store our register values back into the inferior.
/* Store our register values back into the inferior.
   If REGNO is -1, do this for all registers.
   If REGNO is -1, do this for all registers.
   Otherwise, REGNO specifies which register (so we can save time).  */
   Otherwise, REGNO specifies which register (so we can save time).  */
 
 
void
void
store_inferior_registers (regno)
store_inferior_registers (regno)
     int regno;
     int regno;
{
{
  struct regs inferior_registers;
  struct regs inferior_registers;
  struct fp_state inferior_fp_registers;
  struct fp_state inferior_fp_registers;
 
 
  memcpy (&inferior_registers, registers, 20 * 4);
  memcpy (&inferior_registers, registers, 20 * 4);
 
 
  memcpy (inferior_fp_registers.f_st, &registers[REGISTER_BYTE (FP0_REGNUM)],
  memcpy (inferior_fp_registers.f_st, &registers[REGISTER_BYTE (FP0_REGNUM)],
          sizeof inferior_fp_registers.f_st);
          sizeof inferior_fp_registers.f_st);
  memcpy (&inferior_fp_registers.f_ctrl,
  memcpy (&inferior_fp_registers.f_ctrl,
          &registers[REGISTER_BYTE (FPC_REGNUM)],
          &registers[REGISTER_BYTE (FPC_REGNUM)],
          sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st);
          sizeof inferior_fp_registers - sizeof inferior_fp_registers.f_st);
 
 
#ifdef PTRACE_FP_BUG
#ifdef PTRACE_FP_BUG
  if (regno == FP_REGNUM || regno == -1)
  if (regno == FP_REGNUM || regno == -1)
    /* Storing the frame pointer requires a gross hack, in which an
    /* Storing the frame pointer requires a gross hack, in which an
       instruction that moves eax into ebp gets single-stepped.  */
       instruction that moves eax into ebp gets single-stepped.  */
    {
    {
      int stack = inferior_registers.r_reg[SP_REGNUM];
      int stack = inferior_registers.r_reg[SP_REGNUM];
      int stuff = ptrace (PTRACE_PEEKDATA, inferior_pid,
      int stuff = ptrace (PTRACE_PEEKDATA, inferior_pid,
                          (PTRACE_ARG3_TYPE) stack);
                          (PTRACE_ARG3_TYPE) stack);
      int reg = inferior_registers.r_reg[EAX];
      int reg = inferior_registers.r_reg[EAX];
      inferior_registers.r_reg[EAX] =
      inferior_registers.r_reg[EAX] =
        inferior_registers.r_reg[FP_REGNUM];
        inferior_registers.r_reg[FP_REGNUM];
      ptrace (PTRACE_SETREGS, inferior_pid,
      ptrace (PTRACE_SETREGS, inferior_pid,
              (PTRACE_ARG3_TYPE) & inferior_registers);
              (PTRACE_ARG3_TYPE) & inferior_registers);
      ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0xc589);
      ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0xc589);
      ptrace (PTRACE_SINGLESTEP, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0);
      ptrace (PTRACE_SINGLESTEP, inferior_pid, (PTRACE_ARG3_TYPE) stack, 0);
      wait (0);
      wait (0);
      ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, stuff);
      ptrace (PTRACE_POKEDATA, inferior_pid, (PTRACE_ARG3_TYPE) stack, stuff);
      inferior_registers.r_reg[EAX] = reg;
      inferior_registers.r_reg[EAX] = reg;
    }
    }
#endif
#endif
  ptrace (PTRACE_SETREGS, inferior_pid,
  ptrace (PTRACE_SETREGS, inferior_pid,
          (PTRACE_ARG3_TYPE) & inferior_registers);
          (PTRACE_ARG3_TYPE) & inferior_registers);
  ptrace (PTRACE_SETFPREGS, inferior_pid,
  ptrace (PTRACE_SETFPREGS, inferior_pid,
          (PTRACE_ARG3_TYPE) & inferior_fp_registers);
          (PTRACE_ARG3_TYPE) & inferior_fp_registers);
}
}
 
 
 
 
 
 
/* Work with core files, for GDB. */
/* Work with core files, for GDB. */
 
 
static void
static void
fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
fetch_core_registers (core_reg_sect, core_reg_size, which, reg_addr)
     char *core_reg_sect;
     char *core_reg_sect;
     unsigned core_reg_size;
     unsigned core_reg_size;
     int which;
     int which;
     CORE_ADDR reg_addr;        /* Unused in this version */
     CORE_ADDR reg_addr;        /* Unused in this version */
{
{
  int val;
  int val;
 
 
  switch (which)
  switch (which)
    {
    {
    case 0:
    case 0:
    case 1:
    case 1:
      memcpy (registers, core_reg_sect, core_reg_size);
      memcpy (registers, core_reg_sect, core_reg_size);
      break;
      break;
 
 
    case 2:
    case 2:
#ifdef FP0_REGNUM
#ifdef FP0_REGNUM
      memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)],
      memcpy (&registers[REGISTER_BYTE (FP0_REGNUM)],
              core_reg_sect,
              core_reg_sect,
              core_reg_size);   /* FIXME, probably bogus */
              core_reg_size);   /* FIXME, probably bogus */
#endif
#endif
#ifdef FPC_REGNUM
#ifdef FPC_REGNUM
      memcpy (&registers[REGISTER_BYTE (FPC_REGNUM)],
      memcpy (&registers[REGISTER_BYTE (FPC_REGNUM)],
              &corestr.c_fpu.f_fpstatus.f_ctrl,
              &corestr.c_fpu.f_fpstatus.f_ctrl,
              sizeof corestr.c_fpu.f_fpstatus -
              sizeof corestr.c_fpu.f_fpstatus -
              sizeof corestr.c_fpu.f_fpstatus.f_st);
              sizeof corestr.c_fpu.f_fpstatus.f_st);
#endif
#endif
      break;
      break;
    }
    }
}
}


 
 
/* Register that we are able to handle i386mach core file formats.
/* Register that we are able to handle i386mach core file formats.
   FIXME: is this really bfd_target_unknown_flavour? */
   FIXME: is this really bfd_target_unknown_flavour? */
 
 
static struct core_fns i386mach_core_fns =
static struct core_fns i386mach_core_fns =
{
{
  bfd_target_unknown_flavour,           /* core_flavour */
  bfd_target_unknown_flavour,           /* core_flavour */
  default_check_format,                 /* check_format */
  default_check_format,                 /* check_format */
  default_core_sniffer,                 /* core_sniffer */
  default_core_sniffer,                 /* core_sniffer */
  fetch_core_registers,                 /* core_read_registers */
  fetch_core_registers,                 /* core_read_registers */
  NULL                                  /* next */
  NULL                                  /* next */
};
};
 
 
void
void
_initialize_core_i386mach ()
_initialize_core_i386mach ()
{
{
  add_core_fns (&i386mach_core_fns);
  add_core_fns (&i386mach_core_fns);
}
}
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.