unwind-libdw.c 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. // SPDX-License-Identifier: GPL-2.0
  2. #include <elfutils/libdwfl.h>
  3. #include "../../util/unwind-libdw.h"
  4. #include "../../util/perf_regs.h"
  5. #include "../../util/event.h"
  6. /* See backends/ppc_initreg.c and backends/ppc_regs.c in elfutils. */
  7. static const int special_regs[3][2] = {
  8. { 65, PERF_REG_POWERPC_LINK },
  9. { 101, PERF_REG_POWERPC_XER },
  10. { 109, PERF_REG_POWERPC_CTR },
  11. };
  12. bool libdw__arch_set_initial_registers(Dwfl_Thread *thread, void *arg)
  13. {
  14. struct unwind_info *ui = arg;
  15. struct regs_dump *user_regs = &ui->sample->user_regs;
  16. Dwarf_Word dwarf_regs[32], dwarf_nip;
  17. size_t i;
  18. #define REG(r) ({ \
  19. Dwarf_Word val = 0; \
  20. perf_reg_value(&val, user_regs, PERF_REG_POWERPC_##r); \
  21. val; \
  22. })
  23. dwarf_regs[0] = REG(R0);
  24. dwarf_regs[1] = REG(R1);
  25. dwarf_regs[2] = REG(R2);
  26. dwarf_regs[3] = REG(R3);
  27. dwarf_regs[4] = REG(R4);
  28. dwarf_regs[5] = REG(R5);
  29. dwarf_regs[6] = REG(R6);
  30. dwarf_regs[7] = REG(R7);
  31. dwarf_regs[8] = REG(R8);
  32. dwarf_regs[9] = REG(R9);
  33. dwarf_regs[10] = REG(R10);
  34. dwarf_regs[11] = REG(R11);
  35. dwarf_regs[12] = REG(R12);
  36. dwarf_regs[13] = REG(R13);
  37. dwarf_regs[14] = REG(R14);
  38. dwarf_regs[15] = REG(R15);
  39. dwarf_regs[16] = REG(R16);
  40. dwarf_regs[17] = REG(R17);
  41. dwarf_regs[18] = REG(R18);
  42. dwarf_regs[19] = REG(R19);
  43. dwarf_regs[20] = REG(R20);
  44. dwarf_regs[21] = REG(R21);
  45. dwarf_regs[22] = REG(R22);
  46. dwarf_regs[23] = REG(R23);
  47. dwarf_regs[24] = REG(R24);
  48. dwarf_regs[25] = REG(R25);
  49. dwarf_regs[26] = REG(R26);
  50. dwarf_regs[27] = REG(R27);
  51. dwarf_regs[28] = REG(R28);
  52. dwarf_regs[29] = REG(R29);
  53. dwarf_regs[30] = REG(R30);
  54. dwarf_regs[31] = REG(R31);
  55. if (!dwfl_thread_state_registers(thread, 0, 32, dwarf_regs))
  56. return false;
  57. dwarf_nip = REG(NIP);
  58. dwfl_thread_state_register_pc(thread, dwarf_nip);
  59. for (i = 0; i < ARRAY_SIZE(special_regs); i++) {
  60. Dwarf_Word val = 0;
  61. perf_reg_value(&val, user_regs, special_regs[i][1]);
  62. if (!dwfl_thread_state_registers(thread,
  63. special_regs[i][0], 1,
  64. &val))
  65. return false;
  66. }
  67. return true;
  68. }