| /* libunwind - a platform-independent unwind library |
| Copyright (C) 2002-2003, 2005 Hewlett-Packard Co |
| Contributed by David Mosberger-Tang <davidm@hpl.hp.com> |
| |
| This file is part of libunwind. |
| |
| Permission is hereby granted, free of charge, to any person obtaining |
| a copy of this software and associated documentation files (the |
| "Software"), to deal in the Software without restriction, including |
| without limitation the rights to use, copy, modify, merge, publish, |
| distribute, sublicense, and/or sell copies of the Software, and to |
| permit persons to whom the Software is furnished to do so, subject to |
| the following conditions: |
| |
| The above copyright notice and this permission notice shall be |
| included in all copies or substantial portions of the Software. |
| |
| THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
| NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE |
| LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION |
| OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION |
| WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ |
| |
| #include <assert.h> |
| |
| #include "rse.h" |
| |
| #include "offsets.h" |
| #include "regs.h" |
| |
| PROTECTED int |
| unw_get_save_loc (unw_cursor_t *cursor, int reg, unw_save_loc_t *sloc) |
| { |
| struct cursor *c = (struct cursor *) cursor; |
| ia64_loc_t loc, reg_loc; |
| uint8_t nat_bitnr; |
| int ret; |
| |
| loc = IA64_NULL_LOC; /* default to "not saved" */ |
| |
| switch (reg) |
| { |
| /* frame registers */ |
| case UNW_IA64_BSP: |
| case UNW_REG_SP: |
| default: |
| break; |
| |
| case UNW_REG_IP: |
| loc = c->loc[IA64_REG_IP]; |
| break; |
| |
| /* preserved registers: */ |
| case UNW_IA64_GR + 4 ... UNW_IA64_GR + 7: |
| loc = c->loc[IA64_REG_R4 + (reg - (UNW_IA64_GR + 4))]; |
| break; |
| |
| case UNW_IA64_NAT + 4 ... UNW_IA64_NAT + 7: |
| loc = c->loc[IA64_REG_NAT4 + (reg - (UNW_IA64_NAT + 4))]; |
| reg_loc = c->loc[IA64_REG_R4 + (reg - (UNW_IA64_NAT + 4))]; |
| nat_bitnr = c->nat_bitnr[reg - (UNW_IA64_NAT + 4)]; |
| if (IA64_IS_FP_LOC (reg_loc)) |
| /* NaT bit saved as a NaTVal. */ |
| loc = reg_loc; |
| break; |
| |
| case UNW_IA64_FR + 2: loc = c->loc[IA64_REG_F2]; break; |
| case UNW_IA64_FR + 3: loc = c->loc[IA64_REG_F3]; break; |
| case UNW_IA64_FR + 4: loc = c->loc[IA64_REG_F4]; break; |
| case UNW_IA64_FR + 5: loc = c->loc[IA64_REG_F5]; break; |
| case UNW_IA64_FR + 16 ... UNW_IA64_FR + 31: |
| loc = c->loc[IA64_REG_F16 + (reg - (UNW_IA64_FR + 16))]; |
| break; |
| |
| case UNW_IA64_AR_BSP: loc = c->loc[IA64_REG_BSP]; break; |
| case UNW_IA64_AR_BSPSTORE: loc = c->loc[IA64_REG_BSPSTORE]; break; |
| case UNW_IA64_AR_PFS: loc = c->loc[IA64_REG_PFS]; break; |
| case UNW_IA64_AR_RNAT: loc = c->loc[IA64_REG_RNAT]; break; |
| case UNW_IA64_AR_UNAT: loc = c->loc[IA64_REG_UNAT]; break; |
| case UNW_IA64_AR_LC: loc = c->loc[IA64_REG_LC]; break; |
| case UNW_IA64_AR_FPSR: loc = c->loc[IA64_REG_FPSR]; break; |
| case UNW_IA64_BR + 1: loc = c->loc[IA64_REG_B1]; break; |
| case UNW_IA64_BR + 2: loc = c->loc[IA64_REG_B2]; break; |
| case UNW_IA64_BR + 3: loc = c->loc[IA64_REG_B3]; break; |
| case UNW_IA64_BR + 4: loc = c->loc[IA64_REG_B4]; break; |
| case UNW_IA64_BR + 5: loc = c->loc[IA64_REG_B5]; break; |
| case UNW_IA64_CFM: loc = c->cfm_loc; break; |
| case UNW_IA64_PR: loc = c->loc[IA64_REG_PR]; break; |
| |
| case UNW_IA64_GR + 32 ... UNW_IA64_GR + 127: /* stacked reg */ |
| reg = rotate_gr (c, reg - UNW_IA64_GR); |
| ret = ia64_get_stacked (c, reg, &loc, NULL); |
| if (ret < 0) |
| return ret; |
| break; |
| |
| case UNW_IA64_NAT + 32 ... UNW_IA64_NAT + 127: /* stacked reg */ |
| reg = rotate_gr (c, reg - UNW_IA64_NAT); |
| ret = ia64_get_stacked (c, reg, NULL, &loc); |
| break; |
| |
| case UNW_IA64_AR_EC: |
| loc = c->cfm_loc; |
| break; |
| |
| /* scratch & special registers: */ |
| |
| case UNW_IA64_GR + 0: |
| case UNW_IA64_GR + 1: /* global pointer */ |
| case UNW_IA64_NAT + 0: |
| case UNW_IA64_NAT + 1: /* global pointer */ |
| case UNW_IA64_FR + 0: |
| case UNW_IA64_FR + 1: |
| break; |
| |
| case UNW_IA64_NAT + 2 ... UNW_IA64_NAT + 3: |
| case UNW_IA64_NAT + 8 ... UNW_IA64_NAT + 31: |
| loc = ia64_scratch_loc (c, reg, &nat_bitnr); |
| break; |
| |
| case UNW_IA64_GR + 2 ... UNW_IA64_GR + 3: |
| case UNW_IA64_GR + 8 ... UNW_IA64_GR + 31: |
| case UNW_IA64_BR + 0: |
| case UNW_IA64_BR + 6: |
| case UNW_IA64_BR + 7: |
| case UNW_IA64_AR_RSC: |
| case UNW_IA64_AR_CSD: |
| case UNW_IA64_AR_SSD: |
| case UNW_IA64_AR_CCV: |
| loc = ia64_scratch_loc (c, reg, NULL); |
| break; |
| |
| case UNW_IA64_FR + 6 ... UNW_IA64_FR + 15: |
| loc = ia64_scratch_loc (c, reg, NULL); |
| break; |
| |
| case UNW_IA64_FR + 32 ... UNW_IA64_FR + 127: |
| reg = rotate_fr (c, reg - UNW_IA64_FR) + UNW_IA64_FR; |
| loc = ia64_scratch_loc (c, reg, NULL); |
| break; |
| } |
| |
| memset (sloc, 0, sizeof (*sloc)); |
| |
| if (IA64_IS_NULL_LOC (loc)) |
| { |
| sloc->type = UNW_SLT_NONE; |
| return 0; |
| } |
| |
| #if !defined(UNW_LOCAL_ONLY) |
| if (IA64_IS_REG_LOC (loc)) |
| { |
| sloc->type = UNW_SLT_REG; |
| sloc->u.regnum = IA64_GET_REG (loc); |
| sloc->extra.nat_bitnr = nat_bitnr; |
| } |
| else |
| #endif |
| { |
| sloc->type = UNW_SLT_MEMORY; |
| sloc->u.addr = IA64_GET_ADDR (loc); |
| sloc->extra.nat_bitnr = nat_bitnr; |
| } |
| return 0; |
| } |