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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [mips-linux-tdep.c] - Blame information for rev 825

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
/* Target-dependent code for GNU/Linux on MIPS processors.
2
 
3
   Copyright (C) 2001, 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010
4
   Free Software Foundation, Inc.
5
 
6
   This file is part of GDB.
7
 
8
   This program is free software; you can redistribute it and/or modify
9
   it under the terms of the GNU General Public License as published by
10
   the Free Software Foundation; either version 3 of the License, or
11
   (at your option) any later version.
12
 
13
   This program is distributed in the hope that it will be useful,
14
   but WITHOUT ANY WARRANTY; without even the implied warranty of
15
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
   GNU General Public License for more details.
17
 
18
   You should have received a copy of the GNU General Public License
19
   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
20
 
21
#include "defs.h"
22
#include "gdbcore.h"
23
#include "target.h"
24
#include "solib-svr4.h"
25
#include "osabi.h"
26
#include "mips-tdep.h"
27
#include "gdb_string.h"
28
#include "gdb_assert.h"
29
#include "frame.h"
30
#include "regcache.h"
31
#include "trad-frame.h"
32
#include "tramp-frame.h"
33
#include "gdbtypes.h"
34
#include "solib.h"
35
#include "solib-svr4.h"
36
#include "solist.h"
37
#include "symtab.h"
38
#include "target-descriptions.h"
39
#include "mips-linux-tdep.h"
40
#include "glibc-tdep.h"
41
 
42
static struct target_so_ops mips_svr4_so_ops;
43
 
44
/* Figure out where the longjmp will land.
45
   We expect the first arg to be a pointer to the jmp_buf structure
46
   from which we extract the pc (MIPS_LINUX_JB_PC) that we will land
47
   at.  The pc is copied into PC.  This routine returns 1 on
48
   success.  */
49
 
50
#define MIPS_LINUX_JB_ELEMENT_SIZE 4
51
#define MIPS_LINUX_JB_PC 0
52
 
53
static int
54
mips_linux_get_longjmp_target (struct frame_info *frame, CORE_ADDR *pc)
55
{
56
  CORE_ADDR jb_addr;
57
  struct gdbarch *gdbarch = get_frame_arch (frame);
58
  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
59
  char buf[gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT];
60
 
61
  jb_addr = get_frame_register_unsigned (frame, MIPS_A0_REGNUM);
62
 
63
  if (target_read_memory (jb_addr
64
                            + MIPS_LINUX_JB_PC * MIPS_LINUX_JB_ELEMENT_SIZE,
65
                          buf, gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT))
66
    return 0;
67
 
68
  *pc = extract_unsigned_integer (buf,
69
                                  gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT,
70
                                  byte_order);
71
 
72
  return 1;
73
}
74
 
75
/* Transform the bits comprising a 32-bit register to the right size
76
   for regcache_raw_supply().  This is needed when mips_isa_regsize()
77
   is 8.  */
78
 
79
static void
80
supply_32bit_reg (struct regcache *regcache, int regnum, const void *addr)
81
{
82
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
83
  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
84
  gdb_byte buf[MAX_REGISTER_SIZE];
85
  store_signed_integer (buf, register_size (gdbarch, regnum), byte_order,
86
                        extract_signed_integer (addr, 4, byte_order));
87
  regcache_raw_supply (regcache, regnum, buf);
88
}
89
 
90
/* Unpack an elf_gregset_t into GDB's register cache.  */
91
 
92
void
93
mips_supply_gregset (struct regcache *regcache,
94
                     const mips_elf_gregset_t *gregsetp)
95
{
96
  int regi;
97
  const mips_elf_greg_t *regp = *gregsetp;
98
  char zerobuf[MAX_REGISTER_SIZE];
99
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
100
 
101
  memset (zerobuf, 0, MAX_REGISTER_SIZE);
102
 
103
  for (regi = EF_REG0 + 1; regi <= EF_REG31; regi++)
104
    supply_32bit_reg (regcache, regi - EF_REG0, regp + regi);
105
 
106
  if (mips_linux_restart_reg_p (gdbarch))
107
    supply_32bit_reg (regcache, MIPS_RESTART_REGNUM, regp + EF_REG0);
108
 
109
  supply_32bit_reg (regcache, mips_regnum (gdbarch)->lo, regp + EF_LO);
110
  supply_32bit_reg (regcache, mips_regnum (gdbarch)->hi, regp + EF_HI);
111
 
112
  supply_32bit_reg (regcache, mips_regnum (gdbarch)->pc,
113
                    regp + EF_CP0_EPC);
114
  supply_32bit_reg (regcache, mips_regnum (gdbarch)->badvaddr,
115
                    regp + EF_CP0_BADVADDR);
116
  supply_32bit_reg (regcache, MIPS_PS_REGNUM, regp + EF_CP0_STATUS);
117
  supply_32bit_reg (regcache, mips_regnum (gdbarch)->cause,
118
                    regp + EF_CP0_CAUSE);
119
 
120
  /* Fill inaccessible registers with zero.  */
121
  regcache_raw_supply (regcache, MIPS_ZERO_REGNUM, zerobuf);
122
  regcache_raw_supply (regcache, MIPS_UNUSED_REGNUM, zerobuf);
123
  for (regi = MIPS_FIRST_EMBED_REGNUM;
124
       regi <= MIPS_LAST_EMBED_REGNUM;
125
       regi++)
126
    regcache_raw_supply (regcache, regi, zerobuf);
127
}
128
 
129
/* Pack our registers (or one register) into an elf_gregset_t.  */
130
 
131
void
132
mips_fill_gregset (const struct regcache *regcache,
133
                   mips_elf_gregset_t *gregsetp, int regno)
134
{
135
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
136
  int regaddr, regi;
137
  mips_elf_greg_t *regp = *gregsetp;
138
  void *dst;
139
 
140
  if (regno == -1)
141
    {
142
      memset (regp, 0, sizeof (mips_elf_gregset_t));
143
      for (regi = 1; regi < 32; regi++)
144
        mips_fill_gregset (regcache, gregsetp, regi);
145
      mips_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->lo);
146
      mips_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->hi);
147
      mips_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->pc);
148
      mips_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->badvaddr);
149
      mips_fill_gregset (regcache, gregsetp, MIPS_PS_REGNUM);
150
      mips_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->cause);
151
      mips_fill_gregset (regcache, gregsetp, MIPS_RESTART_REGNUM);
152
      return;
153
   }
154
 
155
  if (regno > 0 && regno < 32)
156
    {
157
      dst = regp + regno + EF_REG0;
158
      regcache_raw_collect (regcache, regno, dst);
159
      return;
160
    }
161
 
162
  if (regno == mips_regnum (gdbarch)->lo)
163
     regaddr = EF_LO;
164
  else if (regno == mips_regnum (gdbarch)->hi)
165
    regaddr = EF_HI;
166
  else if (regno == mips_regnum (gdbarch)->pc)
167
    regaddr = EF_CP0_EPC;
168
  else if (regno == mips_regnum (gdbarch)->badvaddr)
169
    regaddr = EF_CP0_BADVADDR;
170
  else if (regno == MIPS_PS_REGNUM)
171
    regaddr = EF_CP0_STATUS;
172
  else if (regno == mips_regnum (gdbarch)->cause)
173
    regaddr = EF_CP0_CAUSE;
174
  else if (mips_linux_restart_reg_p (gdbarch)
175
           && regno == MIPS_RESTART_REGNUM)
176
    regaddr = EF_REG0;
177
  else
178
    regaddr = -1;
179
 
180
  if (regaddr != -1)
181
    {
182
      dst = regp + regaddr;
183
      regcache_raw_collect (regcache, regno, dst);
184
    }
185
}
186
 
187
/* Likewise, unpack an elf_fpregset_t.  */
188
 
189
void
190
mips_supply_fpregset (struct regcache *regcache,
191
                      const mips_elf_fpregset_t *fpregsetp)
192
{
193
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
194
  int regi;
195
  char zerobuf[MAX_REGISTER_SIZE];
196
 
197
  memset (zerobuf, 0, MAX_REGISTER_SIZE);
198
 
199
  for (regi = 0; regi < 32; regi++)
200
    regcache_raw_supply (regcache,
201
                         gdbarch_fp0_regnum (gdbarch) + regi,
202
                         *fpregsetp + regi);
203
 
204
  regcache_raw_supply (regcache,
205
                       mips_regnum (gdbarch)->fp_control_status,
206
                       *fpregsetp + 32);
207
 
208
  /* FIXME: how can we supply FCRIR?  The ABI doesn't tell us.  */
209
  regcache_raw_supply (regcache,
210
                       mips_regnum (gdbarch)->fp_implementation_revision,
211
                       zerobuf);
212
}
213
 
214
/* Likewise, pack one or all floating point registers into an
215
   elf_fpregset_t.  */
216
 
217
void
218
mips_fill_fpregset (const struct regcache *regcache,
219
                    mips_elf_fpregset_t *fpregsetp, int regno)
220
{
221
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
222
  char *from, *to;
223
 
224
  if ((regno >= gdbarch_fp0_regnum (gdbarch))
225
      && (regno < gdbarch_fp0_regnum (gdbarch) + 32))
226
    {
227
      to = (char *) (*fpregsetp + regno - gdbarch_fp0_regnum (gdbarch));
228
      regcache_raw_collect (regcache, regno, to);
229
    }
230
  else if (regno == mips_regnum (gdbarch)->fp_control_status)
231
    {
232
      to = (char *) (*fpregsetp + 32);
233
      regcache_raw_collect (regcache, regno, to);
234
    }
235
  else if (regno == -1)
236
    {
237
      int regi;
238
 
239
      for (regi = 0; regi < 32; regi++)
240
        mips_fill_fpregset (regcache, fpregsetp,
241
                            gdbarch_fp0_regnum (gdbarch) + regi);
242
      mips_fill_fpregset (regcache, fpregsetp,
243
                          mips_regnum (gdbarch)->fp_control_status);
244
    }
245
}
246
 
247
/* Support for 64-bit ABIs.  */
248
 
249
/* Figure out where the longjmp will land.
250
   We expect the first arg to be a pointer to the jmp_buf structure
251
   from which we extract the pc (MIPS_LINUX_JB_PC) that we will land
252
   at.  The pc is copied into PC.  This routine returns 1 on
253
   success.  */
254
 
255
/* Details about jmp_buf.  */
256
 
257
#define MIPS64_LINUX_JB_PC 0
258
 
259
static int
260
mips64_linux_get_longjmp_target (struct frame_info *frame, CORE_ADDR *pc)
261
{
262
  CORE_ADDR jb_addr;
263
  struct gdbarch *gdbarch = get_frame_arch (frame);
264
  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
265
  void *buf = alloca (gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT);
266
  int element_size = gdbarch_ptr_bit (gdbarch) == 32 ? 4 : 8;
267
 
268
  jb_addr = get_frame_register_unsigned (frame, MIPS_A0_REGNUM);
269
 
270
  if (target_read_memory (jb_addr + MIPS64_LINUX_JB_PC * element_size,
271
                          buf,
272
                          gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT))
273
    return 0;
274
 
275
  *pc = extract_unsigned_integer (buf,
276
                                  gdbarch_ptr_bit (gdbarch) / TARGET_CHAR_BIT,
277
                                  byte_order);
278
 
279
  return 1;
280
}
281
 
282
/* Register set support functions.  These operate on standard 64-bit
283
   regsets, but work whether the target is 32-bit or 64-bit.  A 32-bit
284
   target will still use the 64-bit format for PTRACE_GETREGS.  */
285
 
286
/* Supply a 64-bit register.  */
287
 
288
static void
289
supply_64bit_reg (struct regcache *regcache, int regnum,
290
                  const gdb_byte *buf)
291
{
292
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
293
  if (gdbarch_byte_order (gdbarch) == BFD_ENDIAN_BIG
294
      && register_size (gdbarch, regnum) == 4)
295
    regcache_raw_supply (regcache, regnum, buf + 4);
296
  else
297
    regcache_raw_supply (regcache, regnum, buf);
298
}
299
 
300
/* Unpack a 64-bit elf_gregset_t into GDB's register cache.  */
301
 
302
void
303
mips64_supply_gregset (struct regcache *regcache,
304
                       const mips64_elf_gregset_t *gregsetp)
305
{
306
  int regi;
307
  const mips64_elf_greg_t *regp = *gregsetp;
308
  gdb_byte zerobuf[MAX_REGISTER_SIZE];
309
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
310
 
311
  memset (zerobuf, 0, MAX_REGISTER_SIZE);
312
 
313
  for (regi = MIPS64_EF_REG0 + 1; regi <= MIPS64_EF_REG31; regi++)
314
    supply_64bit_reg (regcache, regi - MIPS64_EF_REG0,
315
                      (const gdb_byte *)(regp + regi));
316
 
317
  if (mips_linux_restart_reg_p (gdbarch))
318
    supply_64bit_reg (regcache, MIPS_RESTART_REGNUM,
319
                      (const gdb_byte *)(regp + MIPS64_EF_REG0));
320
 
321
  supply_64bit_reg (regcache, mips_regnum (gdbarch)->lo,
322
                    (const gdb_byte *) (regp + MIPS64_EF_LO));
323
  supply_64bit_reg (regcache, mips_regnum (gdbarch)->hi,
324
                    (const gdb_byte *) (regp + MIPS64_EF_HI));
325
 
326
  supply_64bit_reg (regcache, mips_regnum (gdbarch)->pc,
327
                    (const gdb_byte *) (regp + MIPS64_EF_CP0_EPC));
328
  supply_64bit_reg (regcache, mips_regnum (gdbarch)->badvaddr,
329
                    (const gdb_byte *) (regp + MIPS64_EF_CP0_BADVADDR));
330
  supply_64bit_reg (regcache, MIPS_PS_REGNUM,
331
                    (const gdb_byte *) (regp + MIPS64_EF_CP0_STATUS));
332
  supply_64bit_reg (regcache, mips_regnum (gdbarch)->cause,
333
                    (const gdb_byte *) (regp + MIPS64_EF_CP0_CAUSE));
334
 
335
  /* Fill inaccessible registers with zero.  */
336
  regcache_raw_supply (regcache, MIPS_ZERO_REGNUM, zerobuf);
337
  regcache_raw_supply (regcache, MIPS_UNUSED_REGNUM, zerobuf);
338
  for (regi = MIPS_FIRST_EMBED_REGNUM;
339
       regi <= MIPS_LAST_EMBED_REGNUM;
340
       regi++)
341
    regcache_raw_supply (regcache, regi, zerobuf);
342
}
343
 
344
/* Pack our registers (or one register) into a 64-bit elf_gregset_t.  */
345
 
346
void
347
mips64_fill_gregset (const struct regcache *regcache,
348
                     mips64_elf_gregset_t *gregsetp, int regno)
349
{
350
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
351
  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
352
  int regaddr, regi;
353
  mips64_elf_greg_t *regp = *gregsetp;
354
  void *dst;
355
 
356
  if (regno == -1)
357
    {
358
      memset (regp, 0, sizeof (mips64_elf_gregset_t));
359
      for (regi = 1; regi < 32; regi++)
360
        mips64_fill_gregset (regcache, gregsetp, regi);
361
      mips64_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->lo);
362
      mips64_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->hi);
363
      mips64_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->pc);
364
      mips64_fill_gregset (regcache, gregsetp, mips_regnum (gdbarch)->badvaddr);
365
      mips64_fill_gregset (regcache, gregsetp, MIPS_PS_REGNUM);
366
      mips64_fill_gregset (regcache, gregsetp,  mips_regnum (gdbarch)->cause);
367
      mips64_fill_gregset (regcache, gregsetp, MIPS_RESTART_REGNUM);
368
      return;
369
   }
370
 
371
  if (regno > 0 && regno < 32)
372
    regaddr = regno + MIPS64_EF_REG0;
373
  else if (regno == mips_regnum (gdbarch)->lo)
374
    regaddr = MIPS64_EF_LO;
375
  else if (regno == mips_regnum (gdbarch)->hi)
376
    regaddr = MIPS64_EF_HI;
377
  else if (regno == mips_regnum (gdbarch)->pc)
378
    regaddr = MIPS64_EF_CP0_EPC;
379
  else if (regno == mips_regnum (gdbarch)->badvaddr)
380
    regaddr = MIPS64_EF_CP0_BADVADDR;
381
  else if (regno == MIPS_PS_REGNUM)
382
    regaddr = MIPS64_EF_CP0_STATUS;
383
  else if (regno == mips_regnum (gdbarch)->cause)
384
    regaddr = MIPS64_EF_CP0_CAUSE;
385
  else if (mips_linux_restart_reg_p (gdbarch)
386
           && regno == MIPS_RESTART_REGNUM)
387
    regaddr = MIPS64_EF_REG0;
388
  else
389
    regaddr = -1;
390
 
391
  if (regaddr != -1)
392
    {
393
      gdb_byte buf[MAX_REGISTER_SIZE];
394
      LONGEST val;
395
 
396
      regcache_raw_collect (regcache, regno, buf);
397
      val = extract_signed_integer (buf, register_size (gdbarch, regno),
398
                                    byte_order);
399
      dst = regp + regaddr;
400
      store_signed_integer (dst, 8, byte_order, val);
401
    }
402
}
403
 
404
/* Likewise, unpack an elf_fpregset_t.  */
405
 
406
void
407
mips64_supply_fpregset (struct regcache *regcache,
408
                        const mips64_elf_fpregset_t *fpregsetp)
409
{
410
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
411
  int regi;
412
 
413
  /* See mips_linux_o32_sigframe_init for a description of the
414
     peculiar FP register layout.  */
415
  if (register_size (gdbarch, gdbarch_fp0_regnum (gdbarch)) == 4)
416
    for (regi = 0; regi < 32; regi++)
417
      {
418
        const gdb_byte *reg_ptr = (const gdb_byte *)(*fpregsetp + (regi & ~1));
419
        if ((gdbarch_byte_order (gdbarch) == BFD_ENDIAN_BIG) != (regi & 1))
420
          reg_ptr += 4;
421
        regcache_raw_supply (regcache,
422
                             gdbarch_fp0_regnum (gdbarch) + regi,
423
                             reg_ptr);
424
      }
425
  else
426
    for (regi = 0; regi < 32; regi++)
427
      regcache_raw_supply (regcache,
428
                           gdbarch_fp0_regnum (gdbarch) + regi,
429
                           (const char *)(*fpregsetp + regi));
430
 
431
  supply_32bit_reg (regcache, mips_regnum (gdbarch)->fp_control_status,
432
                    (const gdb_byte *)(*fpregsetp + 32));
433
 
434
  /* The ABI doesn't tell us how to supply FCRIR, and core dumps don't
435
     include it - but the result of PTRACE_GETFPREGS does.  The best we
436
     can do is to assume that its value is present.  */
437
  supply_32bit_reg (regcache,
438
                    mips_regnum (gdbarch)->fp_implementation_revision,
439
                    (const gdb_byte *)(*fpregsetp + 32) + 4);
440
}
441
 
442
/* Likewise, pack one or all floating point registers into an
443
   elf_fpregset_t.  */
444
 
445
void
446
mips64_fill_fpregset (const struct regcache *regcache,
447
                      mips64_elf_fpregset_t *fpregsetp, int regno)
448
{
449
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
450
  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
451
  gdb_byte *to;
452
 
453
  if ((regno >= gdbarch_fp0_regnum (gdbarch))
454
      && (regno < gdbarch_fp0_regnum (gdbarch) + 32))
455
    {
456
      /* See mips_linux_o32_sigframe_init for a description of the
457
         peculiar FP register layout.  */
458
      if (register_size (gdbarch, regno) == 4)
459
        {
460
          int regi = regno - gdbarch_fp0_regnum (gdbarch);
461
 
462
          to = (gdb_byte *) (*fpregsetp + (regi & ~1));
463
          if ((gdbarch_byte_order (gdbarch) == BFD_ENDIAN_BIG) != (regi & 1))
464
            to += 4;
465
          regcache_raw_collect (regcache, regno, to);
466
        }
467
      else
468
        {
469
          to = (gdb_byte *) (*fpregsetp + regno - gdbarch_fp0_regnum (gdbarch));
470
          regcache_raw_collect (regcache, regno, to);
471
        }
472
    }
473
  else if (regno == mips_regnum (gdbarch)->fp_control_status)
474
    {
475
      gdb_byte buf[MAX_REGISTER_SIZE];
476
      LONGEST val;
477
 
478
      regcache_raw_collect (regcache, regno, buf);
479
      val = extract_signed_integer (buf, register_size (gdbarch, regno),
480
                                    byte_order);
481
      to = (gdb_byte *) (*fpregsetp + 32);
482
      store_signed_integer (to, 4, byte_order, val);
483
    }
484
  else if (regno == mips_regnum (gdbarch)->fp_implementation_revision)
485
    {
486
      gdb_byte buf[MAX_REGISTER_SIZE];
487
      LONGEST val;
488
 
489
      regcache_raw_collect (regcache, regno, buf);
490
      val = extract_signed_integer (buf, register_size (gdbarch, regno),
491
                                    byte_order);
492
      to = (gdb_byte *) (*fpregsetp + 32) + 4;
493
      store_signed_integer (to, 4, byte_order, val);
494
    }
495
  else if (regno == -1)
496
    {
497
      int regi;
498
 
499
      for (regi = 0; regi < 32; regi++)
500
        mips64_fill_fpregset (regcache, fpregsetp,
501
                              gdbarch_fp0_regnum (gdbarch) + regi);
502
      mips64_fill_fpregset (regcache, fpregsetp,
503
                            mips_regnum (gdbarch)->fp_control_status);
504
      mips64_fill_fpregset (regcache, fpregsetp,
505
                            (mips_regnum (gdbarch)
506
                              ->fp_implementation_revision));
507
    }
508
}
509
 
510
 
511
/*  Use a local version of this function to get the correct types for
512
    regsets, until multi-arch core support is ready.  */
513
 
514
static void
515
fetch_core_registers (struct regcache *regcache,
516
                      char *core_reg_sect, unsigned core_reg_size,
517
                      int which, CORE_ADDR reg_addr)
518
{
519
  mips_elf_gregset_t gregset;
520
  mips_elf_fpregset_t fpregset;
521
  mips64_elf_gregset_t gregset64;
522
  mips64_elf_fpregset_t fpregset64;
523
 
524
  if (which == 0)
525
    {
526
      if (core_reg_size == sizeof (gregset))
527
        {
528
          memcpy ((char *) &gregset, core_reg_sect, sizeof (gregset));
529
          mips_supply_gregset (regcache,
530
                               (const mips_elf_gregset_t *) &gregset);
531
        }
532
      else if (core_reg_size == sizeof (gregset64))
533
        {
534
          memcpy ((char *) &gregset64, core_reg_sect, sizeof (gregset64));
535
          mips64_supply_gregset (regcache,
536
                                 (const mips64_elf_gregset_t *) &gregset64);
537
        }
538
      else
539
        {
540
          warning (_("wrong size gregset struct in core file"));
541
        }
542
    }
543
  else if (which == 2)
544
    {
545
      if (core_reg_size == sizeof (fpregset))
546
        {
547
          memcpy ((char *) &fpregset, core_reg_sect, sizeof (fpregset));
548
          mips_supply_fpregset (regcache,
549
                                (const mips_elf_fpregset_t *) &fpregset);
550
        }
551
      else if (core_reg_size == sizeof (fpregset64))
552
        {
553
          memcpy ((char *) &fpregset64, core_reg_sect,
554
                  sizeof (fpregset64));
555
          mips64_supply_fpregset (regcache,
556
                                  (const mips64_elf_fpregset_t *) &fpregset64);
557
        }
558
      else
559
        {
560
          warning (_("wrong size fpregset struct in core file"));
561
        }
562
    }
563
}
564
 
565
/* Register that we are able to handle ELF file formats using standard
566
   procfs "regset" structures.  */
567
 
568
static struct core_fns regset_core_fns =
569
{
570
  bfd_target_elf_flavour,               /* core_flavour */
571
  default_check_format,                 /* check_format */
572
  default_core_sniffer,                 /* core_sniffer */
573
  fetch_core_registers,                 /* core_read_registers */
574
  NULL                                  /* next */
575
};
576
 
577
static const struct target_desc *
578
mips_linux_core_read_description (struct gdbarch *gdbarch,
579
                                  struct target_ops *target,
580
                                  bfd *abfd)
581
{
582
  asection *section = bfd_get_section_by_name (abfd, ".reg");
583
  if (! section)
584
    return NULL;
585
 
586
  switch (bfd_section_size (abfd, section))
587
    {
588
    case sizeof (mips_elf_gregset_t):
589
      return mips_tdesc_gp32;
590
 
591
    case sizeof (mips64_elf_gregset_t):
592
      return mips_tdesc_gp64;
593
 
594
    default:
595
      return NULL;
596
    }
597
}
598
 
599
 
600
/* Check the code at PC for a dynamic linker lazy resolution stub.
601
   Because they aren't in the .plt section, we pattern-match on the
602
   code generated by GNU ld.  They look like this:
603
 
604
   lw t9,0x8010(gp)
605
   addu t7,ra
606
   jalr t9,ra
607
   addiu t8,zero,INDEX
608
 
609
   (with the appropriate doubleword instructions for N64).  Also
610
   return the dynamic symbol index used in the last instruction.  */
611
 
612
static int
613
mips_linux_in_dynsym_stub (CORE_ADDR pc, char *name)
614
{
615
  unsigned char buf[28], *p;
616
  ULONGEST insn, insn1;
617
  int n64 = (mips_abi (target_gdbarch) == MIPS_ABI_N64);
618
  enum bfd_endian byte_order = gdbarch_byte_order (target_gdbarch);
619
 
620
  read_memory (pc - 12, buf, 28);
621
 
622
  if (n64)
623
    {
624
      /* ld t9,0x8010(gp) */
625
      insn1 = 0xdf998010;
626
    }
627
  else
628
    {
629
      /* lw t9,0x8010(gp) */
630
      insn1 = 0x8f998010;
631
    }
632
 
633
  p = buf + 12;
634
  while (p >= buf)
635
    {
636
      insn = extract_unsigned_integer (p, 4, byte_order);
637
      if (insn == insn1)
638
        break;
639
      p -= 4;
640
    }
641
  if (p < buf)
642
    return 0;
643
 
644
  insn = extract_unsigned_integer (p + 4, 4, byte_order);
645
  if (n64)
646
    {
647
      /* daddu t7,ra */
648
      if (insn != 0x03e0782d)
649
        return 0;
650
    }
651
  else
652
    {
653
      /* addu t7,ra */
654
      if (insn != 0x03e07821)
655
        return 0;
656
    }
657
 
658
  insn = extract_unsigned_integer (p + 8, 4, byte_order);
659
  /* jalr t9,ra */
660
  if (insn != 0x0320f809)
661
    return 0;
662
 
663
  insn = extract_unsigned_integer (p + 12, 4, byte_order);
664
  if (n64)
665
    {
666
      /* daddiu t8,zero,0 */
667
      if ((insn & 0xffff0000) != 0x64180000)
668
        return 0;
669
    }
670
  else
671
    {
672
      /* addiu t8,zero,0 */
673
      if ((insn & 0xffff0000) != 0x24180000)
674
        return 0;
675
    }
676
 
677
  return (insn & 0xffff);
678
}
679
 
680
/* Return non-zero iff PC belongs to the dynamic linker resolution
681
   code, a PLT entry, or a lazy binding stub.  */
682
 
683
static int
684
mips_linux_in_dynsym_resolve_code (CORE_ADDR pc)
685
{
686
  /* Check whether PC is in the dynamic linker.  This also checks
687
     whether it is in the .plt section, used by non-PIC executables.  */
688
  if (svr4_in_dynsym_resolve_code (pc))
689
    return 1;
690
 
691
  /* Pattern match for the stub.  It would be nice if there were a
692
     more efficient way to avoid this check.  */
693
  if (mips_linux_in_dynsym_stub (pc, NULL))
694
    return 1;
695
 
696
  return 0;
697
}
698
 
699
/* See the comments for SKIP_SOLIB_RESOLVER at the top of infrun.c,
700
   and glibc_skip_solib_resolver in glibc-tdep.c.  The normal glibc
701
   implementation of this triggers at "fixup" from the same objfile as
702
   "_dl_runtime_resolve"; MIPS GNU/Linux can trigger at
703
   "__dl_runtime_resolve" directly.  An unresolved lazy binding
704
   stub will point to _dl_runtime_resolve, which will first call
705
   __dl_runtime_resolve, and then pass control to the resolved
706
   function.  */
707
 
708
static CORE_ADDR
709
mips_linux_skip_resolver (struct gdbarch *gdbarch, CORE_ADDR pc)
710
{
711
  struct minimal_symbol *resolver;
712
 
713
  resolver = lookup_minimal_symbol ("__dl_runtime_resolve", NULL, NULL);
714
 
715
  if (resolver && SYMBOL_VALUE_ADDRESS (resolver) == pc)
716
    return frame_unwind_caller_pc (get_current_frame ());
717
 
718
  return glibc_skip_solib_resolver (gdbarch, pc);
719
}
720
 
721
/* Signal trampoline support.  There are four supported layouts for a
722
   signal frame: o32 sigframe, o32 rt_sigframe, n32 rt_sigframe, and
723
   n64 rt_sigframe.  We handle them all independently; not the most
724
   efficient way, but simplest.  First, declare all the unwinders.  */
725
 
726
static void mips_linux_o32_sigframe_init (const struct tramp_frame *self,
727
                                          struct frame_info *this_frame,
728
                                          struct trad_frame_cache *this_cache,
729
                                          CORE_ADDR func);
730
 
731
static void mips_linux_n32n64_sigframe_init (const struct tramp_frame *self,
732
                                             struct frame_info *this_frame,
733
                                             struct trad_frame_cache *this_cache,
734
                                             CORE_ADDR func);
735
 
736
#define MIPS_NR_LINUX 4000
737
#define MIPS_NR_N64_LINUX 5000
738
#define MIPS_NR_N32_LINUX 6000
739
 
740
#define MIPS_NR_sigreturn MIPS_NR_LINUX + 119
741
#define MIPS_NR_rt_sigreturn MIPS_NR_LINUX + 193
742
#define MIPS_NR_N64_rt_sigreturn MIPS_NR_N64_LINUX + 211
743
#define MIPS_NR_N32_rt_sigreturn MIPS_NR_N32_LINUX + 211
744
 
745
#define MIPS_INST_LI_V0_SIGRETURN 0x24020000 + MIPS_NR_sigreturn
746
#define MIPS_INST_LI_V0_RT_SIGRETURN 0x24020000 + MIPS_NR_rt_sigreturn
747
#define MIPS_INST_LI_V0_N64_RT_SIGRETURN 0x24020000 + MIPS_NR_N64_rt_sigreturn
748
#define MIPS_INST_LI_V0_N32_RT_SIGRETURN 0x24020000 + MIPS_NR_N32_rt_sigreturn
749
#define MIPS_INST_SYSCALL 0x0000000c
750
 
751
static const struct tramp_frame mips_linux_o32_sigframe = {
752
  SIGTRAMP_FRAME,
753
  4,
754
  {
755
    { MIPS_INST_LI_V0_SIGRETURN, -1 },
756
    { MIPS_INST_SYSCALL, -1 },
757
    { TRAMP_SENTINEL_INSN, -1 }
758
  },
759
  mips_linux_o32_sigframe_init
760
};
761
 
762
static const struct tramp_frame mips_linux_o32_rt_sigframe = {
763
  SIGTRAMP_FRAME,
764
  4,
765
  {
766
    { MIPS_INST_LI_V0_RT_SIGRETURN, -1 },
767
    { MIPS_INST_SYSCALL, -1 },
768
    { TRAMP_SENTINEL_INSN, -1 } },
769
  mips_linux_o32_sigframe_init
770
};
771
 
772
static const struct tramp_frame mips_linux_n32_rt_sigframe = {
773
  SIGTRAMP_FRAME,
774
  4,
775
  {
776
    { MIPS_INST_LI_V0_N32_RT_SIGRETURN, -1 },
777
    { MIPS_INST_SYSCALL, -1 },
778
    { TRAMP_SENTINEL_INSN, -1 }
779
  },
780
  mips_linux_n32n64_sigframe_init
781
};
782
 
783
static const struct tramp_frame mips_linux_n64_rt_sigframe = {
784
  SIGTRAMP_FRAME,
785
  4,
786
  {
787
    { MIPS_INST_LI_V0_N64_RT_SIGRETURN, -1 },
788
    { MIPS_INST_SYSCALL, -1 },
789
    { TRAMP_SENTINEL_INSN, -1 }
790
  },
791
  mips_linux_n32n64_sigframe_init
792
};
793
 
794
/* *INDENT-OFF* */
795
/* The unwinder for o32 signal frames.  The legacy structures look
796
   like this:
797
 
798
   struct sigframe {
799
     u32 sf_ass[4];            [argument save space for o32]
800
     u32 sf_code[2];           [signal trampoline or fill]
801
     struct sigcontext sf_sc;
802
     sigset_t sf_mask;
803
   };
804
 
805
   struct sigcontext {
806
        unsigned int       sc_regmask;          [Unused]
807
        unsigned int       sc_status;
808
        unsigned long long sc_pc;
809
        unsigned long long sc_regs[32];
810
        unsigned long long sc_fpregs[32];
811
        unsigned int       sc_ownedfp;
812
        unsigned int       sc_fpc_csr;
813
        unsigned int       sc_fpc_eir;          [Unused]
814
        unsigned int       sc_used_math;
815
        unsigned int       sc_ssflags;          [Unused]
816
        [Alignment hole of four bytes]
817
        unsigned long long sc_mdhi;
818
        unsigned long long sc_mdlo;
819
 
820
        unsigned int       sc_cause;            [Unused]
821
        unsigned int       sc_badvaddr;         [Unused]
822
 
823
        unsigned long      sc_sigset[4];        [kernel's sigset_t]
824
   };
825
 
826
   The RT signal frames look like this:
827
 
828
   struct rt_sigframe {
829
     u32 rs_ass[4];            [argument save space for o32]
830
     u32 rs_code[2]            [signal trampoline or fill]
831
     struct siginfo rs_info;
832
     struct ucontext rs_uc;
833
   };
834
 
835
   struct ucontext {
836
     unsigned long     uc_flags;
837
     struct ucontext  *uc_link;
838
     stack_t           uc_stack;
839
     [Alignment hole of four bytes]
840
     struct sigcontext uc_mcontext;
841
     sigset_t          uc_sigmask;
842
   };  */
843
/* *INDENT-ON* */
844
 
845
#define SIGFRAME_SIGCONTEXT_OFFSET   (6 * 4)
846
 
847
#define RTSIGFRAME_SIGINFO_SIZE      128
848
#define STACK_T_SIZE                 (3 * 4)
849
#define UCONTEXT_SIGCONTEXT_OFFSET   (2 * 4 + STACK_T_SIZE + 4)
850
#define RTSIGFRAME_SIGCONTEXT_OFFSET (SIGFRAME_SIGCONTEXT_OFFSET \
851
                                      + RTSIGFRAME_SIGINFO_SIZE \
852
                                      + UCONTEXT_SIGCONTEXT_OFFSET)
853
 
854
#define SIGCONTEXT_PC       (1 * 8)
855
#define SIGCONTEXT_REGS     (2 * 8)
856
#define SIGCONTEXT_FPREGS   (34 * 8)
857
#define SIGCONTEXT_FPCSR    (66 * 8 + 4)
858
#define SIGCONTEXT_HI       (69 * 8)
859
#define SIGCONTEXT_LO       (70 * 8)
860
#define SIGCONTEXT_CAUSE    (71 * 8 + 0)
861
#define SIGCONTEXT_BADVADDR (71 * 8 + 4)
862
 
863
#define SIGCONTEXT_REG_SIZE 8
864
 
865
static void
866
mips_linux_o32_sigframe_init (const struct tramp_frame *self,
867
                              struct frame_info *this_frame,
868
                              struct trad_frame_cache *this_cache,
869
                              CORE_ADDR func)
870
{
871
  struct gdbarch *gdbarch = get_frame_arch (this_frame);
872
  int ireg, reg_position;
873
  CORE_ADDR frame_sp = get_frame_sp (this_frame);
874
  CORE_ADDR sigcontext_base;
875
  const struct mips_regnum *regs = mips_regnum (gdbarch);
876
  CORE_ADDR regs_base;
877
 
878
  if (self == &mips_linux_o32_sigframe)
879
    sigcontext_base = frame_sp + SIGFRAME_SIGCONTEXT_OFFSET;
880
  else
881
    sigcontext_base = frame_sp + RTSIGFRAME_SIGCONTEXT_OFFSET;
882
 
883
  /* I'm not proud of this hack.  Eventually we will have the
884
     infrastructure to indicate the size of saved registers on a
885
     per-frame basis, but right now we don't; the kernel saves eight
886
     bytes but we only want four.  Use regs_base to access any
887
     64-bit fields.  */
888
  if (gdbarch_byte_order (gdbarch) == BFD_ENDIAN_BIG)
889
    regs_base = sigcontext_base + 4;
890
  else
891
    regs_base = sigcontext_base;
892
 
893
  if (mips_linux_restart_reg_p (gdbarch))
894
    trad_frame_set_reg_addr (this_cache,
895
                             (MIPS_RESTART_REGNUM
896
                              + gdbarch_num_regs (gdbarch)),
897
                             regs_base + SIGCONTEXT_REGS);
898
 
899
  for (ireg = 1; ireg < 32; ireg++)
900
    trad_frame_set_reg_addr (this_cache,
901
                             ireg + MIPS_ZERO_REGNUM
902
                               + gdbarch_num_regs (gdbarch),
903
                             regs_base + SIGCONTEXT_REGS
904
                             + ireg * SIGCONTEXT_REG_SIZE);
905
 
906
  /* The way that floating point registers are saved, unfortunately,
907
     depends on the architecture the kernel is built for.  For the r3000 and
908
     tx39, four bytes of each register are at the beginning of each of the
909
     32 eight byte slots.  For everything else, the registers are saved
910
     using double precision; only the even-numbered slots are initialized,
911
     and the high bits are the odd-numbered register.  Assume the latter
912
     layout, since we can't tell, and it's much more common.  Which bits are
913
     the "high" bits depends on endianness.  */
914
  for (ireg = 0; ireg < 32; ireg++)
915
    if ((gdbarch_byte_order (gdbarch) == BFD_ENDIAN_BIG) != (ireg & 1))
916
      trad_frame_set_reg_addr (this_cache,
917
                               ireg + regs->fp0 +
918
                                 gdbarch_num_regs (gdbarch),
919
                               sigcontext_base + SIGCONTEXT_FPREGS + 4
920
                               + (ireg & ~1) * SIGCONTEXT_REG_SIZE);
921
    else
922
      trad_frame_set_reg_addr (this_cache,
923
                               ireg + regs->fp0
924
                                 + gdbarch_num_regs (gdbarch),
925
                               sigcontext_base + SIGCONTEXT_FPREGS
926
                               + (ireg & ~1) * SIGCONTEXT_REG_SIZE);
927
 
928
  trad_frame_set_reg_addr (this_cache,
929
                           regs->pc + gdbarch_num_regs (gdbarch),
930
                           regs_base + SIGCONTEXT_PC);
931
 
932
  trad_frame_set_reg_addr (this_cache,
933
                           regs->fp_control_status
934
                           + gdbarch_num_regs (gdbarch),
935
                           sigcontext_base + SIGCONTEXT_FPCSR);
936
  trad_frame_set_reg_addr (this_cache,
937
                           regs->hi + gdbarch_num_regs (gdbarch),
938
                           regs_base + SIGCONTEXT_HI);
939
  trad_frame_set_reg_addr (this_cache,
940
                           regs->lo + gdbarch_num_regs (gdbarch),
941
                           regs_base + SIGCONTEXT_LO);
942
  trad_frame_set_reg_addr (this_cache,
943
                           regs->cause + gdbarch_num_regs (gdbarch),
944
                           sigcontext_base + SIGCONTEXT_CAUSE);
945
  trad_frame_set_reg_addr (this_cache,
946
                           regs->badvaddr + gdbarch_num_regs (gdbarch),
947
                           sigcontext_base + SIGCONTEXT_BADVADDR);
948
 
949
  /* Choice of the bottom of the sigframe is somewhat arbitrary.  */
950
  trad_frame_set_id (this_cache, frame_id_build (frame_sp, func));
951
}
952
 
953
/* *INDENT-OFF* */
954
/* For N32/N64 things look different.  There is no non-rt signal frame.
955
 
956
  struct rt_sigframe_n32 {
957
    u32 rs_ass[4];                  [ argument save space for o32 ]
958
    u32 rs_code[2];                 [ signal trampoline or fill ]
959
    struct siginfo rs_info;
960
    struct ucontextn32 rs_uc;
961
  };
962
 
963
  struct ucontextn32 {
964
    u32                 uc_flags;
965
    s32                 uc_link;
966
    stack32_t           uc_stack;
967
    struct sigcontext   uc_mcontext;
968
    sigset_t            uc_sigmask;   [ mask last for extensibility ]
969
  };
970
 
971
  struct rt_sigframe {
972
    u32 rs_ass[4];                  [ argument save space for o32 ]
973
    u32 rs_code[2];                 [ signal trampoline ]
974
    struct siginfo rs_info;
975
    struct ucontext rs_uc;
976
  };
977
 
978
  struct ucontext {
979
    unsigned long     uc_flags;
980
    struct ucontext  *uc_link;
981
    stack_t           uc_stack;
982
    struct sigcontext uc_mcontext;
983
    sigset_t          uc_sigmask;   [ mask last for extensibility ]
984
  };
985
 
986
  And the sigcontext is different (this is for both n32 and n64):
987
 
988
  struct sigcontext {
989
    unsigned long long sc_regs[32];
990
    unsigned long long sc_fpregs[32];
991
    unsigned long long sc_mdhi;
992
    unsigned long long sc_hi1;
993
    unsigned long long sc_hi2;
994
    unsigned long long sc_hi3;
995
    unsigned long long sc_mdlo;
996
    unsigned long long sc_lo1;
997
    unsigned long long sc_lo2;
998
    unsigned long long sc_lo3;
999
    unsigned long long sc_pc;
1000
    unsigned int       sc_fpc_csr;
1001
    unsigned int       sc_used_math;
1002
    unsigned int       sc_dsp;
1003
    unsigned int       sc_reserved;
1004
  };
1005
 
1006
  That is the post-2.6.12 definition of the 64-bit sigcontext; before
1007
  then, there were no hi1-hi3 or lo1-lo3.  Cause and badvaddr were
1008
  included too.  */
1009
/* *INDENT-ON* */
1010
 
1011
#define N32_STACK_T_SIZE                STACK_T_SIZE
1012
#define N64_STACK_T_SIZE                (2 * 8 + 4)
1013
#define N32_UCONTEXT_SIGCONTEXT_OFFSET  (2 * 4 + N32_STACK_T_SIZE + 4)
1014
#define N64_UCONTEXT_SIGCONTEXT_OFFSET  (2 * 8 + N64_STACK_T_SIZE + 4)
1015
#define N32_SIGFRAME_SIGCONTEXT_OFFSET  (SIGFRAME_SIGCONTEXT_OFFSET \
1016
                                         + RTSIGFRAME_SIGINFO_SIZE \
1017
                                         + N32_UCONTEXT_SIGCONTEXT_OFFSET)
1018
#define N64_SIGFRAME_SIGCONTEXT_OFFSET  (SIGFRAME_SIGCONTEXT_OFFSET \
1019
                                         + RTSIGFRAME_SIGINFO_SIZE \
1020
                                         + N64_UCONTEXT_SIGCONTEXT_OFFSET)
1021
 
1022
#define N64_SIGCONTEXT_REGS     (0 * 8)
1023
#define N64_SIGCONTEXT_FPREGS   (32 * 8)
1024
#define N64_SIGCONTEXT_HI       (64 * 8)
1025
#define N64_SIGCONTEXT_LO       (68 * 8)
1026
#define N64_SIGCONTEXT_PC       (72 * 8)
1027
#define N64_SIGCONTEXT_FPCSR    (73 * 8)
1028
 
1029
#define N64_SIGCONTEXT_REG_SIZE 8
1030
 
1031
static void
1032
mips_linux_n32n64_sigframe_init (const struct tramp_frame *self,
1033
                                 struct frame_info *this_frame,
1034
                                 struct trad_frame_cache *this_cache,
1035
                                 CORE_ADDR func)
1036
{
1037
  struct gdbarch *gdbarch = get_frame_arch (this_frame);
1038
  int ireg, reg_position;
1039
  CORE_ADDR frame_sp = get_frame_sp (this_frame);
1040
  CORE_ADDR sigcontext_base;
1041
  const struct mips_regnum *regs = mips_regnum (gdbarch);
1042
 
1043
  if (self == &mips_linux_n32_rt_sigframe)
1044
    sigcontext_base = frame_sp + N32_SIGFRAME_SIGCONTEXT_OFFSET;
1045
  else
1046
    sigcontext_base = frame_sp + N64_SIGFRAME_SIGCONTEXT_OFFSET;
1047
 
1048
  if (mips_linux_restart_reg_p (gdbarch))
1049
    trad_frame_set_reg_addr (this_cache,
1050
                             (MIPS_RESTART_REGNUM
1051
                              + gdbarch_num_regs (gdbarch)),
1052
                             sigcontext_base + N64_SIGCONTEXT_REGS);
1053
 
1054
  for (ireg = 1; ireg < 32; ireg++)
1055
    trad_frame_set_reg_addr (this_cache,
1056
                             ireg + MIPS_ZERO_REGNUM
1057
                             + gdbarch_num_regs (gdbarch),
1058
                             sigcontext_base + N64_SIGCONTEXT_REGS
1059
                             + ireg * N64_SIGCONTEXT_REG_SIZE);
1060
 
1061
  for (ireg = 0; ireg < 32; ireg++)
1062
    trad_frame_set_reg_addr (this_cache,
1063
                             ireg + regs->fp0
1064
                             + gdbarch_num_regs (gdbarch),
1065
                             sigcontext_base + N64_SIGCONTEXT_FPREGS
1066
                             + ireg * N64_SIGCONTEXT_REG_SIZE);
1067
 
1068
  trad_frame_set_reg_addr (this_cache,
1069
                           regs->pc + gdbarch_num_regs (gdbarch),
1070
                           sigcontext_base + N64_SIGCONTEXT_PC);
1071
 
1072
  trad_frame_set_reg_addr (this_cache,
1073
                           regs->fp_control_status
1074
                           + gdbarch_num_regs (gdbarch),
1075
                           sigcontext_base + N64_SIGCONTEXT_FPCSR);
1076
  trad_frame_set_reg_addr (this_cache,
1077
                           regs->hi + gdbarch_num_regs (gdbarch),
1078
                           sigcontext_base + N64_SIGCONTEXT_HI);
1079
  trad_frame_set_reg_addr (this_cache,
1080
                           regs->lo + gdbarch_num_regs (gdbarch),
1081
                           sigcontext_base + N64_SIGCONTEXT_LO);
1082
 
1083
  /* Choice of the bottom of the sigframe is somewhat arbitrary.  */
1084
  trad_frame_set_id (this_cache, frame_id_build (frame_sp, func));
1085
}
1086
 
1087
static void
1088
mips_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
1089
{
1090
  struct gdbarch *gdbarch = get_regcache_arch (regcache);
1091
  regcache_cooked_write_unsigned (regcache, gdbarch_pc_regnum (gdbarch), pc);
1092
 
1093
  /* Clear the syscall restart flag.  */
1094
  if (mips_linux_restart_reg_p (gdbarch))
1095
    regcache_cooked_write_unsigned (regcache, MIPS_RESTART_REGNUM, 0);
1096
}
1097
 
1098
/* Return 1 if MIPS_RESTART_REGNUM is usable.  */
1099
 
1100
int
1101
mips_linux_restart_reg_p (struct gdbarch *gdbarch)
1102
{
1103
  /* If we do not have a target description with registers, then
1104
     MIPS_RESTART_REGNUM will not be included in the register set.  */
1105
  if (!tdesc_has_registers (gdbarch_target_desc (gdbarch)))
1106
    return 0;
1107
 
1108
  /* If we do, then MIPS_RESTART_REGNUM is safe to check; it will
1109
     either be GPR-sized or missing.  */
1110
  return register_size (gdbarch, MIPS_RESTART_REGNUM) > 0;
1111
}
1112
 
1113
/* When FRAME is at a syscall instruction, return the PC of the next
1114
   instruction to be executed.  */
1115
 
1116
static CORE_ADDR
1117
mips_linux_syscall_next_pc (struct frame_info *frame)
1118
{
1119
  CORE_ADDR pc = get_frame_pc (frame);
1120
  ULONGEST v0 = get_frame_register_unsigned (frame, MIPS_V0_REGNUM);
1121
 
1122
  /* If we are about to make a sigreturn syscall, use the unwinder to
1123
     decode the signal frame.  */
1124
  if (v0 == MIPS_NR_sigreturn
1125
      || v0 == MIPS_NR_rt_sigreturn
1126
      || v0 == MIPS_NR_N64_rt_sigreturn
1127
      || v0 == MIPS_NR_N32_rt_sigreturn)
1128
    return frame_unwind_caller_pc (get_current_frame ());
1129
 
1130
  return pc + 4;
1131
}
1132
 
1133
/* Initialize one of the GNU/Linux OS ABIs.  */
1134
 
1135
static void
1136
mips_linux_init_abi (struct gdbarch_info info,
1137
                     struct gdbarch *gdbarch)
1138
{
1139
  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
1140
  enum mips_abi abi = mips_abi (gdbarch);
1141
  struct tdesc_arch_data *tdesc_data = (void *) info.tdep_info;
1142
 
1143
  switch (abi)
1144
    {
1145
      case MIPS_ABI_O32:
1146
        set_gdbarch_get_longjmp_target (gdbarch,
1147
                                        mips_linux_get_longjmp_target);
1148
        set_solib_svr4_fetch_link_map_offsets
1149
          (gdbarch, svr4_ilp32_fetch_link_map_offsets);
1150
        tramp_frame_prepend_unwinder (gdbarch, &mips_linux_o32_sigframe);
1151
        tramp_frame_prepend_unwinder (gdbarch, &mips_linux_o32_rt_sigframe);
1152
        break;
1153
      case MIPS_ABI_N32:
1154
        set_gdbarch_get_longjmp_target (gdbarch,
1155
                                        mips_linux_get_longjmp_target);
1156
        set_solib_svr4_fetch_link_map_offsets
1157
          (gdbarch, svr4_ilp32_fetch_link_map_offsets);
1158
        set_gdbarch_long_double_bit (gdbarch, 128);
1159
        /* These floatformats should probably be renamed.  MIPS uses
1160
           the same 128-bit IEEE floating point format that IA-64 uses,
1161
           except that the quiet/signalling NaN bit is reversed (GDB
1162
           does not distinguish between quiet and signalling NaNs).  */
1163
        set_gdbarch_long_double_format (gdbarch, floatformats_ia64_quad);
1164
        tramp_frame_prepend_unwinder (gdbarch, &mips_linux_n32_rt_sigframe);
1165
        break;
1166
      case MIPS_ABI_N64:
1167
        set_gdbarch_get_longjmp_target (gdbarch,
1168
                                        mips64_linux_get_longjmp_target);
1169
        set_solib_svr4_fetch_link_map_offsets
1170
          (gdbarch, svr4_lp64_fetch_link_map_offsets);
1171
        set_gdbarch_long_double_bit (gdbarch, 128);
1172
        /* These floatformats should probably be renamed.  MIPS uses
1173
           the same 128-bit IEEE floating point format that IA-64 uses,
1174
           except that the quiet/signalling NaN bit is reversed (GDB
1175
           does not distinguish between quiet and signalling NaNs).  */
1176
        set_gdbarch_long_double_format (gdbarch, floatformats_ia64_quad);
1177
        tramp_frame_prepend_unwinder (gdbarch, &mips_linux_n64_rt_sigframe);
1178
        break;
1179
      default:
1180
        break;
1181
    }
1182
 
1183
  set_gdbarch_skip_solib_resolver (gdbarch, mips_linux_skip_resolver);
1184
 
1185
  set_gdbarch_software_single_step (gdbarch, mips_software_single_step);
1186
 
1187
  /* Enable TLS support.  */
1188
  set_gdbarch_fetch_tls_load_module_address (gdbarch,
1189
                                             svr4_fetch_objfile_link_map);
1190
 
1191
  /* Initialize this lazily, to avoid an initialization order
1192
     dependency on solib-svr4.c's _initialize routine.  */
1193
  if (mips_svr4_so_ops.in_dynsym_resolve_code == NULL)
1194
    {
1195
      mips_svr4_so_ops = svr4_so_ops;
1196
      mips_svr4_so_ops.in_dynsym_resolve_code
1197
        = mips_linux_in_dynsym_resolve_code;
1198
    }
1199
  set_solib_ops (gdbarch, &mips_svr4_so_ops);
1200
 
1201
  set_gdbarch_write_pc (gdbarch, mips_linux_write_pc);
1202
 
1203
  set_gdbarch_core_read_description (gdbarch,
1204
                                     mips_linux_core_read_description);
1205
 
1206
  tdep->syscall_next_pc = mips_linux_syscall_next_pc;
1207
 
1208
  if (tdesc_data)
1209
    {
1210
      const struct tdesc_feature *feature;
1211
 
1212
      /* If we have target-described registers, then we can safely
1213
         reserve a number for MIPS_RESTART_REGNUM (whether it is
1214
         described or not).  */
1215
      gdb_assert (gdbarch_num_regs (gdbarch) <= MIPS_RESTART_REGNUM);
1216
      set_gdbarch_num_regs (gdbarch, MIPS_RESTART_REGNUM + 1);
1217
 
1218
      /* If it's present, then assign it to the reserved number.  */
1219
      feature = tdesc_find_feature (info.target_desc,
1220
                                    "org.gnu.gdb.mips.linux");
1221
      if (feature != NULL)
1222
        tdesc_numbered_register (feature, tdesc_data, MIPS_RESTART_REGNUM,
1223
                                 "restart");
1224
    }
1225
}
1226
 
1227
/* Provide a prototype to silence -Wmissing-prototypes.  */
1228
extern initialize_file_ftype _initialize_mips_linux_tdep;
1229
 
1230
void
1231
_initialize_mips_linux_tdep (void)
1232
{
1233
  const struct bfd_arch_info *arch_info;
1234
 
1235
  for (arch_info = bfd_lookup_arch (bfd_arch_mips, 0);
1236
       arch_info != NULL;
1237
       arch_info = arch_info->next)
1238
    {
1239
      gdbarch_register_osabi (bfd_arch_mips, arch_info->mach,
1240
                              GDB_OSABI_LINUX,
1241
                              mips_linux_init_abi);
1242
    }
1243
 
1244
  deprecated_add_core_fns (&regset_core_fns);
1245
}

powered by: WebSVN 2.1.0

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