X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Fm68klinux-nat.c;h=3be7c14b1f885b624e680660847ca9611317db77;hb=4723351a020971562868ce3d500be1824e820a51;hp=cf47dd1dd0d5d88b3aa3b9c0423860ae58236dc3;hpb=32eeb91a760126d6e7717f0220dee3fabd31877e;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/m68klinux-nat.c b/gdb/m68klinux-nat.c index cf47dd1dd0..3be7c14b1f 100644 --- a/gdb/m68klinux-nat.c +++ b/gdb/m68klinux-nat.c @@ -1,13 +1,12 @@ /* Motorola m68k native support for GNU/Linux. - Copyright 1996, 1998, 2000, 2001, 2002 Free Software Foundation, - Inc. + Copyright (C) 1996, 1998, 2000-2012 Free Software Foundation, Inc. This file is part of GDB. 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 + the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, @@ -16,9 +15,7 @@ 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. */ + along with this program. If not, see . */ #include "defs.h" #include "frame.h" @@ -27,13 +24,11 @@ #include "gdbcore.h" #include "gdb_string.h" #include "regcache.h" +#include "target.h" +#include "linux-nat.h" #include "m68k-tdep.h" -#ifdef USG -#include -#endif - #include #include #include @@ -53,8 +48,18 @@ #include "floatformat.h" #include "target.h" + +/* Prototypes for supply_gregset etc. */ +#include "gregset.h" + +/* Defines ps_err_e, struct ps_prochandle. */ +#include "gdb_proc_service.h" + +#ifndef PTRACE_GET_THREAD_AREA +#define PTRACE_GET_THREAD_AREA 25 +#endif -/* This table must line up with REGISTER_NAMES in tm-m68k.h */ +/* This table must line up with gdbarch_register_name in "m68k-tdep.c". */ static const int regmap[] = { PT_D0, PT_D1, PT_D2, PT_D3, PT_D4, PT_D5, PT_D6, PT_D7, @@ -71,20 +76,20 @@ static const int regmap[] = #define NUM_GREGS (18) #define MAX_NUM_REGS (NUM_GREGS + 11) -int +static int getregs_supplies (int regno) { return 0 <= regno && regno < NUM_GREGS; } -int +static int getfpregs_supplies (int regno) { - return FP0_REGNUM <= regno && regno <= M68K_FPI_REGNUM; + return M68K_FP0_REGNUM <= regno && regno <= M68K_FPI_REGNUM; } /* Does the current host support the GETREGS request? */ -int have_ptrace_getregs = +static int have_ptrace_getregs = #ifdef HAVE_PTRACE_GETREGS 1 #else @@ -94,142 +99,95 @@ int have_ptrace_getregs = -/* BLOCKEND is the value of u.u_ar0, and points to the place where GS - is stored. */ - -int -m68k_linux_register_u_addr (int blockend, int regnum) -{ - return (blockend + 4 * regmap[regnum]); -} - - /* Fetching registers directly from the U area, one at a time. */ -/* FIXME: This duplicates code from `inptrace.c'. The problem is that we - define FETCH_INFERIOR_REGISTERS since we want to use our own versions - of {fetch,store}_inferior_registers that use the GETREGS request. This - means that the code in `infptrace.c' is #ifdef'd out. But we need to - fall back on that code when GDB is running on top of a kernel that - doesn't support the GETREGS request. */ - -#ifndef PT_READ_U -#define PT_READ_U PTRACE_PEEKUSR -#endif -#ifndef PT_WRITE_U -#define PT_WRITE_U PTRACE_POKEUSR -#endif - -/* Default the type of the ptrace transfer to int. */ -#ifndef PTRACE_XFER_TYPE -#define PTRACE_XFER_TYPE int -#endif - /* Fetch one register. */ static void -fetch_register (int regno) +fetch_register (struct regcache *regcache, int regno) { - /* This isn't really an address. But ptrace thinks of it as one. */ - CORE_ADDR regaddr; - char mess[128]; /* For messages */ - register int i; - unsigned int offset; /* Offset of registers within the u area. */ - char buf[MAX_REGISTER_RAW_SIZE]; + struct gdbarch *gdbarch = get_regcache_arch (regcache); + long regaddr, val; + int i; + char buf[MAX_REGISTER_SIZE]; int tid; - if (CANNOT_FETCH_REGISTER (regno)) - { - memset (buf, '\0', REGISTER_RAW_SIZE (regno)); /* Supply zeroes */ - supply_register (regno, buf); - return; - } + /* Overload thread id onto process id. */ + tid = TIDGET (inferior_ptid); + if (tid == 0) + tid = PIDGET (inferior_ptid); /* no thread id, just use + process id. */ - /* Overload thread id onto process id */ - if ((tid = TIDGET (inferior_ptid)) == 0) - tid = PIDGET (inferior_ptid); /* no thread id, just use process id */ - - offset = U_REGS_OFFSET; - - regaddr = register_addr (regno, offset); - for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (PTRACE_XFER_TYPE)) + regaddr = 4 * regmap[regno]; + for (i = 0; i < register_size (gdbarch, regno); i += sizeof (long)) { errno = 0; - *(PTRACE_XFER_TYPE *) & buf[i] = ptrace (PT_READ_U, tid, - (PTRACE_ARG3_TYPE) regaddr, 0); - regaddr += sizeof (PTRACE_XFER_TYPE); + val = ptrace (PTRACE_PEEKUSER, tid, regaddr, 0); + memcpy (&buf[i], &val, sizeof (long)); + regaddr += sizeof (long); if (errno != 0) - { - sprintf (mess, "reading register %s (#%d)", - REGISTER_NAME (regno), regno); - perror_with_name (mess); - } + error (_("Couldn't read register %s (#%d): %s."), + gdbarch_register_name (gdbarch, regno), + regno, safe_strerror (errno)); } - supply_register (regno, buf); + regcache_raw_supply (regcache, regno, buf); } /* Fetch register values from the inferior. If REGNO is negative, 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 -old_fetch_inferior_registers (int regno) +static void +old_fetch_inferior_registers (struct regcache *regcache, int regno) { if (regno >= 0) { - fetch_register (regno); + fetch_register (regcache, regno); } else { - for (regno = 0; regno < NUM_REGS; regno++) + for (regno = 0; + regno < gdbarch_num_regs (get_regcache_arch (regcache)); + regno++) { - fetch_register (regno); + fetch_register (regcache, regno); } } } -/* Store one register. */ +/* Store one register. */ static void -store_register (int regno) +store_register (const struct regcache *regcache, int regno) { - /* This isn't really an address. But ptrace thinks of it as one. */ - CORE_ADDR regaddr; - char mess[128]; /* For messages */ - register int i; - unsigned int offset; /* Offset of registers within the u area. */ + struct gdbarch *gdbarch = get_regcache_arch (regcache); + long regaddr, val; + int i; int tid; - char *buf = alloca (MAX_REGISTER_RAW_SIZE); - - if (CANNOT_STORE_REGISTER (regno)) - { - return; - } - - /* Overload thread id onto process id */ - if ((tid = TIDGET (inferior_ptid)) == 0) - tid = PIDGET (inferior_ptid); /* no thread id, just use process id */ + char buf[MAX_REGISTER_SIZE]; - offset = U_REGS_OFFSET; + /* Overload thread id onto process id. */ + tid = TIDGET (inferior_ptid); + if (tid == 0) + tid = PIDGET (inferior_ptid); /* no thread id, just use + process id. */ - regaddr = register_addr (regno, offset); + regaddr = 4 * regmap[regno]; - /* Put the contents of regno into a local buffer */ - regcache_collect (regno, buf); + /* Put the contents of regno into a local buffer. */ + regcache_raw_collect (regcache, regno, buf); - /* Store the local buffer into the inferior a chunk at the time. */ - for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (PTRACE_XFER_TYPE)) + /* Store the local buffer into the inferior a chunk at the time. */ + for (i = 0; i < register_size (gdbarch, regno); i += sizeof (long)) { errno = 0; - ptrace (PT_WRITE_U, tid, (PTRACE_ARG3_TYPE) regaddr, - *(PTRACE_XFER_TYPE *) (buf + i)); - regaddr += sizeof (PTRACE_XFER_TYPE); + memcpy (&val, &buf[i], sizeof (long)); + ptrace (PTRACE_POKEUSER, tid, regaddr, val); + regaddr += sizeof (long); if (errno != 0) - { - sprintf (mess, "writing register %s (#%d)", - REGISTER_NAME (regno), regno); - perror_with_name (mess); - } + error (_("Couldn't write register %s (#%d): %s."), + gdbarch_register_name (gdbarch, regno), + regno, safe_strerror (errno)); } } @@ -237,64 +195,58 @@ store_register (int regno) If REGNO is negative, do this for all registers. Otherwise, REGNO specifies which register (so we can save time). */ -void -old_store_inferior_registers (int regno) +static void +old_store_inferior_registers (const struct regcache *regcache, int regno) { if (regno >= 0) { - store_register (regno); + store_register (regcache, regno); } else { - for (regno = 0; regno < NUM_REGS; regno++) + for (regno = 0; + regno < gdbarch_num_regs (get_regcache_arch (regcache)); + regno++) { - store_register (regno); + store_register (regcache, regno); } } } /* Given a pointer to a general register set in /proc format (elf_gregset_t *), unpack the register contents and supply - them as gdb's idea of the current register values. */ - - -/* Note both m68k-tdep.c and m68klinux-nat.c contain definitions - for supply_gregset and supply_fpregset. The definitions - in m68k-tdep.c are valid if USE_PROC_FS is defined. Otherwise, - the definitions in m68klinux-nat.c will be used. This is a - bit of a hack. The supply_* routines do not belong in - *_tdep.c files. But, there are several lynx ports that currently - depend on these definitions. */ - -#ifndef USE_PROC_FS - -/* Prototypes for supply_gregset etc. */ -#include "gregset.h" + them as gdb's idea of the current register values. */ void -supply_gregset (elf_gregset_t *gregsetp) +supply_gregset (struct regcache *regcache, const elf_gregset_t *gregsetp) { - elf_greg_t *regp = (elf_greg_t *) gregsetp; + struct gdbarch *gdbarch = get_regcache_arch (regcache); + const elf_greg_t *regp = (const elf_greg_t *) gregsetp; int regi; - for (regi = M68K_D0_REGNUM; regi <= SP_REGNUM; regi++) - supply_register (regi, (char *) ®p[regmap[regi]]); - supply_register (PS_REGNUM, (char *) ®p[PT_SR]); - supply_register (PC_REGNUM, (char *) ®p[PT_PC]); + for (regi = M68K_D0_REGNUM; + regi <= gdbarch_sp_regnum (gdbarch); + regi++) + regcache_raw_supply (regcache, regi, ®p[regmap[regi]]); + regcache_raw_supply (regcache, gdbarch_ps_regnum (gdbarch), + ®p[PT_SR]); + regcache_raw_supply (regcache, + gdbarch_pc_regnum (gdbarch), ®p[PT_PC]); } /* Fill register REGNO (if it is a general-purpose register) in *GREGSETPS with the value in GDB's register array. If REGNO is -1, do this for all registers. */ void -fill_gregset (elf_gregset_t *gregsetp, int regno) +fill_gregset (const struct regcache *regcache, + elf_gregset_t *gregsetp, int regno) { elf_greg_t *regp = (elf_greg_t *) gregsetp; int i; for (i = 0; i < NUM_GREGS; i++) - if ((regno == -1 || regno == i)) - regcache_collect (i, regp + regmap[i]); + if (regno == -1 || regno == i) + regcache_raw_collect (regcache, i, regp + regmap[i]); } #ifdef HAVE_PTRACE_GETREGS @@ -303,7 +255,7 @@ fill_gregset (elf_gregset_t *gregsetp, int regno) store their values in GDB's register array. */ static void -fetch_regs (int tid) +fetch_regs (struct regcache *regcache, int tid) { elf_gregset_t regs; @@ -317,33 +269,38 @@ fetch_regs (int tid) return; } - perror_with_name ("Couldn't get registers"); + perror_with_name (_("Couldn't get registers")); } - supply_gregset (®s); + supply_gregset (regcache, (const elf_gregset_t *) ®s); } /* Store all valid general-purpose registers in GDB's register array into the process/thread specified by TID. */ static void -store_regs (int tid, int regno) +store_regs (const struct regcache *regcache, int tid, int regno) { elf_gregset_t regs; if (ptrace (PTRACE_GETREGS, tid, 0, (int) ®s) < 0) - perror_with_name ("Couldn't get registers"); + perror_with_name (_("Couldn't get registers")); - fill_gregset (®s, regno); + fill_gregset (regcache, ®s, regno); if (ptrace (PTRACE_SETREGS, tid, 0, (int) ®s) < 0) - perror_with_name ("Couldn't write registers"); + perror_with_name (_("Couldn't write registers")); } #else -static void fetch_regs (int tid) {} -static void store_regs (int tid, int regno) {} +static void fetch_regs (struct regcache *regcache, int tid) +{ +} + +static void store_regs (const struct regcache *regcache, int tid, int regno) +{ +} #endif @@ -351,21 +308,25 @@ static void store_regs (int tid, int regno) {} /* Transfering floating-point registers between GDB, inferiors and cores. */ /* What is the address of fpN within the floating-point register set F? */ -#define FPREG_ADDR(f, n) ((char *) &(f)->fpregs[(n) * 3]) +#define FPREG_ADDR(f, n) (&(f)->fpregs[(n) * 3]) /* Fill GDB's register array with the floating-point register values in *FPREGSETP. */ void -supply_fpregset (elf_fpregset_t *fpregsetp) +supply_fpregset (struct regcache *regcache, const elf_fpregset_t *fpregsetp) { + struct gdbarch *gdbarch = get_regcache_arch (regcache); int regi; - for (regi = FP0_REGNUM; regi < FP0_REGNUM + 8; regi++) - supply_register (regi, FPREG_ADDR (fpregsetp, regi - FP0_REGNUM)); - supply_register (M68K_FPC_REGNUM, (char *) &fpregsetp->fpcntl[0]); - supply_register (M68K_FPS_REGNUM, (char *) &fpregsetp->fpcntl[1]); - supply_register (M68K_FPI_REGNUM, (char *) &fpregsetp->fpcntl[2]); + for (regi = gdbarch_fp0_regnum (gdbarch); + regi < gdbarch_fp0_regnum (gdbarch) + 8; regi++) + regcache_raw_supply (regcache, regi, + FPREG_ADDR (fpregsetp, + regi - gdbarch_fp0_regnum (gdbarch))); + regcache_raw_supply (regcache, M68K_FPC_REGNUM, &fpregsetp->fpcntl[0]); + regcache_raw_supply (regcache, M68K_FPS_REGNUM, &fpregsetp->fpcntl[1]); + regcache_raw_supply (regcache, M68K_FPI_REGNUM, &fpregsetp->fpcntl[2]); } /* Fill register REGNO (if it is a floating-point register) in @@ -373,19 +334,25 @@ supply_fpregset (elf_fpregset_t *fpregsetp) do this for all registers. */ void -fill_fpregset (elf_fpregset_t *fpregsetp, int regno) +fill_fpregset (const struct regcache *regcache, + elf_fpregset_t *fpregsetp, int regno) { + struct gdbarch *gdbarch = get_regcache_arch (regcache); int i; /* Fill in the floating-point registers. */ - for (i = FP0_REGNUM; i < FP0_REGNUM + 8; i++) + for (i = gdbarch_fp0_regnum (gdbarch); + i < gdbarch_fp0_regnum (gdbarch) + 8; i++) if (regno == -1 || regno == i) - regcache_collect (regno, FPREG_ADDR (fpregsetp, regno - FP0_REGNUM)); + regcache_raw_collect (regcache, i, + FPREG_ADDR (fpregsetp, + i - gdbarch_fp0_regnum (gdbarch))); /* Fill in the floating-point control registers. */ for (i = M68K_FPC_REGNUM; i <= M68K_FPI_REGNUM; i++) if (regno == -1 || regno == i) - regcache_collect (regno, (char *) &fpregsetp->fpcntl[regno - M68K_FPC_REGNUM]); + regcache_raw_collect (regcache, i, + &fpregsetp->fpcntl[i - M68K_FPC_REGNUM]); } #ifdef HAVE_PTRACE_GETREGS @@ -394,39 +361,42 @@ fill_fpregset (elf_fpregset_t *fpregsetp, int regno) thier values in GDB's register array. */ static void -fetch_fpregs (int tid) +fetch_fpregs (struct regcache *regcache, int tid) { elf_fpregset_t fpregs; if (ptrace (PTRACE_GETFPREGS, tid, 0, (int) &fpregs) < 0) - perror_with_name ("Couldn't get floating point status"); + perror_with_name (_("Couldn't get floating point status")); - supply_fpregset (&fpregs); + supply_fpregset (regcache, (const elf_fpregset_t *) &fpregs); } /* Store all valid floating-point registers in GDB's register array into the process/thread specified by TID. */ static void -store_fpregs (int tid, int regno) +store_fpregs (const struct regcache *regcache, int tid, int regno) { elf_fpregset_t fpregs; if (ptrace (PTRACE_GETFPREGS, tid, 0, (int) &fpregs) < 0) - perror_with_name ("Couldn't get floating point status"); + perror_with_name (_("Couldn't get floating point status")); - fill_fpregset (&fpregs, regno); + fill_fpregset (regcache, &fpregs, regno); if (ptrace (PTRACE_SETFPREGS, tid, 0, (int) &fpregs) < 0) - perror_with_name ("Couldn't write floating point status"); + perror_with_name (_("Couldn't write floating point status")); } #else -static void fetch_fpregs (int tid) {} -static void store_fpregs (int tid, int regno) {} +static void fetch_fpregs (struct regcache *regcache, int tid) +{ +} -#endif +static void store_fpregs (const struct regcache *regcache, int tid, int regno) +{ +} #endif @@ -436,8 +406,9 @@ static void store_fpregs (int tid, int regno) {} this for all registers (including the floating point and SSE registers). */ -void -fetch_inferior_registers (int regno) +static void +m68k_linux_fetch_inferior_registers (struct target_ops *ops, + struct regcache *regcache, int regno) { int tid; @@ -445,13 +416,14 @@ fetch_inferior_registers (int regno) GETREGS request isn't available. */ if (! have_ptrace_getregs) { - old_fetch_inferior_registers (regno); + old_fetch_inferior_registers (regcache, regno); return; } /* GNU/Linux LWP ID's are process ID's. */ - if ((tid = TIDGET (inferior_ptid)) == 0) - tid = PIDGET (inferior_ptid); /* Not a threaded program. */ + tid = TIDGET (inferior_ptid); + if (tid == 0) + tid = PIDGET (inferior_ptid); /* Not a threaded program. */ /* Use the PTRACE_GETFPXREGS request whenever possible, since it transfers more registers in one system call, and we'll cache the @@ -459,40 +431,41 @@ fetch_inferior_registers (int regno) zero. */ if (regno == -1) { - fetch_regs (tid); + fetch_regs (regcache, tid); /* The call above might reset `have_ptrace_getregs'. */ if (! have_ptrace_getregs) { - old_fetch_inferior_registers (-1); + old_fetch_inferior_registers (regcache, -1); return; } - fetch_fpregs (tid); + fetch_fpregs (regcache, tid); return; } if (getregs_supplies (regno)) { - fetch_regs (tid); + fetch_regs (regcache, tid); return; } if (getfpregs_supplies (regno)) { - fetch_fpregs (tid); + fetch_fpregs (regcache, tid); return; } internal_error (__FILE__, __LINE__, - "Got request for bad register number %d.", regno); + _("Got request for bad register number %d."), regno); } /* Store register REGNO back into the child process. If REGNO is -1, do this for all registers (including the floating point and SSE registers). */ -void -store_inferior_registers (int regno) +static void +m68k_linux_store_inferior_registers (struct target_ops *ops, + struct regcache *regcache, int regno) { int tid; @@ -500,12 +473,13 @@ store_inferior_registers (int regno) SETREGS request isn't available. */ if (! have_ptrace_getregs) { - old_store_inferior_registers (regno); + old_store_inferior_registers (regcache, regno); return; } /* GNU/Linux LWP ID's are process ID's. */ - if ((tid = TIDGET (inferior_ptid)) == 0) + tid = TIDGET (inferior_ptid); + if (tid == 0) tid = PIDGET (inferior_ptid); /* Not a threaded program. */ /* Use the PTRACE_SETFPREGS requests whenever possible, since it @@ -513,25 +487,25 @@ store_inferior_registers (int regno) store_fpregs can fail, and return zero. */ if (regno == -1) { - store_regs (tid, regno); - store_fpregs (tid, regno); + store_regs (regcache, tid, regno); + store_fpregs (regcache, tid, regno); return; } if (getregs_supplies (regno)) { - store_regs (tid, regno); + store_regs (regcache, tid, regno); return; } if (getfpregs_supplies (regno)) { - store_fpregs (tid, regno); + store_fpregs (regcache, tid, regno); return; } internal_error (__FILE__, __LINE__, - "Got request to store bad register number %d.", regno); + _("Got request to store bad register number %d."), regno); } /* Interpreting register set info found in core files. */ @@ -553,7 +527,8 @@ store_inferior_registers (int regno) REG_ADDR isn't used on GNU/Linux. */ static void -fetch_core_registers (char *core_reg_sect, unsigned core_reg_size, +fetch_core_registers (struct regcache *regcache, + char *core_reg_sect, unsigned core_reg_size, int which, CORE_ADDR reg_addr) { elf_gregset_t gregset; @@ -563,21 +538,21 @@ fetch_core_registers (char *core_reg_sect, unsigned core_reg_size, { case 0: if (core_reg_size != sizeof (gregset)) - warning ("Wrong size gregset in core file."); + warning (_("Wrong size gregset in core file.")); else { memcpy (&gregset, core_reg_sect, sizeof (gregset)); - supply_gregset (&gregset); + supply_gregset (regcache, (const elf_gregset_t *) &gregset); } break; case 2: if (core_reg_size != sizeof (fpregset)) - warning ("Wrong size fpregset in core file."); + warning (_("Wrong size fpregset in core file.")); else { memcpy (&fpregset, core_reg_sect, sizeof (fpregset)); - supply_fpregset (&fpregset); + supply_fpregset (regcache, (const elf_fpregset_t *) &fpregset); } break; @@ -590,12 +565,24 @@ fetch_core_registers (char *core_reg_sect, unsigned core_reg_size, } -int -kernel_u_size (void) +/* Fetch the thread-local storage pointer for libthread_db. */ + +ps_err_e +ps_get_thread_area (const struct ps_prochandle *ph, + lwpid_t lwpid, int idx, void **base) { - return (sizeof (struct user)); + if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) < 0) + return PS_ERR; + + /* IDX is the bias from the thread pointer to the beginning of the + thread descriptor. It has to be subtracted due to implementation + quirks in libthread_db. */ + *base = (char *) *base - idx; + + return PS_OK; } + /* Register that we are able to handle GNU/Linux ELF core file formats. */ @@ -608,8 +595,22 @@ static struct core_fns linux_elf_core_fns = NULL /* next */ }; +void _initialize_m68k_linux_nat (void); + void _initialize_m68k_linux_nat (void) { - add_core_fns (&linux_elf_core_fns); + struct target_ops *t; + + /* Fill in the generic GNU/Linux methods. */ + t = linux_target (); + + /* Add our register access methods. */ + t->to_fetch_registers = m68k_linux_fetch_inferior_registers; + t->to_store_registers = m68k_linux_store_inferior_registers; + + /* Register the target. */ + linux_nat_add_target (t); + + deprecated_add_core_fns (&linux_elf_core_fns); }