gdb/gdbserver/linux-ppc-low.c

   1 /* GNU/Linux/PowerPC specific low level interface, for the remote server for
   2    GDB.
   3    Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2005, 2007, 2008,
   4    2009 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 "server.h"
  22 #include "linux-low.h"
  23
  24 #include <elf.h>
  25 #include <asm/ptrace.h>
  26
  27 /* These are in <asm/cputable.h> in current kernels.  */
  28 #define PPC_FEATURE_HAS_VSX             0x00000080
  29 #define PPC_FEATURE_HAS_ALTIVEC         0x10000000
  30 #define PPC_FEATURE_HAS_SPE             0x00800000
  31 #define PPC_FEATURE_HAS_DFP             0x00000400
  32
  33 static unsigned long ppc_hwcap;
  34
  35
  36 /* Defined in auto-generated file powerpc-32l.c.  */
  37 void init_registers_powerpc_32l (void);
  38 /* Defined in auto-generated file powerpc-altivec32l.c.  */
  39 void init_registers_powerpc_altivec32l (void);
  40 /* Defined in auto-generated file powerpc-vsx32l.c.  */
  41 void init_registers_powerpc_vsx32l (void);
  42 /* Defined in auto-generated file powerpc-isa205-32l.c.  */
  43 void init_registers_powerpc_isa205_32l (void);
  44 /* Defined in auto-generated file powerpc-isa205-altivec32l.c.  */
  45 void init_registers_powerpc_isa205_altivec32l (void);
  46 /* Defined in auto-generated file powerpc-isa205-vsx32l.c.  */
  47 void init_registers_powerpc_isa205_vsx32l (void);
  48 /* Defined in auto-generated file powerpc-e500l.c.  */
  49 void init_registers_powerpc_e500l (void);
  50 /* Defined in auto-generated file powerpc-64l.c.  */
  51 void init_registers_powerpc_64l (void);
  52 /* Defined in auto-generated file powerpc-altivec64l.c.  */
  53 void init_registers_powerpc_altivec64l (void);
  54 /* Defined in auto-generated file powerpc-vsx64l.c.  */
  55 void init_registers_powerpc_vsx64l (void);
  56 /* Defined in auto-generated file powerpc-isa205-64l.c.  */
  57 void init_registers_powerpc_isa205_64l (void);
  58 /* Defined in auto-generated file powerpc-isa205-altivec64l.c.  */
  59 void init_registers_powerpc_isa205_altivec64l (void);
  60 /* Defined in auto-generated file powerpc-isa205-vsx64l.c.  */
  61 void init_registers_powerpc_isa205_vsx64l (void);
  62
  63 #define ppc_num_regs 73
  64
  65 /* This sometimes isn't defined.  */
  66 #ifndef PT_ORIG_R3
  67 #define PT_ORIG_R3 34
  68 #endif
  69 #ifndef PT_TRAP
  70 #define PT_TRAP 40
  71 #endif
  72
  73 #ifdef __powerpc64__
  74 /* We use a constant for FPSCR instead of PT_FPSCR, because
  75    many shipped PPC64 kernels had the wrong value in ptrace.h.  */
  76 static int ppc_regmap[] =
  77  {PT_R0 * 8,     PT_R1 * 8,     PT_R2 * 8,     PT_R3 * 8,
  78   PT_R4 * 8,     PT_R5 * 8,     PT_R6 * 8,     PT_R7 * 8,
  79   PT_R8 * 8,     PT_R9 * 8,     PT_R10 * 8,    PT_R11 * 8,
  80   PT_R12 * 8,    PT_R13 * 8,    PT_R14 * 8,    PT_R15 * 8,
  81   PT_R16 * 8,    PT_R17 * 8,    PT_R18 * 8,    PT_R19 * 8,
  82   PT_R20 * 8,    PT_R21 * 8,    PT_R22 * 8,    PT_R23 * 8,
  83   PT_R24 * 8,    PT_R25 * 8,    PT_R26 * 8,    PT_R27 * 8,
  84   PT_R28 * 8,    PT_R29 * 8,    PT_R30 * 8,    PT_R31 * 8,
  85   PT_FPR0*8,     PT_FPR0*8 + 8, PT_FPR0*8+16,  PT_FPR0*8+24,
  86   PT_FPR0*8+32,  PT_FPR0*8+40,  PT_FPR0*8+48,  PT_FPR0*8+56,
  87   PT_FPR0*8+64,  PT_FPR0*8+72,  PT_FPR0*8+80,  PT_FPR0*8+88,
  88   PT_FPR0*8+96,  PT_FPR0*8+104,  PT_FPR0*8+112,  PT_FPR0*8+120,
  89   PT_FPR0*8+128, PT_FPR0*8+136,  PT_FPR0*8+144,  PT_FPR0*8+152,
  90   PT_FPR0*8+160,  PT_FPR0*8+168,  PT_FPR0*8+176,  PT_FPR0*8+184,
  91   PT_FPR0*8+192,  PT_FPR0*8+200,  PT_FPR0*8+208,  PT_FPR0*8+216,
  92   PT_FPR0*8+224,  PT_FPR0*8+232,  PT_FPR0*8+240,  PT_FPR0*8+248,
  93   PT_NIP * 8,    PT_MSR * 8,    PT_CCR * 8,    PT_LNK * 8,
  94   PT_CTR * 8,    PT_XER * 8,    PT_FPR0*8 + 256,
  95   PT_ORIG_R3 * 8, PT_TRAP * 8 };
  96 #else
  97 /* Currently, don't check/send MQ.  */
  98 static int ppc_regmap[] =
  99  {PT_R0 * 4,     PT_R1 * 4,     PT_R2 * 4,     PT_R3 * 4,
 100   PT_R4 * 4,     PT_R5 * 4,     PT_R6 * 4,     PT_R7 * 4,
 101   PT_R8 * 4,     PT_R9 * 4,     PT_R10 * 4,    PT_R11 * 4,
 102   PT_R12 * 4,    PT_R13 * 4,    PT_R14 * 4,    PT_R15 * 4,
 103   PT_R16 * 4,    PT_R17 * 4,    PT_R18 * 4,    PT_R19 * 4,
 104   PT_R20 * 4,    PT_R21 * 4,    PT_R22 * 4,    PT_R23 * 4,
 105   PT_R24 * 4,    PT_R25 * 4,    PT_R26 * 4,    PT_R27 * 4,
 106   PT_R28 * 4,    PT_R29 * 4,    PT_R30 * 4,    PT_R31 * 4,
 107   PT_FPR0*4,     PT_FPR0*4 + 8, PT_FPR0*4+16,  PT_FPR0*4+24,
 108   PT_FPR0*4+32,  PT_FPR0*4+40,  PT_FPR0*4+48,  PT_FPR0*4+56,
 109   PT_FPR0*4+64,  PT_FPR0*4+72,  PT_FPR0*4+80,  PT_FPR0*4+88,
 110   PT_FPR0*4+96,  PT_FPR0*4+104,  PT_FPR0*4+112,  PT_FPR0*4+120,
 111   PT_FPR0*4+128, PT_FPR0*4+136,  PT_FPR0*4+144,  PT_FPR0*4+152,
 112   PT_FPR0*4+160,  PT_FPR0*4+168,  PT_FPR0*4+176,  PT_FPR0*4+184,
 113   PT_FPR0*4+192,  PT_FPR0*4+200,  PT_FPR0*4+208,  PT_FPR0*4+216,
 114   PT_FPR0*4+224,  PT_FPR0*4+232,  PT_FPR0*4+240,  PT_FPR0*4+248,
 115   PT_NIP * 4,    PT_MSR * 4,    PT_CCR * 4,    PT_LNK * 4,
 116   PT_CTR * 4,    PT_XER * 4,    PT_FPSCR * 4,
 117   PT_ORIG_R3 * 4, PT_TRAP * 4
 118  };
 119
 120 static int ppc_regmap_e500[] =
 121  {PT_R0 * 4,     PT_R1 * 4,     PT_R2 * 4,     PT_R3 * 4,
 122   PT_R4 * 4,     PT_R5 * 4,     PT_R6 * 4,     PT_R7 * 4,
 123   PT_R8 * 4,     PT_R9 * 4,     PT_R10 * 4,    PT_R11 * 4,
 124   PT_R12 * 4,    PT_R13 * 4,    PT_R14 * 4,    PT_R15 * 4,
 125   PT_R16 * 4,    PT_R17 * 4,    PT_R18 * 4,    PT_R19 * 4,
 126   PT_R20 * 4,    PT_R21 * 4,    PT_R22 * 4,    PT_R23 * 4,
 127   PT_R24 * 4,    PT_R25 * 4,    PT_R26 * 4,    PT_R27 * 4,
 128   PT_R28 * 4,    PT_R29 * 4,    PT_R30 * 4,    PT_R31 * 4,
 129   -1,            -1,            -1,            -1,
 130   -1,            -1,            -1,            -1,
 131   -1,            -1,            -1,            -1,
 132   -1,            -1,            -1,            -1,
 133   -1,            -1,            -1,            -1,
 134   -1,            -1,            -1,            -1,
 135   -1,            -1,            -1,            -1,
 136   -1,            -1,            -1,            -1,
 137   PT_NIP * 4,    PT_MSR * 4,    PT_CCR * 4,    PT_LNK * 4,
 138   PT_CTR * 4,    PT_XER * 4,    -1,
 139   PT_ORIG_R3 * 4, PT_TRAP * 4
 140  };
 141 #endif
 142
 143 static int
 144 ppc_cannot_store_register (int regno)
 145 {
 146 #ifndef __powerpc64__
 147   /* Some kernels do not allow us to store fpscr.  */
 148   if (!(ppc_hwcap & PPC_FEATURE_HAS_SPE) && regno == find_regno ("fpscr"))
 149     return 2;
 150 #endif
 151
 152   /* Some kernels do not allow us to store orig_r3 or trap.  */
 153   if (regno == find_regno ("orig_r3")
 154       || regno == find_regno ("trap"))
 155     return 2;
 156
 157   return 0;
 158 }
 159
 160 static int
 161 ppc_cannot_fetch_register (int regno)
 162 {
 163   return 0;
 164 }
 165
 166 static void
 167 ppc_collect_ptrace_register (int regno, char *buf)
 168 {
 169   int size = register_size (regno);
 170
 171   memset (buf, 0, sizeof (long));
 172
 173   if (size < sizeof (long))
 174     collect_register (regno, buf + sizeof (long) - size);
 175   else
 176     collect_register (regno, buf);
 177 }
 178
 179 static void
 180 ppc_supply_ptrace_register (int regno, const char *buf)
 181 {
 182   int size = register_size (regno);
 183   if (size < sizeof (long))
 184     supply_register (regno, buf + sizeof (long) - size);
 185   else
 186     supply_register (regno, buf);
 187 }
 188
 189 static CORE_ADDR
 190 ppc_get_pc (void)
 191 {
 192   if (register_size (0) == 4)
 193     {
 194       unsigned int pc;
 195       collect_register_by_name ("pc", &pc);
 196       return (CORE_ADDR) pc;
 197     }
 198   else
 199     {
 200       unsigned long pc;
 201       collect_register_by_name ("pc", &pc);
 202       return (CORE_ADDR) pc;
 203     }
 204 }
 205
 206 static void
 207 ppc_set_pc (CORE_ADDR pc)
 208 {
 209   if (register_size (0) == 4)
 210     {
 211       unsigned int newpc = pc;
 212       supply_register_by_name ("pc", &newpc);
 213     }
 214   else
 215     {
 216       unsigned long newpc = pc;
 217       supply_register_by_name ("pc", &newpc);
 218     }
 219 }
 220
 221
 222 static int
 223 ppc_get_hwcap (unsigned long *valp)
 224 {
 225   int wordsize = register_size (0);
 226   unsigned char *data = alloca (2 * wordsize);
 227   int offset = 0;
 228
 229   while ((*the_target->read_auxv) (offset, data, 2 * wordsize) == 2 * wordsize)
 230     {
 231       if (wordsize == 4)
 232         {
 233           unsigned int *data_p = (unsigned int *)data;
 234           if (data_p[0] == AT_HWCAP)
 235             {
 236               *valp = data_p[1];
 237               return 1;
 238             }
 239         }
 240       else
 241         {
 242           unsigned long *data_p = (unsigned long *)data;
 243           if (data_p[0] == AT_HWCAP)
 244             {
 245               *valp = data_p[1];
 246               return 1;
 247             }
 248         }
 249
 250       offset += 2 * wordsize;
 251     }
 252
 253   *valp = 0;
 254   return 0;
 255 }
 256
 257 static void
 258 ppc_arch_setup (void)
 259 {
 260 #ifdef __powerpc64__
 261   long msr;
 262
 263   /* On a 64-bit host, assume 64-bit inferior process with no
 264      AltiVec registers.  Reset ppc_hwcap to ensure that the
 265      collect_register call below does not fail.  */
 266   init_registers_powerpc_64l ();
 267   ppc_hwcap = 0;
 268
 269   /* Only if the high bit of the MSR is set, we actually have
 270      a 64-bit inferior.  */
 271   collect_register_by_name ("msr", &msr);
 272   if (msr < 0)
 273     {
 274       ppc_get_hwcap (&ppc_hwcap);
 275       if (ppc_hwcap & PPC_FEATURE_HAS_VSX)
 276         {
 277           /* Power ISA 2.05 (implemented by Power 6 and newer processors)
 278              increases the FPSCR from 32 bits to 64 bits. Even though Power 7
 279              supports this ISA version, it doesn't have PPC_FEATURE_ARCH_2_05
 280              set, only PPC_FEATURE_ARCH_2_06.  Since for now the only bits
 281              used in the higher half of the register are for Decimal Floating
 282              Point, we check if that feature is available to decide the size
 283              of the FPSCR.  */
 284           if (ppc_hwcap & PPC_FEATURE_HAS_DFP)
 285             init_registers_powerpc_isa205_vsx64l ();
 286           else
 287             init_registers_powerpc_vsx64l ();
 288         }
 289       else if (ppc_hwcap & PPC_FEATURE_HAS_ALTIVEC)
 290         {
 291           if (ppc_hwcap & PPC_FEATURE_HAS_DFP)
 292             init_registers_powerpc_isa205_altivec64l ();
 293           else
 294             init_registers_powerpc_altivec64l ();
 295         }
 296
 297       return;
 298     }
 299 #endif
 300
 301   /* OK, we have a 32-bit inferior.  */
 302   init_registers_powerpc_32l ();
 303
 304   ppc_get_hwcap (&ppc_hwcap);
 305   if (ppc_hwcap & PPC_FEATURE_HAS_VSX)
 306     {
 307       if (ppc_hwcap & PPC_FEATURE_HAS_DFP)
 308         init_registers_powerpc_isa205_vsx32l ();
 309       else
 310         init_registers_powerpc_vsx32l ();
 311     }
 312   else if (ppc_hwcap & PPC_FEATURE_HAS_ALTIVEC)
 313     {
 314       if (ppc_hwcap & PPC_FEATURE_HAS_DFP)
 315         init_registers_powerpc_isa205_altivec32l ();
 316       else
 317         init_registers_powerpc_altivec32l ();
 318     }
 319
 320   /* On 32-bit machines, check for SPE registers.
 321      Set the low target's regmap field as appropriately.  */
 322 #ifndef __powerpc64__
 323   the_low_target.regmap = ppc_regmap;
 324   if (ppc_hwcap & PPC_FEATURE_HAS_SPE)
 325     {
 326       init_registers_powerpc_e500l ();
 327       the_low_target.regmap = ppc_regmap_e500;
 328    }
 329
 330   /* If the FPSCR is 64-bit wide, we need to fetch the whole 64-bit
 331      slot and not just its second word.  The PT_FPSCR supplied in a
 332      32-bit GDB compilation doesn't reflect this.  */
 333   if (register_size (70) == 8)
 334     ppc_regmap[70] = (48 + 2*32) * sizeof (long);
 335 #endif
 336 }
 337
 338 /* Correct in either endianness.
 339    This instruction is "twge r2, r2", which GDB uses as a software
 340    breakpoint.  */
 341 static const unsigned int ppc_breakpoint = 0x7d821008;
 342 #define ppc_breakpoint_len 4
 343
 344 static int
 345 ppc_breakpoint_at (CORE_ADDR where)
 346 {
 347   unsigned int insn;
 348
 349   (*the_target->read_memory) (where, (unsigned char *) &insn, 4);
 350   if (insn == ppc_breakpoint)
 351     return 1;
 352   /* If necessary, recognize more trap instructions here.  GDB only uses the
 353      one.  */
 354   return 0;
 355 }
 356
 357 /* Provide only a fill function for the general register set.  ps_lgetregs
 358    will use this for NPTL support.  */
 359
 360 static void ppc_fill_gregset (void *buf)
 361 {
 362   int i;
 363
 364   for (i = 0; i < 32; i++)
 365     ppc_collect_ptrace_register (i, (char *) buf + ppc_regmap[i]);
 366
 367   for (i = 64; i < 70; i++)
 368     ppc_collect_ptrace_register (i, (char *) buf + ppc_regmap[i]);
 369
 370   for (i = 71; i < 73; i++)
 371     ppc_collect_ptrace_register (i, (char *) buf + ppc_regmap[i]);
 372 }
 373
 374 #ifndef PTRACE_GETVSXREGS
 375 #define PTRACE_GETVSXREGS 27
 376 #define PTRACE_SETVSXREGS 28
 377 #endif
 378
 379 #define SIZEOF_VSXREGS 32*8
 380
 381 static void
 382 ppc_fill_vsxregset (void *buf)
 383 {
 384   int i, base;
 385   char *regset = buf;
 386
 387   if (!(ppc_hwcap & PPC_FEATURE_HAS_VSX))
 388     return;
 389
 390   base = find_regno ("vs0h");
 391   for (i = 0; i < 32; i++)
 392     collect_register (base + i, &regset[i * 8]);
 393 }
 394
 395 static void
 396 ppc_store_vsxregset (const void *buf)
 397 {
 398   int i, base;
 399   const char *regset = buf;
 400
 401   if (!(ppc_hwcap & PPC_FEATURE_HAS_VSX))
 402     return;
 403
 404   base = find_regno ("vs0h");
 405   for (i = 0; i < 32; i++)
 406     supply_register (base + i, &regset[i * 8]);
 407 }
 408
 409 #ifndef PTRACE_GETVRREGS
 410 #define PTRACE_GETVRREGS 18
 411 #define PTRACE_SETVRREGS 19
 412 #endif
 413
 414 #define SIZEOF_VRREGS 33*16+4
 415
 416 static void
 417 ppc_fill_vrregset (void *buf)
 418 {
 419   int i, base;
 420   char *regset = buf;
 421
 422   if (!(ppc_hwcap & PPC_FEATURE_HAS_ALTIVEC))
 423     return;
 424
 425   base = find_regno ("vr0");
 426   for (i = 0; i < 32; i++)
 427     collect_register (base + i, &regset[i * 16]);
 428
 429   collect_register_by_name ("vscr", &regset[32 * 16 + 12]);
 430   collect_register_by_name ("vrsave", &regset[33 * 16]);
 431 }
 432
 433 static void
 434 ppc_store_vrregset (const void *buf)
 435 {
 436   int i, base;
 437   const char *regset = buf;
 438
 439   if (!(ppc_hwcap & PPC_FEATURE_HAS_ALTIVEC))
 440     return;
 441
 442   base = find_regno ("vr0");
 443   for (i = 0; i < 32; i++)
 444     supply_register (base + i, &regset[i * 16]);
 445
 446   supply_register_by_name ("vscr", &regset[32 * 16 + 12]);
 447   supply_register_by_name ("vrsave", &regset[33 * 16]);
 448 }
 449
 450 #ifndef PTRACE_GETEVRREGS
 451 #define PTRACE_GETEVRREGS       20
 452 #define PTRACE_SETEVRREGS       21
 453 #endif
 454
 455 struct gdb_evrregset_t
 456 {
 457   unsigned long evr[32];
 458   unsigned long long acc;
 459   unsigned long spefscr;
 460 };
 461
 462 static void
 463 ppc_fill_evrregset (void *buf)
 464 {
 465   int i, ev0;
 466   struct gdb_evrregset_t *regset = buf;
 467
 468   if (!(ppc_hwcap & PPC_FEATURE_HAS_SPE))
 469     return;
 470
 471   ev0 = find_regno ("ev0h");
 472   for (i = 0; i < 32; i++)
 473     collect_register (ev0 + i, &regset->evr[i]);
 474
 475   collect_register_by_name ("acc", &regset->acc);
 476   collect_register_by_name ("spefscr", &regset->spefscr);
 477 }
 478
 479 static void
 480 ppc_store_evrregset (const void *buf)
 481 {
 482   int i, ev0;
 483   const struct gdb_evrregset_t *regset = buf;
 484
 485   if (!(ppc_hwcap & PPC_FEATURE_HAS_SPE))
 486     return;
 487
 488   ev0 = find_regno ("ev0h");
 489   for (i = 0; i < 32; i++)
 490     supply_register (ev0 + i, &regset->evr[i]);
 491
 492   supply_register_by_name ("acc", &regset->acc);
 493   supply_register_by_name ("spefscr", &regset->spefscr);
 494 }
 495
 496 struct regset_info target_regsets[] = {
 497   /* List the extra register sets before GENERAL_REGS.  That way we will
 498      fetch them every time, but still fall back to PTRACE_PEEKUSER for the
 499      general registers.  Some kernels support these, but not the newer
 500      PPC_PTRACE_GETREGS.  */
 501   { PTRACE_GETVSXREGS, PTRACE_SETVSXREGS, SIZEOF_VSXREGS, EXTENDED_REGS,
 502   ppc_fill_vsxregset, ppc_store_vsxregset },
 503   { PTRACE_GETVRREGS, PTRACE_SETVRREGS, SIZEOF_VRREGS, EXTENDED_REGS,
 504     ppc_fill_vrregset, ppc_store_vrregset },
 505   { PTRACE_GETEVRREGS, PTRACE_SETEVRREGS, 32 * 4 + 8 + 4, EXTENDED_REGS,
 506     ppc_fill_evrregset, ppc_store_evrregset },
 507   { 0, 0, 0, GENERAL_REGS, ppc_fill_gregset, NULL },
 508   { 0, 0, -1, -1, NULL, NULL }
 509 };
 510
 511 struct linux_target_ops the_low_target = {
 512   ppc_arch_setup,
 513   ppc_num_regs,
 514   ppc_regmap,
 515   ppc_cannot_fetch_register,
 516   ppc_cannot_store_register,
 517   ppc_get_pc,
 518   ppc_set_pc,
 519   (const unsigned char *) &ppc_breakpoint,
 520   ppc_breakpoint_len,
 521   NULL,
 522   0,
 523   ppc_breakpoint_at,
 524   NULL,
 525   NULL,
 526   NULL,
 527   NULL,
 528   ppc_collect_ptrace_register,
 529   ppc_supply_ptrace_register,
 530 };