]>
Commit | Line | Data |
---|---|---|
9fb1c9db | 1 | /* DWARF2 EH unwinding support for PA HP-UX. |
748086b7 | 2 | Copyright (C) 2005, 2009 Free Software Foundation, Inc. |
9fb1c9db JDA |
3 | |
4 | This file is part of GCC. | |
5 | ||
6 | GCC is free software; you can redistribute it and/or modify | |
7 | it under the terms of the GNU General Public License as published by | |
748086b7 | 8 | the Free Software Foundation; either version 3, or (at your option) |
9fb1c9db JDA |
9 | any later version. |
10 | ||
9fb1c9db JDA |
11 | GCC is distributed in the hope that it will be useful, |
12 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | GNU General Public License for more details. | |
15 | ||
748086b7 JJ |
16 | Under Section 7 of GPL version 3, you are granted additional |
17 | permissions described in the GCC Runtime Library Exception, version | |
18 | 3.1, as published by the Free Software Foundation. | |
19 | ||
20 | You should have received a copy of the GNU General Public License and | |
21 | a copy of the GCC Runtime Library Exception along with this program; | |
22 | see the files COPYING3 and COPYING.RUNTIME respectively. If not, see | |
23 | <http://www.gnu.org/licenses/>. */ | |
9fb1c9db JDA |
24 | |
25 | /* Do code reading to identify a signal frame, and set the frame | |
26 | state data appropriately. See unwind-dw2.c for the structs. */ | |
27 | ||
d4c56bd7 SK |
28 | /* Don't use this if inhibit_libc is set. |
29 | The build for this target will fail trying to include missing headers. */ | |
30 | #ifndef inhibit_libc | |
9fb1c9db JDA |
31 | #include <signal.h> |
32 | #include <sys/ucontext.h> | |
33 | #include <unistd.h> | |
34 | ||
35 | /* FIXME: We currently ignore the high halves of general, space and | |
36 | control registers on PA 2.0 machines for applications using the | |
37 | 32-bit runtime. We don't restore space registers or the floating | |
38 | point status registers. */ | |
39 | ||
40 | #define MD_FALLBACK_FRAME_STATE_FOR pa_fallback_frame_state | |
41 | ||
42 | /* HP-UX 10.X doesn't define GetSSReg. */ | |
43 | #ifndef GetSSReg | |
44 | #define GetSSReg(ssp, ss_reg) \ | |
45 | ((UseWideRegs (ssp)) \ | |
46 | ? (ssp)->ss_wide.ss_32.ss_reg ## _lo \ | |
47 | : (ssp)->ss_narrow.ss_reg) | |
48 | #endif | |
49 | ||
50 | #if TARGET_64BIT | |
51 | #define GetSSRegAddr(ssp, ss_reg) ((long) &((ssp)->ss_wide.ss_64.ss_reg)) | |
52 | #else | |
53 | #define GetSSRegAddr(ssp, ss_reg) \ | |
54 | ((UseWideRegs (ssp)) \ | |
55 | ? (long) &((ssp)->ss_wide.ss_32.ss_reg ## _lo) \ | |
56 | : (long) &((ssp)->ss_narrow.ss_reg)) | |
57 | #endif | |
58 | ||
59 | #define UPDATE_FS_FOR_SAR(FS, N) \ | |
60 | (FS)->regs.reg[N].how = REG_SAVED_OFFSET; \ | |
61 | (FS)->regs.reg[N].loc.offset = GetSSRegAddr (mc, ss_cr11) - new_cfa | |
62 | ||
63 | #define UPDATE_FS_FOR_GR(FS, GRN, N) \ | |
64 | (FS)->regs.reg[N].how = REG_SAVED_OFFSET; \ | |
65 | (FS)->regs.reg[N].loc.offset = GetSSRegAddr (mc, ss_gr##GRN) - new_cfa | |
66 | ||
67 | #define UPDATE_FS_FOR_FR(FS, FRN, N) \ | |
68 | (FS)->regs.reg[N].how = REG_SAVED_OFFSET; \ | |
69 | (FS)->regs.reg[N].loc.offset = (long) &(mc->ss_fr##FRN) - new_cfa; | |
70 | ||
71 | #define UPDATE_FS_FOR_PC(FS, N) \ | |
72 | (FS)->regs.reg[N].how = REG_SAVED_OFFSET; \ | |
73 | (FS)->regs.reg[N].loc.offset = GetSSRegAddr (mc, ss_pcoq_head) - new_cfa | |
74 | ||
75 | /* Extract bit field from word using HP's numbering (MSB = 0). */ | |
76 | #define GET_FIELD(X, FROM, TO) \ | |
77 | ((X) >> (31 - (TO)) & ((1 << ((TO) - (FROM) + 1)) - 1)) | |
78 | ||
79 | static inline int | |
80 | sign_extend (int x, int len) | |
81 | { | |
82 | int signbit = (1 << (len - 1)); | |
83 | int mask = (signbit << 1) - 1; | |
84 | return ((x & mask) ^ signbit) - signbit; | |
85 | } | |
86 | ||
87 | /* Extract a 17-bit signed constant from branch instructions. */ | |
88 | static inline int | |
89 | extract_17 (unsigned word) | |
90 | { | |
91 | return sign_extend (GET_FIELD (word, 19, 28) | |
92 | | GET_FIELD (word, 29, 29) << 10 | |
93 | | GET_FIELD (word, 11, 15) << 11 | |
94 | | (word & 0x1) << 16, 17); | |
95 | } | |
96 | ||
97 | /* Extract a 22-bit signed constant from branch instructions. */ | |
98 | static inline int | |
99 | extract_22 (unsigned word) | |
100 | { | |
101 | return sign_extend (GET_FIELD (word, 19, 28) | |
102 | | GET_FIELD (word, 29, 29) << 10 | |
103 | | GET_FIELD (word, 11, 15) << 11 | |
104 | | GET_FIELD (word, 6, 10) << 16 | |
105 | | (word & 0x1) << 21, 22); | |
106 | } | |
107 | ||
108 | static _Unwind_Reason_Code | |
109 | pa_fallback_frame_state (struct _Unwind_Context *context, | |
110 | _Unwind_FrameState *fs) | |
111 | { | |
112 | static long cpu; | |
113 | unsigned int *pc = (unsigned int *) context->ra; | |
114 | ||
115 | if (pc == 0) | |
116 | return _URC_END_OF_STACK; | |
117 | ||
fdaaf002 JDA |
118 | /* Check for relocation of the return value. */ |
119 | if (!TARGET_64BIT | |
120 | && *(pc + 0) == 0x2fd01224 /* fstd,ma fr4,8(sp) */ | |
121 | && *(pc + 1) == 0x0fd9109d /* ldw -4(sp),ret1 */ | |
122 | && *(pc + 2) == 0x0fd130bc) /* ldw,mb -8(sp),ret0 */ | |
123 | pc += 3; | |
124 | else if (!TARGET_64BIT | |
125 | && *(pc + 0) == 0x27d01224 /* fstw,ma fr4,8(sp) */ | |
126 | && *(pc + 1) == 0x0fd130bc) /* ldw,mb -8(sp),ret0 */ | |
127 | pc += 2; | |
128 | else if (!TARGET_64BIT | |
129 | && *(pc + 0) == 0x0fdc12b0 /* stw,ma ret0,8(sp) */ | |
130 | && *(pc + 1) == 0x0fdd1299 /* stw ret1,-4(sp) */ | |
131 | && *(pc + 2) == 0x2fd13024) /* fldd,mb -8(sp),fr4 */ | |
132 | pc += 3; | |
133 | else if (!TARGET_64BIT | |
134 | && *(pc + 0) == 0x0fdc12b0 /* stw,ma ret0,8(sp) */ | |
135 | && *(pc + 1) == 0x27d13024) /* fldw,mb -8(sp),fr4 */ | |
136 | pc += 2; | |
137 | ||
9fb1c9db JDA |
138 | /* Check if the return address points to an export stub (PA 1.1 or 2.0). */ |
139 | if ((!TARGET_64BIT | |
140 | && *(pc + 0) == 0x4bc23fd1 /* ldw -18(sp),rp */ | |
141 | && *(pc + 1) == 0x004010a1 /* ldsid (rp),r1 */ | |
142 | && *(pc + 2) == 0x00011820 /* mtsp r1,sr0 */ | |
143 | && *(pc + 3) == 0xe0400002) /* be,n 0(sr0,rp) */ | |
144 | || | |
145 | (!TARGET_64BIT | |
146 | && *(pc + 0) == 0x4bc23fd1 /* ldw -18(sp),rp */ | |
147 | && *(pc + 1) == 0xe840d002)) /* bve,n (rp) */ | |
148 | { | |
6673f90b NF |
149 | fs->regs.cfa_how = CFA_REG_OFFSET; |
150 | fs->regs.cfa_reg = 30; | |
151 | fs->regs.cfa_offset = 0; | |
9fb1c9db JDA |
152 | |
153 | fs->retaddr_column = 0; | |
154 | fs->regs.reg[0].how = REG_SAVED_OFFSET; | |
155 | fs->regs.reg[0].loc.offset = -24; | |
156 | ||
edbaf6a2 JDA |
157 | /* Update context to describe the stub frame. */ |
158 | uw_update_context (context, fs); | |
159 | ||
160 | /* Set up fs to describe the FDE for the caller of this stub. */ | |
161 | return uw_frame_state_for (context, fs); | |
fdaaf002 JDA |
162 | } |
163 | /* Check if the return address points to a relocation stub. */ | |
164 | else if (!TARGET_64BIT | |
165 | && *(pc + 0) == 0x0fd11082 /* ldw -8(sp),rp */ | |
166 | && (*(pc + 1) == 0xe840c002 /* bv,n r0(rp) */ | |
167 | || *(pc + 1) == 0xe840d002)) /* bve,n (rp) */ | |
168 | { | |
6673f90b NF |
169 | fs->regs.cfa_how = CFA_REG_OFFSET; |
170 | fs->regs.cfa_reg = 30; | |
171 | fs->regs.cfa_offset = 0; | |
fdaaf002 JDA |
172 | |
173 | fs->retaddr_column = 0; | |
174 | fs->regs.reg[0].how = REG_SAVED_OFFSET; | |
175 | fs->regs.reg[0].loc.offset = -8; | |
176 | ||
edbaf6a2 JDA |
177 | /* Update context to describe the stub frame. */ |
178 | uw_update_context (context, fs); | |
179 | ||
180 | /* Set up fs to describe the FDE for the caller of this stub. */ | |
181 | return uw_frame_state_for (context, fs); | |
9fb1c9db JDA |
182 | } |
183 | ||
184 | /* Check if the return address is an export stub as signal handlers | |
185 | may return via an export stub. */ | |
186 | if (!TARGET_64BIT | |
187 | && (*pc & 0xffe0e002) == 0xe8400000 /* bl x,r2 */ | |
188 | && *(pc + 1) == 0x08000240 /* nop */ | |
189 | && *(pc + 2) == 0x4bc23fd1 /* ldw -18(sp),rp */ | |
190 | && *(pc + 3) == 0x004010a1 /* ldsid (rp),r1 */ | |
191 | && *(pc + 4) == 0x00011820 /* mtsp r1,sr0 */ | |
192 | && *(pc + 5) == 0xe0400002) /* be,n 0(sr0,rp) */ | |
193 | /* Extract target address from PA 1.x 17-bit branch. */ | |
194 | pc += extract_17 (*pc) + 2; | |
195 | else if (!TARGET_64BIT | |
196 | && (*pc & 0xfc00e002) == 0xe800a000 /* b,l x,r2 */ | |
197 | && *(pc + 1) == 0x08000240 /* nop */ | |
198 | && *(pc + 2) == 0x4bc23fd1 /* ldw -18(sp),rp */ | |
199 | && *(pc + 3) == 0xe840d002) /* bve,n (rp) */ | |
200 | /* Extract target address from PA 2.0 22-bit branch. */ | |
201 | pc += extract_22 (*pc) + 2; | |
202 | ||
203 | /* Now check if the return address is one of the signal handler | |
204 | returns, _sigreturn or _sigsetreturn. */ | |
205 | if ((TARGET_64BIT | |
206 | && *(pc + 0) == 0x53db3f51 /* ldd -58(sp),dp */ | |
207 | && *(pc + 8) == 0x34160116 /* ldi 8b,r22 */ | |
208 | && *(pc + 9) == 0x08360ac1 /* shladd,l r22,3,r1,r1 */ | |
209 | && *(pc + 10) == 0x0c2010c1 /* ldd 0(r1),r1 */ | |
210 | && *(pc + 11) == 0xe4202000) /* be,l 0(sr4,r1) */ | |
211 | || | |
212 | (TARGET_64BIT | |
213 | && *(pc + 0) == 0x36dc0000 /* ldo 0(r22),ret0 */ | |
214 | && *(pc + 6) == 0x341601c0 /* ldi e0,r22 */ | |
215 | && *(pc + 7) == 0x08360ac1 /* shladd,l r22,3,r1,r1 */ | |
216 | && *(pc + 8) == 0x0c2010c1 /* ldd 0(r1),r1 */ | |
217 | && *(pc + 9) == 0xe4202000) /* be,l 0(sr4,r1) */ | |
218 | || | |
219 | (!TARGET_64BIT | |
220 | && *(pc + 0) == 0x379a0000 /* ldo 0(ret0),r26 */ | |
221 | && *(pc + 1) == 0x6bd33fc9 /* stw r19,-1c(sp) */ | |
222 | && *(pc + 2) == 0x20200801 /* ldil L%-40000000,r1 */ | |
223 | && *(pc + 3) == 0xe420e008 /* be,l 4(sr7,r1) */ | |
224 | && *(pc + 4) == 0x34160116) /* ldi 8b,r22 */ | |
225 | || | |
226 | (!TARGET_64BIT | |
227 | && *(pc + 0) == 0x6bd33fc9 /* stw r19,-1c(sp) */ | |
228 | && *(pc + 1) == 0x20200801 /* ldil L%-40000000,r1 */ | |
229 | && *(pc + 2) == 0xe420e008 /* be,l 4(sr7,r1) */ | |
230 | && *(pc + 3) == 0x341601c0)) /* ldi e0,r22 */ | |
231 | { | |
232 | /* The previous stack pointer is saved at (long *)SP - 1. The | |
233 | ucontext structure is offset from the start of the previous | |
234 | frame by the siglocal_misc structure. */ | |
235 | struct siglocalx *sl = (struct siglocalx *) | |
236 | (*((long *) context->cfa - 1)); | |
237 | mcontext_t *mc = &(sl->sl_uc.uc_mcontext); | |
238 | ||
239 | long new_cfa = GetSSReg (mc, ss_sp); | |
240 | ||
6673f90b NF |
241 | fs->regs.cfa_how = CFA_REG_OFFSET; |
242 | fs->regs.cfa_reg = 30; | |
243 | fs->regs.cfa_offset = new_cfa - (long) context->cfa; | |
9fb1c9db JDA |
244 | |
245 | UPDATE_FS_FOR_GR (fs, 1, 1); | |
246 | UPDATE_FS_FOR_GR (fs, 2, 2); | |
247 | UPDATE_FS_FOR_GR (fs, 3, 3); | |
248 | UPDATE_FS_FOR_GR (fs, 4, 4); | |
249 | UPDATE_FS_FOR_GR (fs, 5, 5); | |
250 | UPDATE_FS_FOR_GR (fs, 6, 6); | |
251 | UPDATE_FS_FOR_GR (fs, 7, 7); | |
252 | UPDATE_FS_FOR_GR (fs, 8, 8); | |
253 | UPDATE_FS_FOR_GR (fs, 9, 9); | |
254 | UPDATE_FS_FOR_GR (fs, 10, 10); | |
255 | UPDATE_FS_FOR_GR (fs, 11, 11); | |
256 | UPDATE_FS_FOR_GR (fs, 12, 12); | |
257 | UPDATE_FS_FOR_GR (fs, 13, 13); | |
258 | UPDATE_FS_FOR_GR (fs, 14, 14); | |
259 | UPDATE_FS_FOR_GR (fs, 15, 15); | |
260 | UPDATE_FS_FOR_GR (fs, 16, 16); | |
261 | UPDATE_FS_FOR_GR (fs, 17, 17); | |
262 | UPDATE_FS_FOR_GR (fs, 18, 18); | |
263 | UPDATE_FS_FOR_GR (fs, 19, 19); | |
264 | UPDATE_FS_FOR_GR (fs, 20, 20); | |
265 | UPDATE_FS_FOR_GR (fs, 21, 21); | |
266 | UPDATE_FS_FOR_GR (fs, 22, 22); | |
267 | UPDATE_FS_FOR_GR (fs, 23, 23); | |
268 | UPDATE_FS_FOR_GR (fs, 24, 24); | |
269 | UPDATE_FS_FOR_GR (fs, 25, 25); | |
270 | UPDATE_FS_FOR_GR (fs, 26, 26); | |
271 | UPDATE_FS_FOR_GR (fs, 27, 27); | |
272 | UPDATE_FS_FOR_GR (fs, 28, 28); | |
273 | UPDATE_FS_FOR_GR (fs, 29, 29); | |
274 | UPDATE_FS_FOR_GR (fs, 30, 30); | |
275 | UPDATE_FS_FOR_GR (fs, 31, 31); | |
276 | ||
277 | if (TARGET_64BIT) | |
278 | { | |
279 | UPDATE_FS_FOR_FR (fs, 4, 32); | |
280 | UPDATE_FS_FOR_FR (fs, 5, 33); | |
281 | UPDATE_FS_FOR_FR (fs, 6, 34); | |
282 | UPDATE_FS_FOR_FR (fs, 7, 35); | |
283 | UPDATE_FS_FOR_FR (fs, 8, 36); | |
284 | UPDATE_FS_FOR_FR (fs, 9, 37); | |
285 | UPDATE_FS_FOR_FR (fs, 10, 38); | |
286 | UPDATE_FS_FOR_FR (fs, 11, 39); | |
287 | UPDATE_FS_FOR_FR (fs, 12, 40); | |
288 | UPDATE_FS_FOR_FR (fs, 13, 41); | |
289 | UPDATE_FS_FOR_FR (fs, 14, 42); | |
290 | UPDATE_FS_FOR_FR (fs, 15, 43); | |
291 | UPDATE_FS_FOR_FR (fs, 16, 44); | |
292 | UPDATE_FS_FOR_FR (fs, 17, 45); | |
293 | UPDATE_FS_FOR_FR (fs, 18, 46); | |
294 | UPDATE_FS_FOR_FR (fs, 19, 47); | |
295 | UPDATE_FS_FOR_FR (fs, 20, 48); | |
296 | UPDATE_FS_FOR_FR (fs, 21, 49); | |
297 | UPDATE_FS_FOR_FR (fs, 22, 50); | |
298 | UPDATE_FS_FOR_FR (fs, 23, 51); | |
299 | UPDATE_FS_FOR_FR (fs, 24, 52); | |
300 | UPDATE_FS_FOR_FR (fs, 25, 53); | |
301 | UPDATE_FS_FOR_FR (fs, 26, 54); | |
302 | UPDATE_FS_FOR_FR (fs, 27, 55); | |
303 | UPDATE_FS_FOR_FR (fs, 28, 56); | |
304 | UPDATE_FS_FOR_FR (fs, 29, 57); | |
305 | UPDATE_FS_FOR_FR (fs, 30, 58); | |
306 | UPDATE_FS_FOR_FR (fs, 31, 59); | |
307 | ||
308 | UPDATE_FS_FOR_SAR (fs, 60); | |
309 | } | |
310 | else | |
311 | { | |
312 | UPDATE_FS_FOR_FR (fs, 4, 32); | |
313 | UPDATE_FS_FOR_FR (fs, 5, 34); | |
314 | UPDATE_FS_FOR_FR (fs, 6, 36); | |
315 | UPDATE_FS_FOR_FR (fs, 7, 38); | |
316 | UPDATE_FS_FOR_FR (fs, 8, 40); | |
317 | UPDATE_FS_FOR_FR (fs, 9, 44); | |
318 | UPDATE_FS_FOR_FR (fs, 10, 44); | |
319 | UPDATE_FS_FOR_FR (fs, 11, 46); | |
320 | UPDATE_FS_FOR_FR (fs, 12, 48); | |
321 | UPDATE_FS_FOR_FR (fs, 13, 50); | |
322 | UPDATE_FS_FOR_FR (fs, 14, 52); | |
323 | UPDATE_FS_FOR_FR (fs, 15, 54); | |
324 | ||
325 | if (!cpu) | |
326 | cpu = sysconf (_SC_CPU_VERSION); | |
327 | ||
328 | /* PA-RISC 1.0 only has 16 floating point registers. */ | |
329 | if (cpu != CPU_PA_RISC1_0) | |
330 | { | |
331 | UPDATE_FS_FOR_FR (fs, 16, 56); | |
332 | UPDATE_FS_FOR_FR (fs, 17, 58); | |
333 | UPDATE_FS_FOR_FR (fs, 18, 60); | |
334 | UPDATE_FS_FOR_FR (fs, 19, 62); | |
335 | UPDATE_FS_FOR_FR (fs, 20, 64); | |
336 | UPDATE_FS_FOR_FR (fs, 21, 66); | |
337 | UPDATE_FS_FOR_FR (fs, 22, 68); | |
338 | UPDATE_FS_FOR_FR (fs, 23, 70); | |
339 | UPDATE_FS_FOR_FR (fs, 24, 72); | |
340 | UPDATE_FS_FOR_FR (fs, 25, 74); | |
341 | UPDATE_FS_FOR_FR (fs, 26, 76); | |
342 | UPDATE_FS_FOR_FR (fs, 27, 78); | |
343 | UPDATE_FS_FOR_FR (fs, 28, 80); | |
344 | UPDATE_FS_FOR_FR (fs, 29, 82); | |
345 | UPDATE_FS_FOR_FR (fs, 30, 84); | |
346 | UPDATE_FS_FOR_FR (fs, 31, 86); | |
347 | } | |
348 | ||
349 | UPDATE_FS_FOR_SAR (fs, 88); | |
350 | } | |
351 | ||
352 | fs->retaddr_column = DWARF_ALT_FRAME_RETURN_COLUMN; | |
353 | UPDATE_FS_FOR_PC (fs, DWARF_ALT_FRAME_RETURN_COLUMN); | |
354 | ||
355 | return _URC_NO_REASON; | |
356 | } | |
357 | ||
358 | return _URC_END_OF_STACK; | |
359 | } | |
d4c56bd7 | 360 | #endif /* inhibit_libc */ |