m2-internship/libunwind-eh_elf
1
0
Fork 0
mirror of https://github.com/tobast/libunwind-eh_elf.git synced 2024-11-26 09:07:38 +01:00
Code Issues Releases Activity

(dwarf_getfp): Implement a first draft version of this routine

Browse source 
(completely untested).
(dwarf_putfp): Likewise.
(dwarf_get): Don't support fp-register save-locations.
(dwarf_put): Likewise.

(Logical change 1.264)
This commit is contained in:
mostang.com!davidm 2004-09-09 10:50:06 +00:00
parent 0fdda1b3b0
commit a6aa7338cc
1 changed files with 38 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
include/tdep-x86.h
View file

@ -125,21 +125,45 @@ dwarf_put (struct dwarf_cursor *c, dwarf_loc_t loc, unw_word_t val)
static inline int static inline int
dwarf_getfp (struct dwarf_cursor *c, dwarf_loc_t loc, unw_fpreg_t *val) dwarf_getfp (struct dwarf_cursor *c, dwarf_loc_t loc, unw_fpreg_t *val)
{ {
unw_word_t addr;
int ret;
if (DWARF_IS_NULL_LOC (loc)) if (DWARF_IS_NULL_LOC (loc))
return -UNW_EBADREG; return -UNW_EBADREG;
# warning fix me if (DWARF_IS_REG_LOC (loc))
abort (); return (*c->as->acc.access_fpreg) (c->as, DWARF_GET_LOC (loc),
val, 0, c->as_arg);
addr = DWARF_GET_LOC (loc);
if ((ret = (*c->as->acc.access_mem) (c->as, addr + 0, (unw_word_t *) &val,
0, c->as_arg)) < 0)
return ret;
return (*c->as->acc.access_mem) (c->as, addr + 4, (unw_word_t *) &val + 1, 0,
c->as_arg);
} }
static inline int static inline int
dwarf_putfp (struct dwarf_cursor *c, dwarf_loc_t loc, unw_fpreg_t val) dwarf_putfp (struct dwarf_cursor *c, dwarf_loc_t loc, unw_fpreg_t val)
{ {
unw_word_t addr;
int ret;
if (DWARF_IS_NULL_LOC (loc)) if (DWARF_IS_NULL_LOC (loc))
return -UNW_EBADREG; return -UNW_EBADREG;
# warning fix me if (DWARF_IS_REG_LOC (loc))
abort (); return (*c->as->acc.access_fpreg) (c->as, DWARF_GET_LOC (loc),
&val, 1, c->as_arg);
addr = DWARF_GET_LOC (loc);
if ((ret = (*c->as->acc.access_mem) (c->as, addr + 0, (unw_word_t *) &val,
1, c->as_arg)) < 0)
return ret;
return (*c->as->acc.access_mem) (c->as, addr + 4, (unw_word_t *) &val + 1,
1, c->as_arg);
} }
static inline int static inline int
@ -148,9 +172,11 @@ dwarf_get (struct dwarf_cursor *c, dwarf_loc_t loc, unw_word_t *val)
if (DWARF_IS_NULL_LOC (loc)) if (DWARF_IS_NULL_LOC (loc))
return -UNW_EBADREG; return -UNW_EBADREG;
if (DWARF_IS_FP_LOC (loc)) /* If a code-generator were to save a value of type unw_word_t in a
# warning fix me floating-point register, we would have to support this case. I
abort (); suppose it could happen with MMX registers, but does it really
happen? */
assert (!DWARF_IS_FP_LOC (loc));
if (DWARF_IS_REG_LOC (loc)) if (DWARF_IS_REG_LOC (loc))
return (*c->as->acc.access_reg) (c->as, DWARF_GET_LOC (loc), val, return (*c->as->acc.access_reg) (c->as, DWARF_GET_LOC (loc), val,
@ -166,9 +192,11 @@ dwarf_put (struct dwarf_cursor *c, dwarf_loc_t loc, unw_word_t val)
if (DWARF_IS_NULL_LOC (loc)) if (DWARF_IS_NULL_LOC (loc))
return -UNW_EBADREG; return -UNW_EBADREG;
if (DWARF_IS_FP_LOC (loc)) /* If a code-generator were to save a value of type unw_word_t in a
# warning fix me floating-point register, we would have to support this case. I
abort (); suppose it could happen with MMX registers, but does it really
happen? */
assert (!DWARF_IS_FP_LOC (loc));
if (DWARF_IS_REG_LOC (loc)) if (DWARF_IS_REG_LOC (loc))
return (*c->as->acc.access_reg) (c->as, DWARF_GET_LOC (loc), &val, return (*c->as->acc.access_reg) (c->as, DWARF_GET_LOC (loc), &val,