1 /* libunwind - a platform-independent unwind library
2 Copyright (C) 2001-2004 Hewlett-Packard Co
3 Contributed by David Mosberger-Tang <davidm@hpl.hp.com>
5 This file is part of libunwind.
7 Permission is hereby granted, free of charge, to any person obtaining
8 a copy of this software and associated documentation files (the
9 "Software"), to deal in the Software without restriction, including
10 without limitation the rights to use, copy, modify, merge, publish,
11 distribute, sublicense, and/or sell copies of the Software, and to
12 permit persons to whom the Software is furnished to do so, subject to
13 the following conditions:
15 The above copyright notice and this permission notice shall be
16 included in all copies or substantial portions of the Software.
18 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
19 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
21 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
22 LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
23 OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
24 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
31 #ifndef UNW_REMOTE_ONLY
34 local_resume (unw_addr_space_t as
, unw_cursor_t
*cursor
, void *arg
)
37 unw_word_t dirty_partition
[2048]; /* AR.RSC.LOADRS is a 14-bit field */
38 unw_word_t val
, sol
, sof
, pri_unat
, n
, pfs
, bspstore
, dirty_rnat
;
39 struct cursor
*c
= (struct cursor
*) cursor
;
57 ret = tdep_access_reg (c, UNW_IA64_NAT + (n), &val, 0); \
61 pri_unat |= (unw_word_t) 1 << n; \
65 /* ensure c->pi is up-to-date: */
66 if ((ret
= ia64_make_proc_info (c
)) < 0)
69 /* Copy contents of r4-r7 into "extra", so that their values end up
70 contiguous, so we can use a single (primary-) UNaT value. */
71 if ((ret
= ia64_get (c
, c
->loc
[IA64_REG_R4
], &extra
.r4
)) < 0
72 || (ret
= ia64_get (c
, c
->loc
[IA64_REG_R5
], &extra
.r5
)) < 0
73 || (ret
= ia64_get (c
, c
->loc
[IA64_REG_R6
], &extra
.r6
)) < 0
74 || (ret
= ia64_get (c
, c
->loc
[IA64_REG_R7
], &extra
.r7
)) < 0)
77 /* Form the primary UNaT value: */
79 GET_NAT (4); GET_NAT(5);
80 GET_NAT (6); GET_NAT(7);
81 n
= (((uintptr_t) &extra
.r4
) / 8 - 4) % 64;
82 pri_unat
= (pri_unat
<< n
) | (pri_unat
>> (64 - n
));
84 if (unlikely (c
->sigcontext_addr
))
86 struct sigcontext
*sc
= (struct sigcontext
*) c
->sigcontext_addr
;
87 # define PR_SCRATCH 0xffc0 /* p6-p15 are scratch */
88 # define PR_PRESERVED (~(PR_SCRATCH | 1))
90 /* We're returning to a frame that was (either directly or
91 indirectly) interrupted by a signal. We have to restore
92 _both_ "preserved" and "scratch" registers. That doesn't
93 leave us any registers to work with, and the only way we can
94 achieve this is by doing a sigreturn().
96 Note: it might be tempting to think that we don't have to
97 restore the scratch registers when returning to a frame that
98 was indirectly interrupted by a signal. However, that is not
99 safe because that frame and its descendants could have been
100 using a special convention that stores "preserved" state in
101 scratch registers. For example, the Linux fsyscall
102 convention does this with r11 (to save ar.pfs) and b6 (to
105 sc
->sc_gr
[12] = c
->psp
;
106 c
->psp
= c
->sigcontext_addr
- c
->sigcontext_off
;
108 sof
= (c
->cfm
& 0x7f);
109 if ((dirty_size
= rbs_cover_and_flush (c
, sof
, dirty_partition
,
110 &dirty_rnat
, &bspstore
)) < 0)
113 /* Clear the "in-syscall" flag, because in general we won't be
114 returning to the interruption-point and we need all registers
116 sc
->sc_flags
&= ~IA64_SC_FLAG_IN_SYSCALL
;
118 sc
->sc_cfm
= c
->cfm
& (((unw_word_t
) 1 << 38) - 1);
119 sc
->sc_pr
= (c
->pr
& ~PR_SCRATCH
) | (sc
->sc_pr
& ~PR_PRESERVED
);
120 if ((ret
= ia64_get (c
, c
->loc
[IA64_REG_PFS
], &sc
->sc_ar_pfs
)) < 0
121 || (ret
= ia64_get (c
, c
->loc
[IA64_REG_FPSR
], &sc
->sc_ar_fpsr
)) < 0
122 || (ret
= ia64_get (c
, c
->loc
[IA64_REG_UNAT
], &sc
->sc_ar_unat
)) < 0)
125 sc
->sc_gr
[1] = c
->pi
.gp
;
126 if (c
->eh_valid_mask
& 0x1) sc
->sc_gr
[15] = c
->eh_args
[0];
127 if (c
->eh_valid_mask
& 0x2) sc
->sc_gr
[16] = c
->eh_args
[1];
128 if (c
->eh_valid_mask
& 0x4) sc
->sc_gr
[17] = c
->eh_args
[2];
129 if (c
->eh_valid_mask
& 0x8) sc
->sc_gr
[18] = c
->eh_args
[3];
130 Debug (9, "sc: r15=%lx,r16=%lx,r17=%lx,r18=%lx\n",
131 (long) sc
->sc_gr
[15], (long) sc
->sc_gr
[16],
132 (long) sc
->sc_gr
[17], (long) sc
->sc_gr
[18]);
136 /* Account for the fact that _Uia64_install_context() will
137 return via br.ret, which will decrement bsp by size-of-locals. */
138 if ((ret
= ia64_get (c
, c
->loc
[IA64_REG_PFS
], &pfs
)) < 0)
140 sol
= (pfs
>> 7) & 0x7f;
141 if ((dirty_size
= rbs_cover_and_flush (c
, sol
, dirty_partition
,
142 &dirty_rnat
, &bspstore
)) < 0)
146 extra
.r15
= c
->eh_args
[0];
147 extra
.r16
= c
->eh_args
[1];
148 extra
.r17
= c
->eh_args
[2];
149 extra
.r18
= c
->eh_args
[3];
150 Debug (9, "extra: r15=%lx,r16=%lx,r17=%lx,r18=%lx\n",
151 (long) extra
.r15
, (long) extra
.r16
,
152 (long) extra
.r17
, (long) extra
.r18
);
154 Debug (8, "resuming at ip=%lx\n", (long) c
->ip
);
155 ia64_install_cursor (c
, pri_unat
, (unw_word_t
*) &extra
,
156 bspstore
, dirty_size
, dirty_partition
+ dirty_size
/8,
158 #elif defined(__hpux)
159 struct cursor
*c
= (struct cursor
*) cursor
;
161 setcontext (c
->as_arg
); /* should not return */
167 ia64_local_resume (unw_addr_space_t as
, unw_cursor_t
*cursor
, void *arg
)
169 return local_resume (as
, cursor
, arg
);
172 #endif /* !UNW_REMOTE_ONLY */
174 #ifndef UNW_LOCAL_ONLY
177 remote_install_cursor (struct cursor
*c
)
179 int (*access_reg
) (unw_addr_space_t
, unw_regnum_t
, unw_word_t
*,
181 int (*access_fpreg
) (unw_addr_space_t
, unw_regnum_t
, unw_fpreg_t
*,
187 #if defined(__linux) && !defined(UNW_REMOTE_ONLY)
188 if (c
->as
== unw_local_addr_space
)
190 /* Take a short-cut: we directly resume out of the cursor and
191 all we need to do is make sure that all locations point to
192 memory, not registers. Furthermore, R4-R7 and NAT4-NAT7 are
193 taken care of by ia64_local_resume() so they don't need to be
195 # define MEMIFY(preg, reg) \
197 if (IA64_IS_REG_LOC (c->loc[(preg)])) \
198 c->loc[(preg)] = IA64_LOC_ADDR ((unw_word_t) \
199 tdep_uc_addr(c->as_arg, (reg), \
202 MEMIFY (IA64_REG_PR
, UNW_IA64_PR
);
203 MEMIFY (IA64_REG_PFS
, UNW_IA64_AR_PFS
);
204 MEMIFY (IA64_REG_RNAT
, UNW_IA64_AR_RNAT
);
205 MEMIFY (IA64_REG_UNAT
, UNW_IA64_AR_UNAT
);
206 MEMIFY (IA64_REG_LC
, UNW_IA64_AR_LC
);
207 MEMIFY (IA64_REG_FPSR
, UNW_IA64_AR_FPSR
);
208 MEMIFY (IA64_REG_IP
, UNW_IA64_BR
+ 0);
209 MEMIFY (IA64_REG_B1
, UNW_IA64_BR
+ 1);
210 MEMIFY (IA64_REG_B2
, UNW_IA64_BR
+ 2);
211 MEMIFY (IA64_REG_B3
, UNW_IA64_BR
+ 3);
212 MEMIFY (IA64_REG_B4
, UNW_IA64_BR
+ 4);
213 MEMIFY (IA64_REG_B5
, UNW_IA64_BR
+ 5);
214 MEMIFY (IA64_REG_F2
, UNW_IA64_FR
+ 2);
215 MEMIFY (IA64_REG_F3
, UNW_IA64_FR
+ 3);
216 MEMIFY (IA64_REG_F4
, UNW_IA64_FR
+ 4);
217 MEMIFY (IA64_REG_F5
, UNW_IA64_FR
+ 5);
218 MEMIFY (IA64_REG_F16
, UNW_IA64_FR
+ 16);
219 MEMIFY (IA64_REG_F17
, UNW_IA64_FR
+ 17);
220 MEMIFY (IA64_REG_F18
, UNW_IA64_FR
+ 18);
221 MEMIFY (IA64_REG_F19
, UNW_IA64_FR
+ 19);
222 MEMIFY (IA64_REG_F20
, UNW_IA64_FR
+ 20);
223 MEMIFY (IA64_REG_F21
, UNW_IA64_FR
+ 21);
224 MEMIFY (IA64_REG_F22
, UNW_IA64_FR
+ 22);
225 MEMIFY (IA64_REG_F23
, UNW_IA64_FR
+ 23);
226 MEMIFY (IA64_REG_F24
, UNW_IA64_FR
+ 24);
227 MEMIFY (IA64_REG_F25
, UNW_IA64_FR
+ 25);
228 MEMIFY (IA64_REG_F26
, UNW_IA64_FR
+ 26);
229 MEMIFY (IA64_REG_F27
, UNW_IA64_FR
+ 27);
230 MEMIFY (IA64_REG_F28
, UNW_IA64_FR
+ 28);
231 MEMIFY (IA64_REG_F29
, UNW_IA64_FR
+ 29);
232 MEMIFY (IA64_REG_F30
, UNW_IA64_FR
+ 30);
233 MEMIFY (IA64_REG_F31
, UNW_IA64_FR
+ 31);
236 #endif /* __linux && !UNW_REMOTE_ONLY */
238 access_reg
= c
->as
->acc
.access_reg
;
239 access_fpreg
= c
->as
->acc
.access_fpreg
;
241 Debug (8, "copying out cursor state\n");
243 for (reg
= 0; reg
<= UNW_REG_LAST
; ++reg
)
245 if (unw_is_fpreg (reg
))
247 if (tdep_access_fpreg (c
, reg
, &fpval
, 0) >= 0)
248 (*access_fpreg
) (c
->as
, reg
, &fpval
, 1, c
->as_arg
);
252 if (tdep_access_reg (c
, reg
, &val
, 0) >= 0)
253 (*access_reg
) (c
->as
, reg
, &val
, 1, c
->as_arg
);
257 return (*c
->as
->acc
.resume
) (c
->as
, (unw_cursor_t
*) c
, c
->as_arg
);
260 #endif /* !UNW_LOCAL_ONLY */
263 unw_resume (unw_cursor_t
*cursor
)
265 struct cursor
*c
= (struct cursor
*) cursor
;
267 Debug (1, "(cursor=%p, ip=0x%016lx)\n", c
, (unsigned long) c
->ip
);
269 #ifdef UNW_LOCAL_ONLY
270 return local_resume (c
->as
, cursor
, c
->as_arg
);
272 return remote_install_cursor (c
);