src/libs/libunwind/ppc32/Ginit.c

   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 *
  46 uc_addr (ucontext_t *uc, int reg)
  47 {
  48   void *addr;
  49
  50   if ((unsigned) (reg - UNW_PPC32_R0) < 32)
  51     addr = &uc->uc_mcontext.uc_regs->gregs[reg - UNW_PPC32_R0];
  52
  53   else
  54   if ( ((unsigned) (reg - UNW_PPC32_F0) < 32) &&
  55        ((unsigned) (reg - UNW_PPC32_F0) >= 0) )
  56     addr = &uc->uc_mcontext.uc_regs->fpregs.fpregs[reg - UNW_PPC32_F0];
  57
  58   else
  59     {
  60       unsigned gregs_idx;
  61
  62       switch (reg)
  63         {
  64         case UNW_PPC32_CTR:
  65           gregs_idx = CTR_IDX;
  66           break;
  67         case UNW_PPC32_LR:
  68           gregs_idx = LINK_IDX;
  69           break;
  70         case UNW_PPC32_XER:
  71           gregs_idx = XER_IDX;
  72           break;
  73         case UNW_PPC32_CCR:
  74           gregs_idx = CCR_IDX;
  75           break;
  76         default:
  77           return NULL;
  78         }
  79       addr = &uc->uc_mcontext.uc_regs->gregs[gregs_idx];
  80     }
  81   return addr;
  82 }
  83
  84 # ifdef UNW_LOCAL_ONLY
  85
  86 HIDDEN void *
  87 tdep_uc_addr (ucontext_t *uc, int reg)
  88 {
  89   return uc_addr (uc, reg);
  90 }
  91
  92 # endif /* UNW_LOCAL_ONLY */
  93
  94 HIDDEN unw_dyn_info_list_t _U_dyn_info_list;
  95
  96
  97 static void
  98 put_unwind_info (unw_addr_space_t as, unw_proc_info_t *proc_info, void *arg)
  99 {
 100   /* it's a no-op */
 101 }
 102
 103 static int
 104 get_dyn_info_list_addr (unw_addr_space_t as, unw_word_t *dyn_info_list_addr,
 105                         void *arg)
 106 {
 107   *dyn_info_list_addr = (unw_word_t) &_U_dyn_info_list;
 108   return 0;
 109 }
 110
 111 static int
 112 access_mem (unw_addr_space_t as, unw_word_t addr, unw_word_t *val, int write,
 113             void *arg)
 114 {
 115   if (write)
 116     {
 117       Debug (12, "mem[%lx] <- %lx\n", addr, *val);
 118       *(unw_word_t *) addr = *val;
 119     }
 120   else
 121     {
 122       *val = *(unw_word_t *) addr;
 123       Debug (12, "mem[%lx] -> %lx\n", addr, *val);
 124     }
 125   return 0;
 126 }
 127
 128 static int
 129 access_reg (unw_addr_space_t as, unw_regnum_t reg, unw_word_t *val,
 130             int write, void *arg)
 131 {
 132   unw_word_t *addr;
 133   ucontext_t *uc = arg;
 134
 135   if ( ((unsigned int) (reg - UNW_PPC32_F0) < 32) &&
 136        ((unsigned int) (reg - UNW_PPC32_F0) >= 0))
 137     goto badreg;
 138
 139   addr = uc_addr (uc, reg);
 140   if (!addr)
 141     goto badreg;
 142
 143   if (write)
 144     {
 145       *(unw_word_t *) addr = *val;
 146       Debug (12, "%s <- %lx\n", unw_regname (reg), *val);
 147     }
 148   else
 149     {
 150       *val = *(unw_word_t *) addr;
 151       Debug (12, "%s -> %lx\n", unw_regname (reg), *val);
 152     }
 153   return 0;
 154
 155 badreg:
 156   Debug (1, "bad register number %u\n", reg);
 157   return -UNW_EBADREG;
 158 }
 159
 160 static int
 161 access_fpreg (unw_addr_space_t as, unw_regnum_t reg, unw_fpreg_t *val,
 162               int write, void *arg)
 163 {
 164   ucontext_t *uc = arg;
 165   unw_fpreg_t *addr;
 166
 167   if ((unsigned) (reg - UNW_PPC32_F0) < 0)
 168     goto badreg;
 169
 170   addr = uc_addr (uc, reg);
 171   if (!addr)
 172     goto badreg;
 173
 174   if (write)
 175     {
 176       Debug (12, "%s <- %016Lf\n", unw_regname (reg), *val);
 177       *(unw_fpreg_t *) addr = *val;
 178     }
 179   else
 180     {
 181       *val = *(unw_fpreg_t *) addr;
 182       Debug (12, "%s -> %016Lf\n", unw_regname (reg), *val);
 183     }
 184   return 0;
 185
 186 badreg:
 187   Debug (1, "bad register number %u\n", reg);
 188   /* attempt to access a non-preserved register */
 189   return -UNW_EBADREG;
 190 }
 191
 192 static int
 193 get_static_proc_name (unw_addr_space_t as, unw_word_t ip,
 194                       char *buf, size_t buf_len, unw_word_t *offp,
 195                       void *arg)
 196 {
 197   return _Uelf32_get_proc_name (as, getpid (), ip, buf, buf_len, offp);
 198 }
 199
 200 HIDDEN void
 201 ppc32_local_addr_space_init (void)
 202 {
 203   memset (&local_addr_space, 0, sizeof (local_addr_space));
 204   local_addr_space.caching_policy = UNW_CACHE_GLOBAL;
 205   local_addr_space.acc.find_proc_info = dwarf_find_proc_info;
 206   local_addr_space.acc.put_unwind_info = put_unwind_info;
 207   local_addr_space.acc.get_dyn_info_list_addr = get_dyn_info_list_addr;
 208   local_addr_space.acc.access_mem = access_mem;
 209   local_addr_space.acc.access_reg = access_reg;
 210   local_addr_space.acc.access_fpreg = access_fpreg;
 211   local_addr_space.acc.resume = ppc32_local_resume;
 212   local_addr_space.acc.get_proc_name = get_static_proc_name;
 213   unw_flush_cache (&local_addr_space, 0, 0);
 214 }
 215
 216 #endif /* !UNW_REMOTE_ONLY */