123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168 |
- /* 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;
- }
|