1*b725ae77Skettenis /* GNU/Linux/MIPS specific low level interface, for the remote server for GDB.
2*b725ae77Skettenis Copyright 1995, 1996, 1998, 1999, 2000, 2001, 2002
3*b725ae77Skettenis Free Software Foundation, Inc.
4*b725ae77Skettenis
5*b725ae77Skettenis This file is part of GDB.
6*b725ae77Skettenis
7*b725ae77Skettenis This program is free software; you can redistribute it and/or modify
8*b725ae77Skettenis it under the terms of the GNU General Public License as published by
9*b725ae77Skettenis the Free Software Foundation; either version 2 of the License, or
10*b725ae77Skettenis (at your option) any later version.
11*b725ae77Skettenis
12*b725ae77Skettenis This program is distributed in the hope that it will be useful,
13*b725ae77Skettenis but WITHOUT ANY WARRANTY; without even the implied warranty of
14*b725ae77Skettenis MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15*b725ae77Skettenis GNU General Public License for more details.
16*b725ae77Skettenis
17*b725ae77Skettenis You should have received a copy of the GNU General Public License
18*b725ae77Skettenis along with this program; if not, write to the Free Software
19*b725ae77Skettenis Foundation, Inc., 59 Temple Place - Suite 330,
20*b725ae77Skettenis Boston, MA 02111-1307, USA. */
21*b725ae77Skettenis
22*b725ae77Skettenis #include "server.h"
23*b725ae77Skettenis #include "linux-low.h"
24*b725ae77Skettenis
25*b725ae77Skettenis #ifdef HAVE_SYS_REG_H
26*b725ae77Skettenis #include <sys/reg.h>
27*b725ae77Skettenis #endif
28*b725ae77Skettenis
29*b725ae77Skettenis #define mips_num_regs 90
30*b725ae77Skettenis
31*b725ae77Skettenis #include <asm/ptrace.h>
32*b725ae77Skettenis
33*b725ae77Skettenis /* Return the ptrace ``address'' of register REGNO. */
34*b725ae77Skettenis
35*b725ae77Skettenis /* Matches mips_generic32_regs */
36*b725ae77Skettenis static int mips_regmap[] = {
37*b725ae77Skettenis 0, 1, 2, 3, 4, 5, 6, 7,
38*b725ae77Skettenis 8, 9, 10, 11, 12, 13, 14, 15,
39*b725ae77Skettenis 16, 17, 18, 19, 20, 21, 22, 23,
40*b725ae77Skettenis 24, 25, 26, 27, 28, 29, 30, 31,
41*b725ae77Skettenis
42*b725ae77Skettenis -1, MMLO, MMHI, BADVADDR, CAUSE, PC,
43*b725ae77Skettenis
44*b725ae77Skettenis FPR_BASE, FPR_BASE + 1, FPR_BASE + 2, FPR_BASE + 3,
45*b725ae77Skettenis FPR_BASE + 4, FPR_BASE + 5, FPR_BASE + 6, FPR_BASE + 7,
46*b725ae77Skettenis FPR_BASE + 8, FPR_BASE + 8, FPR_BASE + 10, FPR_BASE + 11,
47*b725ae77Skettenis FPR_BASE + 12, FPR_BASE + 13, FPR_BASE + 14, FPR_BASE + 15,
48*b725ae77Skettenis FPR_BASE + 16, FPR_BASE + 17, FPR_BASE + 18, FPR_BASE + 19,
49*b725ae77Skettenis FPR_BASE + 20, FPR_BASE + 21, FPR_BASE + 22, FPR_BASE + 23,
50*b725ae77Skettenis FPR_BASE + 24, FPR_BASE + 25, FPR_BASE + 26, FPR_BASE + 27,
51*b725ae77Skettenis FPR_BASE + 28, FPR_BASE + 29, FPR_BASE + 30, FPR_BASE + 31,
52*b725ae77Skettenis FPC_CSR, FPC_EIR,
53*b725ae77Skettenis
54*b725ae77Skettenis -1, -1,
55*b725ae77Skettenis -1, -1, -1, -1, -1, -1, -1, -1,
56*b725ae77Skettenis -1, -1, -1, -1, -1, -1, -1, -1,
57*b725ae77Skettenis };
58*b725ae77Skettenis
59*b725ae77Skettenis /* From mips-linux-nat.c. */
60*b725ae77Skettenis
61*b725ae77Skettenis /* Pseudo registers can not be read. ptrace does not provide a way to
62*b725ae77Skettenis read (or set) PS_REGNUM, and there's no point in reading or setting
63*b725ae77Skettenis ZERO_REGNUM. We also can not set BADVADDR, CAUSE, or FCRIR via
64*b725ae77Skettenis ptrace(). */
65*b725ae77Skettenis
66*b725ae77Skettenis static int
mips_cannot_fetch_register(int regno)67*b725ae77Skettenis mips_cannot_fetch_register (int regno)
68*b725ae77Skettenis {
69*b725ae77Skettenis if (mips_regmap[regno] == -1)
70*b725ae77Skettenis return 1;
71*b725ae77Skettenis
72*b725ae77Skettenis if (find_regno ("zero") == regno)
73*b725ae77Skettenis return 1;
74*b725ae77Skettenis
75*b725ae77Skettenis return 0;
76*b725ae77Skettenis }
77*b725ae77Skettenis
78*b725ae77Skettenis static int
mips_cannot_store_register(int regno)79*b725ae77Skettenis mips_cannot_store_register (int regno)
80*b725ae77Skettenis {
81*b725ae77Skettenis if (mips_regmap[regno] == -1)
82*b725ae77Skettenis return 1;
83*b725ae77Skettenis
84*b725ae77Skettenis if (find_regno ("zero") == regno)
85*b725ae77Skettenis return 1;
86*b725ae77Skettenis
87*b725ae77Skettenis if (find_regno ("cause") == regno)
88*b725ae77Skettenis return 1;
89*b725ae77Skettenis
90*b725ae77Skettenis if (find_regno ("bad") == regno)
91*b725ae77Skettenis return 1;
92*b725ae77Skettenis
93*b725ae77Skettenis if (find_regno ("fir") == regno)
94*b725ae77Skettenis return 1;
95*b725ae77Skettenis
96*b725ae77Skettenis return 0;
97*b725ae77Skettenis }
98*b725ae77Skettenis
99*b725ae77Skettenis static CORE_ADDR
mips_get_pc()100*b725ae77Skettenis mips_get_pc ()
101*b725ae77Skettenis {
102*b725ae77Skettenis unsigned long pc;
103*b725ae77Skettenis collect_register_by_name ("pc", &pc);
104*b725ae77Skettenis return pc;
105*b725ae77Skettenis }
106*b725ae77Skettenis
107*b725ae77Skettenis static void
mips_set_pc(CORE_ADDR pc)108*b725ae77Skettenis mips_set_pc (CORE_ADDR pc)
109*b725ae77Skettenis {
110*b725ae77Skettenis unsigned long newpc = pc;
111*b725ae77Skettenis supply_register_by_name ("pc", &newpc);
112*b725ae77Skettenis }
113*b725ae77Skettenis
114*b725ae77Skettenis /* Correct in either endianness. */
115*b725ae77Skettenis static const unsigned long mips_breakpoint = 0x0005000d;
116*b725ae77Skettenis #define mips_breakpoint_len 4
117*b725ae77Skettenis
118*b725ae77Skettenis /* We only place breakpoints in empty marker functions, and thread locking
119*b725ae77Skettenis is outside of the function. So rather than importing software single-step,
120*b725ae77Skettenis we can just run until exit. */
121*b725ae77Skettenis static CORE_ADDR
mips_reinsert_addr()122*b725ae77Skettenis mips_reinsert_addr ()
123*b725ae77Skettenis {
124*b725ae77Skettenis unsigned long pc;
125*b725ae77Skettenis collect_register_by_name ("ra", &pc);
126*b725ae77Skettenis return pc;
127*b725ae77Skettenis }
128*b725ae77Skettenis
129*b725ae77Skettenis static int
mips_breakpoint_at(CORE_ADDR where)130*b725ae77Skettenis mips_breakpoint_at (CORE_ADDR where)
131*b725ae77Skettenis {
132*b725ae77Skettenis unsigned long insn;
133*b725ae77Skettenis
134*b725ae77Skettenis (*the_target->read_memory) (where, (char *) &insn, 4);
135*b725ae77Skettenis if (insn == mips_breakpoint)
136*b725ae77Skettenis return 1;
137*b725ae77Skettenis
138*b725ae77Skettenis /* If necessary, recognize more trap instructions here. GDB only uses the
139*b725ae77Skettenis one. */
140*b725ae77Skettenis return 0;
141*b725ae77Skettenis }
142*b725ae77Skettenis
143*b725ae77Skettenis struct linux_target_ops the_low_target = {
144*b725ae77Skettenis mips_num_regs,
145*b725ae77Skettenis mips_regmap,
146*b725ae77Skettenis mips_cannot_fetch_register,
147*b725ae77Skettenis mips_cannot_store_register,
148*b725ae77Skettenis mips_get_pc,
149*b725ae77Skettenis mips_set_pc,
150*b725ae77Skettenis (const char *) &mips_breakpoint,
151*b725ae77Skettenis mips_breakpoint_len,
152*b725ae77Skettenis mips_reinsert_addr,
153*b725ae77Skettenis 0,
154*b725ae77Skettenis mips_breakpoint_at,
155*b725ae77Skettenis };
156