1 /* libunwind - a platform-independent unwind library
2 Copyright (C) 2006-2007 IBM
3 Contributed by
4 Corey Ashford <cjashfor@us.ibm.com>
5 Jose Flavio Aguilar Paulino <jflavio@br.ibm.com> <joseflavio@gmail.com>
6
7 This file is part of libunwind.
8
9 Permission is hereby granted, free of charge, to any person obtaining
10 a copy of this software and associated documentation files (the
11 "Software"), to deal in the Software without restriction, including
12 without limitation the rights to use, copy, modify, merge, publish,
13 distribute, sublicense, and/or sell copies of the Software, and to
14 permit persons to whom the Software is furnished to do so, subject to
15 the following conditions:
16
17 The above copyright notice and this permission notice shall be
18 included in all copies or substantial portions of the Software.
19
20 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24 LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25 OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26 WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */
27
28 #include <stdlib.h>
29 #include <string.h>
30
31 #include "ucontext_i.h"
32 #include "unwind_i.h"
33
34 #ifdef UNW_REMOTE_ONLY
35
36 /* unw_local_addr_space is a NULL pointer in this case. */
37 PROTECTED unw_addr_space_t unw_local_addr_space;
38
39 #else /* !UNW_REMOTE_ONLY */
40
41 static struct unw_addr_space local_addr_space;
42
43 PROTECTED unw_addr_space_t unw_local_addr_space = &local_addr_space;
44
45 static void *
uc_addr(ucontext_t * uc,int reg)46 uc_addr (ucontext_t *uc, int reg)
47 {
48 void *addr;
49
50 if ((unsigned) (reg - UNW_PPC64_R0) < 32)
51 addr = &uc->uc_mcontext.gp_regs[reg - UNW_PPC64_R0];
52
53 else if ((unsigned) (reg - UNW_PPC64_F0) < 32)
54 addr = &uc->uc_mcontext.fp_regs[reg - UNW_PPC64_F0];
55
56 else if ((unsigned) (reg - UNW_PPC64_V0) < 32)
57 addr = (uc->uc_mcontext.v_regs == 0) ? NULL : &uc->uc_mcontext.v_regs->vrregs[reg - UNW_PPC64_V0][0];
58
59 else
60 {
61 unsigned gregs_idx;
62
63 switch (reg)
64 {
65 case UNW_PPC64_NIP:
66 gregs_idx = NIP_IDX;
67 break;
68 case UNW_PPC64_CTR:
69 gregs_idx = CTR_IDX;
70 break;
71 case UNW_PPC64_LR:
72 gregs_idx = LINK_IDX;
73 break;
74 case UNW_PPC64_XER:
75 gregs_idx = XER_IDX;
76 break;
77 case UNW_PPC64_CR0:
78 gregs_idx = CCR_IDX;
79 break;
80 default:
81 return NULL;
82 }
83 addr = &uc->uc_mcontext.gp_regs[gregs_idx];
84 }
85 return addr;
86 }
87
88 # ifdef UNW_LOCAL_ONLY
89
90 HIDDEN void *
tdep_uc_addr(ucontext_t * uc,int reg)91 tdep_uc_addr (ucontext_t *uc, int reg)
92 {
93 return uc_addr (uc, reg);
94 }
95
96 # endif /* UNW_LOCAL_ONLY */
97
98 HIDDEN unw_dyn_info_list_t _U_dyn_info_list;
99
100
101 static void
put_unwind_info(unw_addr_space_t as,unw_proc_info_t * proc_info,void * arg)102 put_unwind_info (unw_addr_space_t as, unw_proc_info_t *proc_info, void *arg)
103 {
104 /* it's a no-op */
105 }
106
107 static int
get_dyn_info_list_addr(unw_addr_space_t as,unw_word_t * dyn_info_list_addr,void * arg)108 get_dyn_info_list_addr (unw_addr_space_t as, unw_word_t *dyn_info_list_addr,
109 void *arg)
110 {
111 *dyn_info_list_addr = (unw_word_t) &_U_dyn_info_list;
112 return 0;
113 }
114
115 static int
access_mem(unw_addr_space_t as,unw_word_t addr,unw_word_t * val,int write,void * arg)116 access_mem (unw_addr_space_t as, unw_word_t addr, unw_word_t *val, int write,
117 void *arg)
118 {
119 if (write)
120 {
121 /* ANDROID support update. */
122 #ifdef UNW_LOCAL_ONLY
123 if (map_local_is_writable (addr))
124 {
125 #endif
126 Debug (12, "mem[%lx] <- %lx\n", addr, *val);
127 *(unw_word_t *) addr = *val;
128 #ifdef UNW_LOCAL_ONLY
129 }
130 else
131 {
132 Debug (12, "Unwritable memory mem[%lx] <- %lx\n", addr, *val);
133 return -1;
134 }
135 #endif
136 /* End of ANDROID update. */
137 }
138 else
139 {
140 /* ANDROID support update. */
141 #ifdef UNW_LOCAL_ONLY
142 if (map_local_is_readable (addr))
143 {
144 #endif
145 *val = *(unw_word_t *) addr;
146 Debug (12, "mem[%lx] -> %lx\n", addr, *val);
147 #ifdef UNW_LOCAL_ONLY
148 }
149 else
150 {
151 Debug (12, "Unreadable memory mem[%lx] -> XXX\n", addr);
152 return -1;
153 }
154 #endif
155 /* End of ANDROID update. */
156 }
157 return 0;
158 }
159
160 static int
access_reg(unw_addr_space_t as,unw_regnum_t reg,unw_word_t * val,int write,void * arg)161 access_reg (unw_addr_space_t as, unw_regnum_t reg, unw_word_t *val,
162 int write, void *arg)
163 {
164 unw_word_t *addr;
165 ucontext_t *uc = arg;
166
167 if (UNW_PPC64_F0 <= reg && reg <= UNW_PPC64_F31)
168 goto badreg;
169 if (UNW_PPC64_V0 <= reg && reg <= UNW_PPC64_V31)
170 goto badreg;
171
172 addr = uc_addr (uc, reg);
173 if (!addr)
174 goto badreg;
175
176 if (write)
177 {
178 *(unw_word_t *) addr = *val;
179 Debug (12, "%s <- %lx\n", unw_regname (reg), *val);
180 }
181 else
182 {
183 *val = *(unw_word_t *) addr;
184 Debug (12, "%s -> %lx\n", unw_regname (reg), *val);
185 }
186 return 0;
187
188 badreg:
189 Debug (1, "bad register number %u\n", reg);
190 return -UNW_EBADREG;
191 }
192
193 static int
access_fpreg(unw_addr_space_t as,unw_regnum_t reg,unw_fpreg_t * val,int write,void * arg)194 access_fpreg (unw_addr_space_t as, unw_regnum_t reg, unw_fpreg_t *val,
195 int write, void *arg)
196 {
197 ucontext_t *uc = arg;
198 unw_fpreg_t *addr;
199
200 if ((unsigned) (reg - UNW_PPC64_F0) < 0)
201 goto badreg;
202
203 if ((unsigned) (reg - UNW_PPC64_V0) >= 32)
204 goto badreg;
205
206
207 addr = uc_addr (uc, reg);
208 if (!addr)
209 goto badreg;
210
211 if (write)
212 {
213 Debug (12, "%s <- %016Lf\n", unw_regname (reg), *val);
214 *(unw_fpreg_t *) addr = *val;
215 }
216 else
217 {
218 *val = *(unw_fpreg_t *) addr;
219 Debug (12, "%s -> %016Lf\n", unw_regname (reg), *val);
220 }
221 return 0;
222
223 badreg:
224 Debug (1, "bad register number %u\n", reg);
225 /* attempt to access a non-preserved register */
226 return -UNW_EBADREG;
227 }
228
229 static int
get_static_proc_name(unw_addr_space_t as,unw_word_t ip,char * buf,size_t buf_len,unw_word_t * offp,void * arg)230 get_static_proc_name (unw_addr_space_t as, unw_word_t ip,
231 char *buf, size_t buf_len, unw_word_t *offp,
232 void *arg)
233 {
234 return _Uelf64_get_proc_name (as, getpid (), ip, buf, buf_len, offp);
235 }
236
237 HIDDEN void
ppc64_local_addr_space_init(void)238 ppc64_local_addr_space_init (void)
239 {
240 memset (&local_addr_space, 0, sizeof (local_addr_space));
241 local_addr_space.caching_policy = UNW_CACHE_GLOBAL;
242 local_addr_space.acc.find_proc_info = dwarf_find_proc_info;
243 local_addr_space.acc.put_unwind_info = put_unwind_info;
244 local_addr_space.acc.get_dyn_info_list_addr = get_dyn_info_list_addr;
245 local_addr_space.acc.access_mem = access_mem;
246 local_addr_space.acc.access_reg = access_reg;
247 local_addr_space.acc.access_fpreg = access_fpreg;
248 local_addr_space.acc.resume = ppc64_local_resume;
249 local_addr_space.acc.get_proc_name = get_static_proc_name;
250 unw_flush_cache (&local_addr_space, 0, 0);
251
252 map_local_init ();
253 }
254
255 #endif /* !UNW_REMOTE_ONLY */
256