1 /* libunwind - a platform-independent unwind library 2 Copyright (C) 2006-2007 IBM 3 Contributed by 4 Corey Ashford <cjashfor (at) us.ibm.com> 5 Jose Flavio Aguilar Paulino <jflavio (at) br.ibm.com> <joseflavio (at) 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 * 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 * 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 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 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 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, sizeof(unw_word_t))) 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, sizeof(unw_word_t))) 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 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 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 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, arg); 235 } 236 237 HIDDEN 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
