[thirdparty/binutils-gdb.git] / gdb / gdbserver / linux-tic6x-low.c

/* Target dependent code for GDB on TI C6x systems.

   Copyright (C) 2010, 2011
   Free Software Foundation, Inc.
   Contributed by Andrew Jenner <andrew@codesourcery.com>
   Contributed by Yao Qi <yao@codesourcery.com>

   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 <sys/ptrace.h>
#include <endian.h>

#include "gdb_proc_service.h"

#ifndef PTRACE_GET_THREAD_AREA
#define PTRACE_GET_THREAD_AREA 25
#endif

/* There are at most 69 registers accessible in ptrace.  */
#define TIC6X_NUM_REGS 69

#include <asm/ptrace.h>

/* Defined in auto-generated file tic6x-c64xp-linux.c.  */
void init_registers_tic6x_c64xp_linux (void);
/* Defined in auto-generated file tic6x-c64x-linux.c.  */
void init_registers_tic6x_c64x_linux (void);
/* Defined in auto-generated file tic62x-c6xp-linux.c.  */
void init_registers_tic6x_c62x_linux (void);

union tic6x_register
{
  unsigned char buf[4];

  int reg32;
};

/* Return the ptrace ``address'' of register REGNO.  */

#if __BYTE_ORDER == __BIG_ENDIAN
static int tic6x_regmap_c64xp[] = {
  /* A0 - A15 */
  53, 52, 55, 54, 57, 56, 59, 58,
  61, 60, 63, 62, 65, 64, 67, 66,
  /* B0 - B15 */
  23, 22, 25, 24, 27, 26, 29, 28,
  31, 30, 33, 32, 35, 34, 69, 68,
  /* CSR PC */
  5, 4,
  /* A16 - A31 */
  37, 36, 39, 38, 41, 40, 43, 42,
  45, 44, 47, 46, 49, 48, 51, 50,
  /* B16 - B31 */
  7,  6,  9,  8,  11, 10, 13, 12,
  15, 14, 17, 16, 19, 18, 21, 20,
  /* TSR, ILC, RILC */
  1,  2, 3
};

static int tic6x_regmap_c64x[] = {
  /* A0 - A15 */
  51, 50, 53, 52, 55, 54, 57, 56,
  59, 58, 61, 60, 63, 62, 65, 64,
  /* B0 - B15 */
  21, 20, 23, 22, 25, 24, 27, 26,
  29, 28, 31, 30, 33, 32, 67, 66,
  /* CSR PC */
  3,  2,
  /* A16 - A31 */
  35, 34, 37, 36, 39, 38, 41, 40,
  43, 42, 45, 44, 47, 46, 49, 48,
  /* B16 - B31 */
  5,  4,  7,  6,  9,  8,  11, 10,
  13, 12, 15, 14, 17, 16, 19, 18,
  -1, -1, -1
};

static int tic6x_regmap_c62x[] = {
  /* A0 - A15 */
  19, 18, 21, 20, 23, 22, 25, 24,
  27, 26, 29, 28, 31, 30, 33, 32,
  /* B0 - B15 */
   5,  4,  7,  6,  9,  8, 11, 10,
  13, 12, 15, 14, 17, 16, 35, 34,
  /* CSR, PC */
  3, 2,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1
};

#else
static int tic6x_regmap_c64xp[] = {
  /* A0 - A15 */
  52, 53, 54, 55, 56, 57, 58, 59,
  60, 61, 62, 63, 64, 65, 66, 67,
  /* B0 - B15 */
  22, 23, 24, 25, 26, 27, 28, 29,
  30, 31, 32, 33, 34, 35, 68, 69,
  /* CSR PC */
   4,  5,
  /* A16 - A31 */
  36, 37, 38, 39, 40, 41, 42, 43,
  44, 45, 46, 47, 48, 49, 50, 51,
  /* B16 -B31 */
   6,  7,  8,  9, 10, 11, 12, 13,
  14, 15, 16, 17, 18, 19, 20, 31,
  /* TSR, ILC, RILC */
  0,  3, 2
};

static int tic6x_regmap_c64x[] = {
  /* A0 - A15 */
  50, 51, 52, 53, 54, 55, 56, 57,
  58, 59, 60, 61, 62, 63, 64, 65,
  /* B0 - B15 */
  20, 21, 22, 23, 24, 25, 26, 27,
  28, 29, 30, 31, 32, 33, 66, 67,
  /* CSR PC */
  2,  3,
  /* A16 - A31 */
  34, 35, 36, 37, 38, 39, 40, 41,
  42, 43, 44, 45, 46, 47, 48, 49,
  /* B16 - B31 */
  4,  5,  6,  7,  8,  9,  10, 11,
  12, 13, 14, 15, 16, 17, 18, 19,
  -1, -1, -1
};

static int tic6x_regmap_c62x[] = {
  /* A0 - A15 */
  18, 19, 20, 21, 22, 23, 24, 25,
  26, 27, 28, 29, 30, 31, 32, 33,
  /* B0 - B15 */
  4,  5,  6,  7,  8,  9, 10, 11,
  12, 13, 14, 15, 16, 17, 34, 35,
  /* CSR PC */
  2,  3,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1, -1, -1, -1, -1, -1,
  -1, -1, -1
};

#endif

extern struct linux_target_ops the_low_target;

static int *tic6x_regmap;
static unsigned int tic6x_breakpoint;

static void
tic6x_arch_setup (void)
{
  register unsigned int csr asm ("B2");
  unsigned int cpuid;

  /* Determine the CPU we're running on to find the register order.  */
  __asm__ ("MVC .S2 CSR,%0" : "=r" (csr) :);
  cpuid = csr >> 24;
  switch (cpuid)
    {
    case 0x00: /* C62x */
    case 0x02: /* C67x */
      tic6x_regmap = tic6x_regmap_c62x;
      tic6x_breakpoint = 0x0000a122;  /* BNOP .S2 0,5 */
      init_registers_tic6x_c62x_linux ();
      break;
    case 0x03: /* C67x+ */
      tic6x_regmap = tic6x_regmap_c64x;
      tic6x_breakpoint = 0x0000a122;  /* BNOP .S2 0,5 */
      init_registers_tic6x_c64x_linux ();
      break;
    case 0x0c: /* C64x */
      tic6x_regmap = tic6x_regmap_c64x;
      tic6x_breakpoint = 0x0000a122;  /* BNOP .S2 0,5 */
      init_registers_tic6x_c64x_linux ();
      break;
    case 0x10: /* C64x+ */
    case 0x14: /* C674x */
    case 0x15: /* C66x */
      tic6x_regmap = tic6x_regmap_c64xp;
      tic6x_breakpoint = 0x56454314;  /* illegal opcode */
      init_registers_tic6x_c64xp_linux ();
      break;
    default:
      error ("Unknown CPU ID 0x%02x", cpuid);
    }
  the_low_target.regmap = tic6x_regmap;
}

static int
tic6x_cannot_fetch_register (int regno)
{
  return (tic6x_regmap[regno] == -1);
}

static int
tic6x_cannot_store_register (int regno)
{
  return (tic6x_regmap[regno] == -1);
}

static CORE_ADDR
tic6x_get_pc (struct regcache *regcache)
{
  union tic6x_register pc;

  collect_register_by_name (regcache, "PC", pc.buf);
  return pc.reg32;
}

static void
tic6x_set_pc (struct regcache *regcache, CORE_ADDR pc)
{
  union tic6x_register newpc;

  newpc.reg32 = pc;
  supply_register_by_name (regcache, "PC", newpc.buf);
}

#define tic6x_breakpoint_len 4

static int
tic6x_breakpoint_at (CORE_ADDR where)
{
  unsigned int insn;

  (*the_target->read_memory) (where, (unsigned char *) &insn, 4);
  if (insn == tic6x_breakpoint)
    return 1;

  /* If necessary, recognize more trap instructions here.  GDB only uses the
     one.  */
  return 0;
}

/* 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)
{
  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
tic6x_collect_register (struct regcache *regcache, int regno,
			union tic6x_register *reg)
{
  union tic6x_register tmp_reg;

  collect_register (regcache, regno, &tmp_reg.reg32);
  reg->reg32 = tmp_reg.reg32;
}

static void
tic6x_supply_register (struct regcache *regcache, int regno,
		       const union tic6x_register *reg)
{
  int offset = 0;

  supply_register (regcache, regno, reg->buf + offset);
}

static void
tic6x_fill_gregset (struct regcache *regcache, void *buf)
{
  union tic6x_register *regset = buf;
  int i;

  for (i = 0; i < TIC6X_NUM_REGS; i++)
    if (tic6x_regmap[i] != -1)
      tic6x_collect_register (regcache, i, regset + tic6x_regmap[i]);
}

static void
tic6x_store_gregset (struct regcache *regcache, const void *buf)
{
  const union tic6x_register *regset = buf;
  int i;

  for (i = 0; i < TIC6X_NUM_REGS; i++)
    if (tic6x_regmap[i] != -1)
      tic6x_supply_register (regcache, i, regset + tic6x_regmap[i]);
}

struct regset_info target_regsets[] = {
  { PTRACE_GETREGS, PTRACE_SETREGS, 0, TIC6X_NUM_REGS * 4, GENERAL_REGS,
    tic6x_fill_gregset, tic6x_store_gregset },
  { 0, 0, 0, -1, -1, NULL, NULL }
};

struct linux_target_ops the_low_target = {
  tic6x_arch_setup,
  TIC6X_NUM_REGS,
  0,
  tic6x_cannot_fetch_register,
  tic6x_cannot_store_register,
  tic6x_get_pc,
  tic6x_set_pc,
  (const unsigned char *) &tic6x_breakpoint,
  tic6x_breakpoint_len,
  NULL,
  0,
  tic6x_breakpoint_at,
};
Commit	Line	Data
58dbd541 YQ	1	/* Target dependent code for GDB on TI C6x systems.
	2
	3	Copyright (C) 2010, 2011
	4	Free Software Foundation, Inc.
	5	Contributed by Andrew Jenner <andrew@codesourcery.com>
	6	Contributed by Yao Qi <yao@codesourcery.com>
	7
	8	This file is part of GDB.
	9
	10	This program is free software; you can redistribute it and/or modify
	11	it under the terms of the GNU General Public License as published by
	12	the Free Software Foundation; either version 3 of the License, or
	13	(at your option) any later version.
	14
	15	This program is distributed in the hope that it will be useful,
	16	but WITHOUT ANY WARRANTY; without even the implied warranty of
	17	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	GNU General Public License for more details.
	19
	20	You should have received a copy of the GNU General Public License
	21	along with this program. If not, see <http://www.gnu.org/licenses/>. */
	22
	23	#include "server.h"
	24	#include "linux-low.h"
	25
	26	#include <sys/ptrace.h>
	27	#include <endian.h>
	28
	29	#include "gdb_proc_service.h"
	30
	31	#ifndef PTRACE_GET_THREAD_AREA
	32	#define PTRACE_GET_THREAD_AREA 25
	33	#endif
	34
	35	/* There are at most 69 registers accessible in ptrace. */
	36	#define TIC6X_NUM_REGS 69
	37
	38	#include <asm/ptrace.h>
	39
	40	/* Defined in auto-generated file tic6x-c64xp-linux.c. */
	41	void init_registers_tic6x_c64xp_linux (void);
	42	/* Defined in auto-generated file tic6x-c64x-linux.c. */
	43	void init_registers_tic6x_c64x_linux (void);
	44	/* Defined in auto-generated file tic62x-c6xp-linux.c. */
	45	void init_registers_tic6x_c62x_linux (void);
	46
	47	union tic6x_register
	48	{
	49	unsigned char buf[4];
	50
	51	int reg32;
	52	};
	53
	54	/* Return the ptrace ``address'' of register REGNO. */
	55
	56	#if __BYTE_ORDER == __BIG_ENDIAN
	57	static int tic6x_regmap_c64xp[] = {
	58	/* A0 - A15 */
	59	53, 52, 55, 54, 57, 56, 59, 58,
	60	61, 60, 63, 62, 65, 64, 67, 66,
	61	/* B0 - B15 */
	62	23, 22, 25, 24, 27, 26, 29, 28,
	63	31, 30, 33, 32, 35, 34, 69, 68,
	64	/* CSR PC */
65	5, 4,
66	/* A16 - A31 */
67	37, 36, 39, 38, 41, 40, 43, 42,
68	45, 44, 47, 46, 49, 48, 51, 50,
69	/* B16 - B31 */
70	7, 6, 9, 8, 11, 10, 13, 12,
71	15, 14, 17, 16, 19, 18, 21, 20,
72	/* TSR, ILC, RILC */
73	1, 2, 3
74	};
75
76	static int tic6x_regmap_c64x[] = {
77	/* A0 - A15 */
78	51, 50, 53, 52, 55, 54, 57, 56,
79	59, 58, 61, 60, 63, 62, 65, 64,
80	/* B0 - B15 */
81	21, 20, 23, 22, 25, 24, 27, 26,
82	29, 28, 31, 30, 33, 32, 67, 66,
83	/* CSR PC */
84	3, 2,
85	/* A16 - A31 */
86	35, 34, 37, 36, 39, 38, 41, 40,
87	43, 42, 45, 44, 47, 46, 49, 48,
88	/* B16 - B31 */
89	5, 4, 7, 6, 9, 8, 11, 10,
90	13, 12, 15, 14, 17, 16, 19, 18,
91	-1, -1, -1
92	};
93
94	static int tic6x_regmap_c62x[] = {
95	/* A0 - A15 */
96	19, 18, 21, 20, 23, 22, 25, 24,
97	27, 26, 29, 28, 31, 30, 33, 32,
98	/* B0 - B15 */
99	5, 4, 7, 6, 9, 8, 11, 10,
100	13, 12, 15, 14, 17, 16, 35, 34,
101	/* CSR, PC */
102	3, 2,
103	-1, -1, -1, -1, -1, -1, -1, -1,
104	-1, -1, -1, -1, -1, -1, -1, -1,
105	-1, -1, -1, -1, -1, -1, -1, -1,
106	-1, -1, -1, -1, -1, -1, -1, -1,
107	-1, -1, -1
108	};
109
110	#else
111	static int tic6x_regmap_c64xp[] = {
112	/* A0 - A15 */
113	52, 53, 54, 55, 56, 57, 58, 59,
114	60, 61, 62, 63, 64, 65, 66, 67,
115	/* B0 - B15 */
116	22, 23, 24, 25, 26, 27, 28, 29,
117	30, 31, 32, 33, 34, 35, 68, 69,
118	/* CSR PC */
119	4, 5,
120	/* A16 - A31 */
121	36, 37, 38, 39, 40, 41, 42, 43,
122	44, 45, 46, 47, 48, 49, 50, 51,
123	/* B16 -B31 */
124	6, 7, 8, 9, 10, 11, 12, 13,
125	14, 15, 16, 17, 18, 19, 20, 31,
126	/* TSR, ILC, RILC */
127	0, 3, 2
128	};
129
130	static int tic6x_regmap_c64x[] = {
131	/* A0 - A15 */
132	50, 51, 52, 53, 54, 55, 56, 57,
133	58, 59, 60, 61, 62, 63, 64, 65,
134	/* B0 - B15 */
135	20, 21, 22, 23, 24, 25, 26, 27,
136	28, 29, 30, 31, 32, 33, 66, 67,
137	/* CSR PC */
138	2, 3,
139	/* A16 - A31 */
140	34, 35, 36, 37, 38, 39, 40, 41,
141	42, 43, 44, 45, 46, 47, 48, 49,
142	/* B16 - B31 */
143	4, 5, 6, 7, 8, 9, 10, 11,
144	12, 13, 14, 15, 16, 17, 18, 19,
145	-1, -1, -1
146	};
147
148	static int tic6x_regmap_c62x[] = {
149	/* A0 - A15 */
150	18, 19, 20, 21, 22, 23, 24, 25,
151	26, 27, 28, 29, 30, 31, 32, 33,
152	/* B0 - B15 */
153	4, 5, 6, 7, 8, 9, 10, 11,
154	12, 13, 14, 15, 16, 17, 34, 35,
155	/* CSR PC */
156	2, 3,
157	-1, -1, -1, -1, -1, -1, -1, -1,
158	-1, -1, -1, -1, -1, -1, -1, -1,
159	-1, -1, -1, -1, -1, -1, -1, -1,
160	-1, -1, -1, -1, -1, -1, -1, -1,
161	-1, -1, -1
162	};
163
164	#endif
165
166	extern struct linux_target_ops the_low_target;
167
168	static int *tic6x_regmap;
169	static unsigned int tic6x_breakpoint;
170
171	static void
172	tic6x_arch_setup (void)
173	{
174	register unsigned int csr asm ("B2");
175	unsigned int cpuid;
176
177	/* Determine the CPU we're running on to find the register order. */
178	__asm__ ("MVC .S2 CSR,%0" : "=r" (csr) :);
179	cpuid = csr >> 24;
180	switch (cpuid)
181	{
182	case 0x00: /* C62x */
183	case 0x02: /* C67x */
184	tic6x_regmap = tic6x_regmap_c62x;
185	tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */
186	init_registers_tic6x_c62x_linux ();
187	break;
188	case 0x03: /* C67x+ */
189	tic6x_regmap = tic6x_regmap_c64x;
190	tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */
191	init_registers_tic6x_c64x_linux ();
192	break;
193	case 0x0c: /* C64x */
194	tic6x_regmap = tic6x_regmap_c64x;
195	tic6x_breakpoint = 0x0000a122; /* BNOP .S2 0,5 */
196	init_registers_tic6x_c64x_linux ();
197	break;
198	case 0x10: /* C64x+ */
199	case 0x14: /* C674x */
200	case 0x15: /* C66x */
201	tic6x_regmap = tic6x_regmap_c64xp;
202	tic6x_breakpoint = 0x56454314; /* illegal opcode */
203	init_registers_tic6x_c64xp_linux ();
204	break;
205	default:
206	error ("Unknown CPU ID 0x%02x", cpuid);
207	}
208	the_low_target.regmap = tic6x_regmap;
209	}
210
211	static int
212	tic6x_cannot_fetch_register (int regno)
213	{
214	return (tic6x_regmap[regno] == -1);
215	}
216
217	static int
218	tic6x_cannot_store_register (int regno)
219	{
220	return (tic6x_regmap[regno] == -1);
221	}
222
223	static CORE_ADDR
224	tic6x_get_pc (struct regcache *regcache)
225	{
226	union tic6x_register pc;
227
228	collect_register_by_name (regcache, "PC", pc.buf);
229	return pc.reg32;
230	}
231
232	static void
233	tic6x_set_pc (struct regcache *regcache, CORE_ADDR pc)
234	{
235	union tic6x_register newpc;
236
237	newpc.reg32 = pc;
238	supply_register_by_name (regcache, "PC", newpc.buf);
239	}
240
241	#define tic6x_breakpoint_len 4
242
243	static int
244	tic6x_breakpoint_at (CORE_ADDR where)
245	{
246	unsigned int insn;
247
248	(the_target->read_memory) (where, (unsigned char ) &insn, 4);
249	if (insn == tic6x_breakpoint)
250	return 1;
251
252	/* If necessary, recognize more trap instructions here. GDB only uses the
253	one. */
254	return 0;
255	}
256
257	/* Fetch the thread-local storage pointer for libthread_db. */
258
259	ps_err_e
260	ps_get_thread_area (const struct ps_prochandle *ph,
261	lwpid_t lwpid, int idx, void **base)
262	{
263	if (ptrace (PTRACE_GET_THREAD_AREA, lwpid, NULL, base) != 0)
264	return PS_ERR;
265
266	/* IDX is the bias from the thread pointer to the beginning of the
267	thread descriptor. It has to be subtracted due to implementation
268	quirks in libthread_db. */
269	base = (void ) ((char ) base - idx);
270
271	return PS_OK;
272	}
273
274	static void
275	tic6x_collect_register (struct regcache *regcache, int regno,
276	union tic6x_register *reg)
277	{
278	union tic6x_register tmp_reg;
279
280	collect_register (regcache, regno, &tmp_reg.reg32);
281	reg->reg32 = tmp_reg.reg32;
282	}
283
284	static void
285	tic6x_supply_register (struct regcache *regcache, int regno,
286	const union tic6x_register *reg)
287	{
288	int offset = 0;
289
290	supply_register (regcache, regno, reg->buf + offset);
291	}
292
293	static void
294	tic6x_fill_gregset (struct regcache regcache, void buf)
295	{
296	union tic6x_register *regset = buf;
297	int i;
298
299	for (i = 0; i < TIC6X_NUM_REGS; i++)
300	if (tic6x_regmap[i] != -1)
301	tic6x_collect_register (regcache, i, regset + tic6x_regmap[i]);
302	}
303
304	static void
305	tic6x_store_gregset (struct regcache regcache, const void buf)
306	{
307	const union tic6x_register *regset = buf;
308	int i;
309
310	for (i = 0; i < TIC6X_NUM_REGS; i++)
311	if (tic6x_regmap[i] != -1)
312	tic6x_supply_register (regcache, i, regset + tic6x_regmap[i]);
313	}
314
315	struct regset_info target_regsets[] = {
316	{ PTRACE_GETREGS, PTRACE_SETREGS, 0, TIC6X_NUM_REGS * 4, GENERAL_REGS,
317	tic6x_fill_gregset, tic6x_store_gregset },
318	{ 0, 0, 0, -1, -1, NULL, NULL }
319	};
320
321	struct linux_target_ops the_low_target = {
322	tic6x_arch_setup,
323	TIC6X_NUM_REGS,
324	0,
325	tic6x_cannot_fetch_register,
326	tic6x_cannot_store_register,
327	tic6x_get_pc,
328	tic6x_set_pc,
329	(const unsigned char *) &tic6x_breakpoint,
330	tic6x_breakpoint_len,
331	NULL,
332	0,
333	tic6x_breakpoint_at,
334	};