1 /* Get previous frame state for an existing frame state.
2 Copyright (C) 2013 Red Hat, Inc.
3 This file is part of elfutils.
4
5 This file is free software; you can redistribute it and/or modify
6 it under the terms of either
7
8 * the GNU Lesser General Public License as published by the Free
9 Software Foundation; either version 3 of the License, or (at
10 your option) any later version
11
12 or
13
14 * the GNU General Public License as published by the Free
15 Software Foundation; either version 2 of the License, or (at
16 your option) any later version
17
18 or both in parallel, as here.
19
20 elfutils is distributed in the hope that it will be useful, but
21 WITHOUT ANY WARRANTY; without even the implied warranty of
22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 General Public License for more details.
24
25 You should have received copies of the GNU General Public License and
26 the GNU Lesser General Public License along with this program. If
27 not, see <http://www.gnu.org/licenses/>. */
28
29 #ifdef HAVE_CONFIG_H
30 # include <config.h>
31 #endif
32
33 #include <stdlib.h>
34 #include <assert.h>
35
36 #define BACKEND s390_
37 #include "libebl_CPU.h"
38
39 /* s390/s390x do not annotate signal handler frame by CFI. It would be also
40 difficult as PC points into a stub built on stack. Function below is called
41 only if unwinder could not find CFI. Function then verifies the register
42 state for this frame really belongs to a signal frame. In such case it
43 fetches original registers saved by the signal frame. */
44
45 bool
s390_unwind(Ebl * ebl,Dwarf_Addr pc,ebl_tid_registers_t * setfunc,ebl_tid_registers_get_t * getfunc,ebl_pid_memory_read_t * readfunc,void * arg,bool * signal_framep)46 s390_unwind (Ebl *ebl, Dwarf_Addr pc, ebl_tid_registers_t *setfunc,
47 ebl_tid_registers_get_t *getfunc, ebl_pid_memory_read_t *readfunc,
48 void *arg, bool *signal_framep)
49 {
50 /* Caller already assumed caller adjustment but S390 instructions are 4 bytes
51 long. Undo it. */
52 if ((pc & 0x3) != 0x3)
53 return false;
54 pc++;
55 /* We can assume big-endian read here. */
56 Dwarf_Word instr;
57 if (! readfunc (pc, &instr, arg))
58 return false;
59 /* Fetch only the very first two bytes. */
60 instr = (instr >> (ebl->class == ELFCLASS64 ? 48 : 16)) & 0xffff;
61 /* See GDB s390_sigtramp_frame_sniffer. */
62 /* Check for 'svc' as the first instruction. */
63 if (((instr >> 8) & 0xff) != 0x0a)
64 return false;
65 /* Check for 'sigreturn' or 'rt_sigreturn' as the second instruction. */
66 if ((instr & 0xff) != 119 && (instr & 0xff) != 173)
67 return false;
68 /* See GDB s390_sigtramp_frame_unwind_cache. */
69 Dwarf_Word this_sp;
70 if (! getfunc (0 + 15, 1, &this_sp, arg))
71 return false;
72 unsigned word_size = ebl->class == ELFCLASS64 ? 8 : 4;
73 Dwarf_Addr next_cfa = this_sp + 16 * word_size + 32;
74 /* "New-style RT frame" is not supported,
75 assuming "Old-style RT frame and all non-RT frames".
76 Pointer to the array of saved registers is at NEXT_CFA + 8. */
77 Dwarf_Word sigreg_ptr;
78 if (! readfunc (next_cfa + 8, &sigreg_ptr, arg))
79 return false;
80 /* Skip PSW mask. */
81 sigreg_ptr += word_size;
82 /* Read PSW address. */
83 Dwarf_Word val;
84 if (! readfunc (sigreg_ptr, &val, arg))
85 return false;
86 if (! setfunc (-1, 1, &val, arg))
87 return false;
88 sigreg_ptr += word_size;
89 /* Then the GPRs. */
90 Dwarf_Word gprs[16];
91 for (int i = 0; i < 16; i++)
92 {
93 if (! readfunc (sigreg_ptr, &gprs[i], arg))
94 return false;
95 sigreg_ptr += word_size;
96 }
97 /* Then the ACRs. Skip them, they are not used in CFI. */
98 for (int i = 0; i < 16; i++)
99 sigreg_ptr += 4;
100 /* The floating-point control word. */
101 sigreg_ptr += 8;
102 /* And finally the FPRs. */
103 Dwarf_Word fprs[16];
104 for (int i = 0; i < 16; i++)
105 {
106 if (! readfunc (sigreg_ptr, &val, arg))
107 return false;
108 if (ebl->class == ELFCLASS32)
109 {
110 Dwarf_Addr val_low;
111 if (! readfunc (sigreg_ptr + 4, &val_low, arg))
112 return false;
113 val = (val << 32) | val_low;
114 }
115 fprs[i] = val;
116 sigreg_ptr += 8;
117 }
118 /* If we have them, the GPR upper halves are appended at the end. */
119 if (ebl->class == ELFCLASS32)
120 {
121 /* Skip signal number. */
122 sigreg_ptr += 4;
123 for (int i = 0; i < 16; i++)
124 {
125 if (! readfunc (sigreg_ptr, &val, arg))
126 return false;
127 Dwarf_Word val_low = gprs[i];
128 val = (val << 32) | val_low;
129 gprs[i] = val;
130 sigreg_ptr += 4;
131 }
132 }
133 if (! setfunc (0, 16, gprs, arg))
134 return false;
135 if (! setfunc (16, 16, fprs, arg))
136 return false;
137 *signal_framep = true;
138 return true;
139 }
140