123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208 |
- #include "thread_dbP.h"
- #include <stdlib.h>
- #include <byteswap.h>
- #include <sys/procfs.h>
- td_err_e
- __td_ta_lookup_th_unique (const td_thragent_t *ta_arg,
- lwpid_t lwpid, td_thrhandle_t *th)
- {
- td_thragent_t *const ta = (td_thragent_t *) ta_arg;
- ps_err_e err;
- td_err_e terr;
- prgregset_t regs;
- psaddr_t addr;
- LOG ("td_ta_map_lwp2thr");
-
- if (! ta_ok (ta))
- return TD_BADTA;
- if (ta->ta_howto == ta_howto_unknown)
- {
-
- psaddr_t howto;
- err = td_lookup (ta->ph, SYM_TH_UNIQUE_CONST_THREAD_AREA, &howto);
- if (err == PS_OK)
- {
- err = ps_pdread (ta->ph, howto,
- &ta->ta_howto_data.const_thread_area,
- sizeof ta->ta_howto_data.const_thread_area);
- if (err != PS_OK)
- return TD_ERR;
- ta->ta_howto = ta_howto_const_thread_area;
- if (ta->ta_howto_data.const_thread_area & 0xff000000U)
- ta->ta_howto_data.const_thread_area
- = bswap_32 (ta->ta_howto_data.const_thread_area);
- }
- else
- {
- switch (sizeof (regs[0]))
- {
- case 8:
- err = td_lookup (ta->ph, SYM_TH_UNIQUE_REGISTER64, &howto);
- if (err == PS_OK)
- ta->ta_howto = ta_howto_reg;
- else if (err == PS_NOSYM)
- {
- err = td_lookup (ta->ph,
- SYM_TH_UNIQUE_REGISTER64_THREAD_AREA,
- &howto);
- if (err == PS_OK)
- ta->ta_howto = ta_howto_reg_thread_area;
- }
- break;
- case 4:
- err = td_lookup (ta->ph, SYM_TH_UNIQUE_REGISTER32, &howto);
- if (err == PS_OK)
- ta->ta_howto = ta_howto_reg;
- else if (err == PS_NOSYM)
- {
- err = td_lookup (ta->ph,
- SYM_TH_UNIQUE_REGISTER32_THREAD_AREA,
- &howto);
- if (err == PS_OK)
- ta->ta_howto = ta_howto_reg_thread_area;
- }
- break;
- default:
- abort ();
- return TD_DBERR;
- }
- if (err != PS_OK)
- return TD_DBERR;
-
- err = ps_pdread (ta->ph, howto,
- ta->ta_howto_data.reg, DB_SIZEOF_DESC);
- if (err != PS_OK)
- return TD_ERR;
- if (DB_DESC_SIZE (ta->ta_howto_data.reg) == 0)
- return TD_DBERR;
- if (DB_DESC_SIZE (ta->ta_howto_data.reg) & 0xff000000U)
- {
-
- DB_DESC_OFFSET (ta->ta_howto_data.reg)
- = bswap_32 (DB_DESC_OFFSET (ta->ta_howto_data.reg));
- DB_DESC_NELEM (ta->ta_howto_data.reg)
- = bswap_32 (DB_DESC_NELEM (ta->ta_howto_data.reg));
- }
- }
- }
- switch (ta->ta_howto)
- {
- default:
- return TD_DBERR;
- case ta_howto_reg:
-
- if (ps_lgetregs (ta->ph, lwpid, regs) != PS_OK)
- return TD_ERR;
- terr = _td_fetch_value_local (ta, ta->ta_howto_data.reg, -1,
- 0, regs, &addr);
- if (terr != TD_OK)
- return terr;
-
- addr += (int32_t) DB_DESC_NELEM (ta->ta_howto_data.reg);
- th->th_unique = addr;
- break;
- case ta_howto_const_thread_area:
-
- # pragma weak ps_get_thread_area
- if (&ps_get_thread_area == NULL)
- return TD_NOCAPAB;
-
- if (ps_get_thread_area (ta->ph, lwpid,
- ta->ta_howto_data.const_thread_area,
- &th->th_unique) != PS_OK)
- return TD_ERR;
- break;
- case ta_howto_reg_thread_area:
- if (&ps_get_thread_area == NULL)
- return TD_NOCAPAB;
-
- if (ps_lgetregs (ta->ph, lwpid, regs) != PS_OK)
- return TD_ERR;
- terr = _td_fetch_value_local (ta, ta->ta_howto_data.reg_thread_area,
- -1, 0, regs, &addr);
- if (terr != TD_OK)
- return terr;
-
- if (ps_get_thread_area
- (ta->ph, lwpid,
- ((addr - (psaddr_t) 0)
- >> DB_DESC_NELEM (ta->ta_howto_data.reg_thread_area)),
- &th->th_unique) != PS_OK)
- return TD_ERR;
- break;
- }
-
- th->th_ta_p = ta;
- return TD_OK;
- }
- td_err_e
- td_ta_map_lwp2thr (const td_thragent_t *ta_arg,
- lwpid_t lwpid, td_thrhandle_t *th)
- {
- td_thragent_t *const ta = (td_thragent_t *) ta_arg;
-
- psaddr_t list;
- td_err_e err = DB_GET_SYMBOL (list, ta, __stack_user);
- if (err != TD_OK)
- return err;
- err = DB_GET_FIELD (list, ta, list, list_t, next, 0);
- if (err != TD_OK)
- return err;
- if (list == 0)
- {
- if (ps_getpid (ta->ph) != lwpid)
- return TD_ERR;
- th->th_ta_p = ta;
- th->th_unique = 0;
- return TD_OK;
- }
- return __td_ta_lookup_th_unique (ta_arg, lwpid, th);
- }
|