123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014 |
- /* GNU/Linux/MIPS specific low level interface, for the remote server for GDB.
- Copyright (C) 1995-2022 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 3 of the License, or
- (at your option) any later version.
- 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, see <http://www.gnu.org/licenses/>. */
- #include "server.h"
- #include "linux-low.h"
- #include "nat/gdb_ptrace.h"
- #include <endian.h>
- #include "nat/mips-linux-watch.h"
- #include "gdb_proc_service.h"
- /* Linux target op definitions for the MIPS architecture. */
- class mips_target : public linux_process_target
- {
- public:
- const regs_info *get_regs_info () override;
- const gdb_byte *sw_breakpoint_from_kind (int kind, int *size) override;
- bool supports_z_point_type (char z_type) override;
- protected:
- void low_arch_setup () override;
- bool low_cannot_fetch_register (int regno) override;
- bool low_cannot_store_register (int regno) override;
- bool low_fetch_register (regcache *regcache, int regno) override;
- bool low_supports_breakpoints () override;
- CORE_ADDR low_get_pc (regcache *regcache) override;
- void low_set_pc (regcache *regcache, CORE_ADDR newpc) override;
- bool low_breakpoint_at (CORE_ADDR pc) override;
- int low_insert_point (raw_bkpt_type type, CORE_ADDR addr,
- int size, raw_breakpoint *bp) override;
- int low_remove_point (raw_bkpt_type type, CORE_ADDR addr,
- int size, raw_breakpoint *bp) override;
- bool low_stopped_by_watchpoint () override;
- CORE_ADDR low_stopped_data_address () override;
- void low_collect_ptrace_register (regcache *regcache, int regno,
- char *buf) override;
- void low_supply_ptrace_register (regcache *regcache, int regno,
- const char *buf) override;
- arch_process_info *low_new_process () override;
- void low_delete_process (arch_process_info *info) override;
- void low_new_thread (lwp_info *) override;
- void low_delete_thread (arch_lwp_info *) override;
- void low_new_fork (process_info *parent, process_info *child) override;
- void low_prepare_to_resume (lwp_info *lwp) override;
- };
- /* The singleton target ops object. */
- static mips_target the_mips_target;
- /* Defined in auto-generated file mips-linux.c. */
- void init_registers_mips_linux (void);
- extern const struct target_desc *tdesc_mips_linux;
- /* Defined in auto-generated file mips-dsp-linux.c. */
- void init_registers_mips_dsp_linux (void);
- extern const struct target_desc *tdesc_mips_dsp_linux;
- /* Defined in auto-generated file mips64-linux.c. */
- void init_registers_mips64_linux (void);
- extern const struct target_desc *tdesc_mips64_linux;
- /* Defined in auto-generated file mips64-dsp-linux.c. */
- void init_registers_mips64_dsp_linux (void);
- extern const struct target_desc *tdesc_mips64_dsp_linux;
- #ifdef __mips64
- #define tdesc_mips_linux tdesc_mips64_linux
- #define tdesc_mips_dsp_linux tdesc_mips64_dsp_linux
- #endif
- #ifndef PTRACE_GET_THREAD_AREA
- #define PTRACE_GET_THREAD_AREA 25
- #endif
- #ifdef HAVE_SYS_REG_H
- #include <sys/reg.h>
- #endif
- #define mips_num_regs 73
- #define mips_dsp_num_regs 80
- #include <asm/ptrace.h>
- #ifndef DSP_BASE
- #define DSP_BASE 71
- #define DSP_CONTROL 77
- #endif
- union mips_register
- {
- unsigned char buf[8];
- /* Deliberately signed, for proper sign extension. */
- int reg32;
- long long reg64;
- };
- /* Return the ptrace ``address'' of register REGNO. */
- #define mips_base_regs \
- -1, 1, 2, 3, 4, 5, 6, 7, \
- 8, 9, 10, 11, 12, 13, 14, 15, \
- 16, 17, 18, 19, 20, 21, 22, 23, \
- 24, 25, 26, 27, 28, 29, 30, 31, \
- \
- -1, MMLO, MMHI, BADVADDR, CAUSE, PC, \
- \
- FPR_BASE, FPR_BASE + 1, FPR_BASE + 2, FPR_BASE + 3, \
- FPR_BASE + 4, FPR_BASE + 5, FPR_BASE + 6, FPR_BASE + 7, \
- FPR_BASE + 8, FPR_BASE + 9, FPR_BASE + 10, FPR_BASE + 11, \
- FPR_BASE + 12, FPR_BASE + 13, FPR_BASE + 14, FPR_BASE + 15, \
- FPR_BASE + 16, FPR_BASE + 17, FPR_BASE + 18, FPR_BASE + 19, \
- FPR_BASE + 20, FPR_BASE + 21, FPR_BASE + 22, FPR_BASE + 23, \
- FPR_BASE + 24, FPR_BASE + 25, FPR_BASE + 26, FPR_BASE + 27, \
- FPR_BASE + 28, FPR_BASE + 29, FPR_BASE + 30, FPR_BASE + 31, \
- FPC_CSR, FPC_EIR
- #define mips_dsp_regs \
- DSP_BASE, DSP_BASE + 1, DSP_BASE + 2, DSP_BASE + 3, \
- DSP_BASE + 4, DSP_BASE + 5, \
- DSP_CONTROL
- static int mips_regmap[mips_num_regs] = {
- mips_base_regs,
- 0
- };
- static int mips_dsp_regmap[mips_dsp_num_regs] = {
- mips_base_regs,
- mips_dsp_regs,
- 0
- };
- /* DSP registers are not in any regset and can only be accessed
- individually. */
- static unsigned char mips_dsp_regset_bitmap[(mips_dsp_num_regs + 7) / 8] = {
- 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x80
- };
- static int have_dsp = -1;
- /* Try peeking at an arbitrarily chosen DSP register and pick the available
- user register set accordingly. */
- static const struct target_desc *
- mips_read_description (void)
- {
- if (have_dsp < 0)
- {
- int pid = lwpid_of (current_thread);
- errno = 0;
- ptrace (PTRACE_PEEKUSER, pid, DSP_CONTROL, 0);
- switch (errno)
- {
- case 0:
- have_dsp = 1;
- break;
- case EIO:
- have_dsp = 0;
- break;
- default:
- perror_with_name ("ptrace");
- break;
- }
- }
- return have_dsp ? tdesc_mips_dsp_linux : tdesc_mips_linux;
- }
- void
- mips_target::low_arch_setup ()
- {
- current_process ()->tdesc = mips_read_description ();
- }
- /* Per-process arch-specific data we want to keep. */
- struct arch_process_info
- {
- /* -1 if the kernel and/or CPU do not support watch registers.
- 1 if watch_readback is valid and we can read style, num_valid
- and the masks.
- 0 if we need to read the watch_readback. */
- int watch_readback_valid;
- /* Cached watch register read values. */
- struct pt_watch_regs watch_readback;
- /* Current watchpoint requests for this process. */
- struct mips_watchpoint *current_watches;
- /* The current set of watch register values for writing the
- registers. */
- struct pt_watch_regs watch_mirror;
- };
- /* Per-thread arch-specific data we want to keep. */
- struct arch_lwp_info
- {
- /* Non-zero if our copy differs from what's recorded in the thread. */
- int watch_registers_changed;
- };
- /* From mips-linux-nat.c. */
- /* Pseudo registers can not be read. ptrace does not provide a way to
- read (or set) PS_REGNUM, and there's no point in reading or setting
- ZERO_REGNUM, it's always 0. We also can not set BADVADDR, CAUSE,
- or FCRIR via ptrace(). */
- bool
- mips_target::low_cannot_fetch_register (int regno)
- {
- const struct target_desc *tdesc;
- if (get_regs_info ()->usrregs->regmap[regno] == -1)
- return true;
- tdesc = current_process ()->tdesc;
- /* On n32 we can't access 64-bit registers via PTRACE_PEEKUSR. */
- if (register_size (tdesc, regno) > sizeof (PTRACE_XFER_TYPE))
- return true;
- if (find_regno (tdesc, "r0") == regno)
- return true;
- return false;
- }
- bool
- mips_target::low_cannot_store_register (int regno)
- {
- const struct target_desc *tdesc;
- if (get_regs_info ()->usrregs->regmap[regno] == -1)
- return true;
- tdesc = current_process ()->tdesc;
- /* On n32 we can't access 64-bit registers via PTRACE_POKEUSR. */
- if (register_size (tdesc, regno) > sizeof (PTRACE_XFER_TYPE))
- return true;
- if (find_regno (tdesc, "r0") == regno)
- return true;
- if (find_regno (tdesc, "cause") == regno)
- return true;
- if (find_regno (tdesc, "badvaddr") == regno)
- return true;
- if (find_regno (tdesc, "fir") == regno)
- return true;
- return false;
- }
- bool
- mips_target::low_fetch_register (regcache *regcache, int regno)
- {
- const struct target_desc *tdesc = current_process ()->tdesc;
- if (find_regno (tdesc, "r0") == regno)
- {
- supply_register_zeroed (regcache, regno);
- return true;
- }
- return false;
- }
- bool
- mips_target::low_supports_breakpoints ()
- {
- return true;
- }
- CORE_ADDR
- mips_target::low_get_pc (regcache *regcache)
- {
- union mips_register pc;
- collect_register_by_name (regcache, "pc", pc.buf);
- return register_size (regcache->tdesc, 0) == 4 ? pc.reg32 : pc.reg64;
- }
- void
- mips_target::low_set_pc (regcache *regcache, CORE_ADDR pc)
- {
- union mips_register newpc;
- if (register_size (regcache->tdesc, 0) == 4)
- newpc.reg32 = pc;
- else
- newpc.reg64 = pc;
- supply_register_by_name (regcache, "pc", newpc.buf);
- }
- /* Correct in either endianness. */
- static const unsigned int mips_breakpoint = 0x0005000d;
- #define mips_breakpoint_len 4
- /* Implementation of target ops method "sw_breakpoint_from_kind". */
- const gdb_byte *
- mips_target::sw_breakpoint_from_kind (int kind, int *size)
- {
- *size = mips_breakpoint_len;
- return (const gdb_byte *) &mips_breakpoint;
- }
- bool
- mips_target::low_breakpoint_at (CORE_ADDR where)
- {
- unsigned int insn;
- read_memory (where, (unsigned char *) &insn, 4);
- if (insn == mips_breakpoint)
- return true;
- /* If necessary, recognize more trap instructions here. GDB only uses the
- one. */
- return false;
- }
- /* Mark the watch registers of lwp, represented by ENTRY, as changed. */
- static void
- update_watch_registers_callback (thread_info *thread)
- {
- struct lwp_info *lwp = get_thread_lwp (thread);
- /* The actual update is done later just before resuming the lwp,
- we just mark that the registers need updating. */
- lwp->arch_private->watch_registers_changed = 1;
- /* If the lwp isn't stopped, force it to momentarily pause, so
- we can update its watch registers. */
- if (!lwp->stopped)
- linux_stop_lwp (lwp);
- }
- /* This is the implementation of linux target ops method
- low_new_process. */
- arch_process_info *
- mips_target::low_new_process ()
- {
- struct arch_process_info *info = XCNEW (struct arch_process_info);
- return info;
- }
- /* This is the implementation of linux target ops method
- low_delete_process. */
- void
- mips_target::low_delete_process (arch_process_info *info)
- {
- xfree (info);
- }
- /* This is the implementation of linux target ops method low_new_thread.
- Mark the watch registers as changed, so the threads' copies will
- be updated. */
- void
- mips_target::low_new_thread (lwp_info *lwp)
- {
- struct arch_lwp_info *info = XCNEW (struct arch_lwp_info);
- info->watch_registers_changed = 1;
- lwp->arch_private = info;
- }
- /* Function to call when a thread is being deleted. */
- void
- mips_target::low_delete_thread (arch_lwp_info *arch_lwp)
- {
- xfree (arch_lwp);
- }
- /* Create a new mips_watchpoint and add it to the list. */
- static void
- mips_add_watchpoint (struct arch_process_info *priv, CORE_ADDR addr, int len,
- enum target_hw_bp_type watch_type)
- {
- struct mips_watchpoint *new_watch;
- struct mips_watchpoint **pw;
- new_watch = XNEW (struct mips_watchpoint);
- new_watch->addr = addr;
- new_watch->len = len;
- new_watch->type = watch_type;
- new_watch->next = NULL;
- pw = &priv->current_watches;
- while (*pw != NULL)
- pw = &(*pw)->next;
- *pw = new_watch;
- }
- /* Hook to call when a new fork is attached. */
- void
- mips_target::low_new_fork (process_info *parent,
- process_info *child)
- {
- struct arch_process_info *parent_private;
- struct arch_process_info *child_private;
- struct mips_watchpoint *wp;
- /* These are allocated by linux_add_process. */
- gdb_assert (parent->priv != NULL
- && parent->priv->arch_private != NULL);
- gdb_assert (child->priv != NULL
- && child->priv->arch_private != NULL);
- /* Linux kernel before 2.6.33 commit
- 72f674d203cd230426437cdcf7dd6f681dad8b0d
- will inherit hardware debug registers from parent
- on fork/vfork/clone. Newer Linux kernels create such tasks with
- zeroed debug registers.
- GDB core assumes the child inherits the watchpoints/hw
- breakpoints of the parent, and will remove them all from the
- forked off process. Copy the debug registers mirrors into the
- new process so that all breakpoints and watchpoints can be
- removed together. The debug registers mirror will become zeroed
- in the end before detaching the forked off process, thus making
- this compatible with older Linux kernels too. */
- parent_private = parent->priv->arch_private;
- child_private = child->priv->arch_private;
- child_private->watch_readback_valid = parent_private->watch_readback_valid;
- child_private->watch_readback = parent_private->watch_readback;
- for (wp = parent_private->current_watches; wp != NULL; wp = wp->next)
- mips_add_watchpoint (child_private, wp->addr, wp->len, wp->type);
- child_private->watch_mirror = parent_private->watch_mirror;
- }
- /* This is the implementation of linux target ops method
- low_prepare_to_resume. If the watch regs have changed, update the
- thread's copies. */
- void
- mips_target::low_prepare_to_resume (lwp_info *lwp)
- {
- ptid_t ptid = ptid_of (get_lwp_thread (lwp));
- struct process_info *proc = find_process_pid (ptid.pid ());
- struct arch_process_info *priv = proc->priv->arch_private;
- if (lwp->arch_private->watch_registers_changed)
- {
- /* Only update the watch registers if we have set or unset a
- watchpoint already. */
- if (mips_linux_watch_get_num_valid (&priv->watch_mirror) > 0)
- {
- /* Write the mirrored watch register values. */
- int tid = ptid.lwp ();
- if (-1 == ptrace (PTRACE_SET_WATCH_REGS, tid,
- &priv->watch_mirror, NULL))
- perror_with_name ("Couldn't write watch register");
- }
- lwp->arch_private->watch_registers_changed = 0;
- }
- }
- bool
- mips_target::supports_z_point_type (char z_type)
- {
- switch (z_type)
- {
- case Z_PACKET_WRITE_WP:
- case Z_PACKET_READ_WP:
- case Z_PACKET_ACCESS_WP:
- return true;
- default:
- return false;
- }
- }
- /* This is the implementation of linux target ops method
- low_insert_point. */
- int
- mips_target::low_insert_point (raw_bkpt_type type, CORE_ADDR addr,
- int len, raw_breakpoint *bp)
- {
- struct process_info *proc = current_process ();
- struct arch_process_info *priv = proc->priv->arch_private;
- struct pt_watch_regs regs;
- long lwpid;
- enum target_hw_bp_type watch_type;
- uint32_t irw;
- lwpid = lwpid_of (current_thread);
- if (!mips_linux_read_watch_registers (lwpid,
- &priv->watch_readback,
- &priv->watch_readback_valid,
- 0))
- return -1;
- if (len <= 0)
- return -1;
- regs = priv->watch_readback;
- /* Add the current watches. */
- mips_linux_watch_populate_regs (priv->current_watches, ®s);
- /* Now try to add the new watch. */
- watch_type = raw_bkpt_type_to_target_hw_bp_type (type);
- irw = mips_linux_watch_type_to_irw (watch_type);
- if (!mips_linux_watch_try_one_watch (®s, addr, len, irw))
- return -1;
- /* It fit. Stick it on the end of the list. */
- mips_add_watchpoint (priv, addr, len, watch_type);
- priv->watch_mirror = regs;
- /* Only update the threads of this process. */
- for_each_thread (proc->pid, update_watch_registers_callback);
- return 0;
- }
- /* This is the implementation of linux target ops method
- low_remove_point. */
- int
- mips_target::low_remove_point (raw_bkpt_type type, CORE_ADDR addr,
- int len, raw_breakpoint *bp)
- {
- struct process_info *proc = current_process ();
- struct arch_process_info *priv = proc->priv->arch_private;
- int deleted_one;
- enum target_hw_bp_type watch_type;
- struct mips_watchpoint **pw;
- struct mips_watchpoint *w;
- /* Search for a known watch that matches. Then unlink and free it. */
- watch_type = raw_bkpt_type_to_target_hw_bp_type (type);
- deleted_one = 0;
- pw = &priv->current_watches;
- while ((w = *pw))
- {
- if (w->addr == addr && w->len == len && w->type == watch_type)
- {
- *pw = w->next;
- free (w);
- deleted_one = 1;
- break;
- }
- pw = &(w->next);
- }
- if (!deleted_one)
- return -1; /* We don't know about it, fail doing nothing. */
- /* At this point watch_readback is known to be valid because we
- could not have added the watch without reading it. */
- gdb_assert (priv->watch_readback_valid == 1);
- priv->watch_mirror = priv->watch_readback;
- mips_linux_watch_populate_regs (priv->current_watches,
- &priv->watch_mirror);
- /* Only update the threads of this process. */
- for_each_thread (proc->pid, update_watch_registers_callback);
- return 0;
- }
- /* This is the implementation of linux target ops method
- low_stopped_by_watchpoint. The watchhi R and W bits indicate
- the watch register triggered. */
- bool
- mips_target::low_stopped_by_watchpoint ()
- {
- struct process_info *proc = current_process ();
- struct arch_process_info *priv = proc->priv->arch_private;
- int n;
- int num_valid;
- long lwpid = lwpid_of (current_thread);
- if (!mips_linux_read_watch_registers (lwpid,
- &priv->watch_readback,
- &priv->watch_readback_valid,
- 1))
- return 0;
- num_valid = mips_linux_watch_get_num_valid (&priv->watch_readback);
- for (n = 0; n < MAX_DEBUG_REGISTER && n < num_valid; n++)
- if (mips_linux_watch_get_watchhi (&priv->watch_readback, n)
- & (R_MASK | W_MASK))
- return true;
- return false;
- }
- /* This is the implementation of linux target ops method
- low_stopped_data_address. */
- CORE_ADDR
- mips_target::low_stopped_data_address ()
- {
- struct process_info *proc = current_process ();
- struct arch_process_info *priv = proc->priv->arch_private;
- int n;
- int num_valid;
- long lwpid = lwpid_of (current_thread);
- /* On MIPS we don't know the low order 3 bits of the data address.
- GDB does not support remote targets that can't report the
- watchpoint address. So, make our best guess; return the starting
- address of a watchpoint request which overlaps the one that
- triggered. */
- if (!mips_linux_read_watch_registers (lwpid,
- &priv->watch_readback,
- &priv->watch_readback_valid,
- 0))
- return 0;
- num_valid = mips_linux_watch_get_num_valid (&priv->watch_readback);
- for (n = 0; n < MAX_DEBUG_REGISTER && n < num_valid; n++)
- if (mips_linux_watch_get_watchhi (&priv->watch_readback, n)
- & (R_MASK | W_MASK))
- {
- CORE_ADDR t_low, t_hi;
- int t_irw;
- struct mips_watchpoint *watch;
- t_low = mips_linux_watch_get_watchlo (&priv->watch_readback, n);
- t_irw = t_low & IRW_MASK;
- t_hi = (mips_linux_watch_get_watchhi (&priv->watch_readback, n)
- | IRW_MASK);
- t_low &= ~(CORE_ADDR)t_hi;
- for (watch = priv->current_watches;
- watch != NULL;
- watch = watch->next)
- {
- CORE_ADDR addr = watch->addr;
- CORE_ADDR last_byte = addr + watch->len - 1;
- if ((t_irw & mips_linux_watch_type_to_irw (watch->type)) == 0)
- {
- /* Different type. */
- continue;
- }
- /* Check for overlap of even a single byte. */
- if (last_byte >= t_low && addr <= t_low + t_hi)
- return addr;
- }
- }
- /* Shouldn't happen. */
- return 0;
- }
- /* Fetch the thread-local storage pointer for libthread_db. */
- ps_err_e
- ps_get_thread_area (struct ps_prochandle *ph,
- lwpid_t lwpid, int idx, void **base)
- {
- 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 = (void *) ((char *)*base - idx);
- return PS_OK;
- }
- static void
- mips_collect_register (struct regcache *regcache,
- int use_64bit, int regno, union mips_register *reg)
- {
- union mips_register tmp_reg;
- if (use_64bit)
- {
- collect_register (regcache, regno, &tmp_reg.reg64);
- *reg = tmp_reg;
- }
- else
- {
- collect_register (regcache, regno, &tmp_reg.reg32);
- reg->reg64 = tmp_reg.reg32;
- }
- }
- static void
- mips_supply_register (struct regcache *regcache,
- int use_64bit, int regno, const union mips_register *reg)
- {
- int offset = 0;
- /* For big-endian 32-bit targets, ignore the high four bytes of each
- eight-byte slot. */
- if (__BYTE_ORDER == __BIG_ENDIAN && !use_64bit)
- offset = 4;
- supply_register (regcache, regno, reg->buf + offset);
- }
- #ifdef HAVE_PTRACE_GETREGS
- static void
- mips_collect_register_32bit (struct regcache *regcache,
- int use_64bit, int regno, unsigned char *buf)
- {
- union mips_register tmp_reg;
- int reg32;
- mips_collect_register (regcache, use_64bit, regno, &tmp_reg);
- reg32 = tmp_reg.reg64;
- memcpy (buf, ®32, 4);
- }
- static void
- mips_supply_register_32bit (struct regcache *regcache,
- int use_64bit, int regno, const unsigned char *buf)
- {
- union mips_register tmp_reg;
- int reg32;
- memcpy (®32, buf, 4);
- tmp_reg.reg64 = reg32;
- mips_supply_register (regcache, use_64bit, regno, &tmp_reg);
- }
- static void
- mips_fill_gregset (struct regcache *regcache, void *buf)
- {
- union mips_register *regset = (union mips_register *) buf;
- int i, use_64bit;
- const struct target_desc *tdesc = regcache->tdesc;
- use_64bit = (register_size (tdesc, 0) == 8);
- for (i = 1; i < 32; i++)
- mips_collect_register (regcache, use_64bit, i, regset + i);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "lo"), regset + 32);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "hi"), regset + 33);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "pc"), regset + 34);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "badvaddr"), regset + 35);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "status"), regset + 36);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "cause"), regset + 37);
- mips_collect_register (regcache, use_64bit,
- find_regno (tdesc, "restart"), regset + 0);
- }
- static void
- mips_store_gregset (struct regcache *regcache, const void *buf)
- {
- const union mips_register *regset = (const union mips_register *) buf;
- int i, use_64bit;
- use_64bit = (register_size (regcache->tdesc, 0) == 8);
- supply_register_by_name_zeroed (regcache, "r0");
- for (i = 1; i < 32; i++)
- mips_supply_register (regcache, use_64bit, i, regset + i);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "lo"), regset + 32);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "hi"), regset + 33);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "pc"), regset + 34);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "badvaddr"), regset + 35);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "status"), regset + 36);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "cause"), regset + 37);
- mips_supply_register (regcache, use_64bit,
- find_regno (regcache->tdesc, "restart"), regset + 0);
- }
- static void
- mips_fill_fpregset (struct regcache *regcache, void *buf)
- {
- union mips_register *regset = (union mips_register *) buf;
- int i, use_64bit, first_fp, big_endian;
- use_64bit = (register_size (regcache->tdesc, 0) == 8);
- first_fp = find_regno (regcache->tdesc, "f0");
- big_endian = (__BYTE_ORDER == __BIG_ENDIAN);
- /* See GDB for a discussion of this peculiar layout. */
- for (i = 0; i < 32; i++)
- if (use_64bit)
- collect_register (regcache, first_fp + i, regset[i].buf);
- else
- collect_register (regcache, first_fp + i,
- regset[i & ~1].buf + 4 * (big_endian != (i & 1)));
- mips_collect_register_32bit (regcache, use_64bit,
- find_regno (regcache->tdesc, "fcsr"), regset[32].buf);
- mips_collect_register_32bit (regcache, use_64bit,
- find_regno (regcache->tdesc, "fir"),
- regset[32].buf + 4);
- }
- static void
- mips_store_fpregset (struct regcache *regcache, const void *buf)
- {
- const union mips_register *regset = (const union mips_register *) buf;
- int i, use_64bit, first_fp, big_endian;
- use_64bit = (register_size (regcache->tdesc, 0) == 8);
- first_fp = find_regno (regcache->tdesc, "f0");
- big_endian = (__BYTE_ORDER == __BIG_ENDIAN);
- /* See GDB for a discussion of this peculiar layout. */
- for (i = 0; i < 32; i++)
- if (use_64bit)
- supply_register (regcache, first_fp + i, regset[i].buf);
- else
- supply_register (regcache, first_fp + i,
- regset[i & ~1].buf + 4 * (big_endian != (i & 1)));
- mips_supply_register_32bit (regcache, use_64bit,
- find_regno (regcache->tdesc, "fcsr"),
- regset[32].buf);
- mips_supply_register_32bit (regcache, use_64bit,
- find_regno (regcache->tdesc, "fir"),
- regset[32].buf + 4);
- }
- #endif /* HAVE_PTRACE_GETREGS */
- /* Take care of 32-bit registers with 64-bit ptrace, POKEUSER side. */
- void
- mips_target::low_collect_ptrace_register (regcache *regcache, int regno,
- char *buf)
- {
- int use_64bit = sizeof (PTRACE_XFER_TYPE) == 8;
- if (use_64bit && register_size (regcache->tdesc, regno) == 4)
- {
- union mips_register reg;
- mips_collect_register (regcache, 0, regno, ®);
- memcpy (buf, ®, sizeof (reg));
- }
- else
- collect_register (regcache, regno, buf);
- }
- /* Take care of 32-bit registers with 64-bit ptrace, PEEKUSER side. */
- void
- mips_target::low_supply_ptrace_register (regcache *regcache, int regno,
- const char *buf)
- {
- int use_64bit = sizeof (PTRACE_XFER_TYPE) == 8;
- if (use_64bit && register_size (regcache->tdesc, regno) == 4)
- {
- union mips_register reg;
- memcpy (®, buf, sizeof (reg));
- mips_supply_register (regcache, 0, regno, ®);
- }
- else
- supply_register (regcache, regno, buf);
- }
- static struct regset_info mips_regsets[] = {
- #ifdef HAVE_PTRACE_GETREGS
- { PTRACE_GETREGS, PTRACE_SETREGS, 0, 38 * 8, GENERAL_REGS,
- mips_fill_gregset, mips_store_gregset },
- { PTRACE_GETFPREGS, PTRACE_SETFPREGS, 0, 33 * 8, FP_REGS,
- mips_fill_fpregset, mips_store_fpregset },
- #endif /* HAVE_PTRACE_GETREGS */
- NULL_REGSET
- };
- static struct regsets_info mips_regsets_info =
- {
- mips_regsets, /* regsets */
- 0, /* num_regsets */
- NULL, /* disabled_regsets */
- };
- static struct usrregs_info mips_dsp_usrregs_info =
- {
- mips_dsp_num_regs,
- mips_dsp_regmap,
- };
- static struct usrregs_info mips_usrregs_info =
- {
- mips_num_regs,
- mips_regmap,
- };
- static struct regs_info dsp_regs_info =
- {
- mips_dsp_regset_bitmap,
- &mips_dsp_usrregs_info,
- &mips_regsets_info
- };
- static struct regs_info myregs_info =
- {
- NULL, /* regset_bitmap */
- &mips_usrregs_info,
- &mips_regsets_info
- };
- const regs_info *
- mips_target::get_regs_info ()
- {
- if (have_dsp)
- return &dsp_regs_info;
- else
- return &myregs_info;
- }
- /* The linux target ops object. */
- linux_process_target *the_linux_target = &the_mips_target;
- void
- initialize_low_arch (void)
- {
- /* Initialize the Linux target descriptions. */
- init_registers_mips_linux ();
- init_registers_mips_dsp_linux ();
- init_registers_mips64_linux ();
- init_registers_mips64_dsp_linux ();
- initialize_regsets_info (&mips_regsets_info);
- }
|