summaryrefslogtreecommitdiffstats
path: root/sys/contrib/ia64/libuwx/src/uwx_ttrace.c
diff options
context:
space:
mode:
Diffstat (limited to 'sys/contrib/ia64/libuwx/src/uwx_ttrace.c')
-rw-r--r--sys/contrib/ia64/libuwx/src/uwx_ttrace.c365
1 files changed, 365 insertions, 0 deletions
diff --git a/sys/contrib/ia64/libuwx/src/uwx_ttrace.c b/sys/contrib/ia64/libuwx/src/uwx_ttrace.c
new file mode 100644
index 0000000..a506ed0
--- /dev/null
+++ b/sys/contrib/ia64/libuwx/src/uwx_ttrace.c
@@ -0,0 +1,365 @@
+/*
+ * Copyright (c) 2002,2003 Hewlett-Packard Company
+ *
+ * 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.
+ */
+
+#ifndef _KERNEL
+#include <stdlib.h>
+#include <dlfcn.h>
+#include <sys/ttrace.h>
+#include <sys/uc_access.h>
+#include <machine/sys/uregs.h>
+#endif
+
+#include "uwx_env.h"
+#include "uwx_context.h"
+#include "uwx_trace.h"
+#include "uwx_ttrace.h"
+
+struct uwx_ttrace_info {
+ uint64_t bspstore;
+ uint64_t load_map;
+ uint64_t rvec[10];
+ alloc_cb allocate_cb;
+ free_cb free_cb;
+ int have_ucontext;
+ pid_t pid;
+ lwpid_t lwpid;
+ int trace;
+ ucontext_t ucontext;
+};
+
+void *uwx_ttrace_memcpy(void *buffer, uint64_t ptr, size_t bufsiz, int ident)
+{
+ uint64_t *dest;
+ uint64_t val;
+ int status;
+
+ status = ttrace(TT_PROC_RDDATA, (pid_t)ident,
+ 0, ptr, bufsiz, (uint64_t)buffer);
+ if (status != 0)
+ return NULL;
+ return buffer;
+}
+
+struct uwx_ttrace_info *uwx_ttrace_init_info(
+ struct uwx_env *env,
+ pid_t pid,
+ lwpid_t lwpid,
+ uint64_t load_map)
+{
+ struct uwx_ttrace_info *info;
+
+ if (env->allocate_cb == 0)
+ info = (struct uwx_ttrace_info *)
+ malloc(sizeof(struct uwx_ttrace_info));
+ else
+ info = (struct uwx_ttrace_info *)
+ (*env->allocate_cb)(sizeof(struct uwx_ttrace_info));
+ if (info == 0)
+ return 0;
+
+ info->bspstore = 0;
+ info->load_map = load_map;
+ info->allocate_cb = env->allocate_cb;
+ info->free_cb = env->free_cb;
+ info->have_ucontext = 0;
+ info->pid = pid;
+ info->lwpid = lwpid;
+ info->trace = env->trace;
+ return info;
+}
+
+int uwx_ttrace_free_info(struct uwx_ttrace_info *info)
+{
+ if (info->free_cb == 0)
+ free((void *)info);
+ else
+ (*info->free_cb)((void *)info);
+ return UWX_OK;
+}
+
+int uwx_ttrace_init_context(struct uwx_env *env, struct uwx_ttrace_info *info)
+{
+ uint64_t reason;
+ uint64_t ip;
+ uint64_t sp;
+ uint64_t bsp;
+ uint64_t cfm;
+ uint64_t ec;
+ int status;
+
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__reason, (uint64_t)8, (uint64_t)&reason);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__ip, (uint64_t)8, (uint64_t)&ip);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__r12, (uint64_t)8, (uint64_t)&sp);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__ar_bsp, (uint64_t)8, (uint64_t)&bsp);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__ar_bspstore, (uint64_t)8, (uint64_t)&info->bspstore);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__cfm, (uint64_t)8, (uint64_t)&cfm);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+ status = ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ (uint64_t)__ar_ec, (uint64_t)8, (uint64_t)&ec);
+ if (status != 0)
+ return UWX_TT_ERR_TTRACE;
+
+ cfm |= ec << 52;
+
+ if (reason != 0)
+ bsp = uwx_add_to_bsp(bsp, -((unsigned int)cfm & 0x7f));
+
+ return uwx_init_context(env, ip, sp, bsp, cfm);
+}
+
+int uwx_ttrace_init_from_sigcontext(
+ struct uwx_env *env,
+ struct uwx_ttrace_info *info,
+ uint64_t ucontext)
+{
+ int status;
+ uint16_t reason;
+ uint64_t ip;
+ uint64_t sp;
+ uint64_t bsp;
+ uint64_t cfm;
+ unsigned int nat;
+ uint64_t ec;
+
+ info->have_ucontext = 1;
+ uwx_ttrace_memcpy(&info->ucontext,
+ ucontext,
+ sizeof(__uc_misc_t),
+ info->pid);
+ uwx_ttrace_memcpy(&info->ucontext.__uc_mcontext,
+ (uint64_t) &((ucontext_t *)ucontext)->__uc_mcontext,
+ sizeof(mcontext_t),
+ info->pid);
+ status = __uc_get_reason(&info->ucontext, &reason);
+ status = __uc_get_ip(&info->ucontext, &ip);
+ status = __uc_get_grs(&info->ucontext, 12, 1, &sp, &nat);
+ status = __uc_get_ar(&info->ucontext, 17, &bsp);
+ status = __uc_get_ar(&info->ucontext, 18, &info->bspstore);
+ status = __uc_get_ar(&info->ucontext, 66, &ec);
+ status = __uc_get_cfm(&info->ucontext, &cfm);
+ cfm |= ec << 52;
+ if (reason != 0)
+ bsp = uwx_add_to_bsp(bsp, -((unsigned int)cfm & 0x7f));
+ uwx_init_context(env, ip, sp, bsp, cfm);
+ return UWX_OK;
+}
+
+int uwx_ttrace_do_context_frame(
+ struct uwx_env *env,
+ struct uwx_ttrace_info *info)
+{
+ int abi_context;
+ int status;
+ uint64_t ucontext;
+
+ abi_context = uwx_get_abi_context_code(env);
+ if (abi_context != 0x0101) /* abi = HP-UX, context = 1 */
+ return UWX_TT_ERR_BADABICONTEXT;
+ status = uwx_get_reg(env, UWX_REG_GR(32), &ucontext);
+ if (status != 0)
+ return status;
+ return uwx_ttrace_init_from_sigcontext(env, info, ucontext);
+}
+
+int uwx_ttrace_copyin(
+ int request,
+ char *loc,
+ uint64_t rem,
+ int len,
+ intptr_t tok)
+{
+ int status;
+ int regid;
+ unsigned int nat;
+ struct uwx_ttrace_info *info = (struct uwx_ttrace_info *) tok;
+ unsigned long *wp;
+ uint64_t *dp;
+ int ttreg;
+
+ dp = (uint64_t *) loc;
+
+ if (request == UWX_COPYIN_UINFO) {
+ if (len == 4) {
+ status = ttrace(TT_PROC_RDTEXT, info->pid,
+ 0, rem, 4, (uint64_t)loc);
+ wp = (unsigned long *) loc;
+ TRACE_SELF_COPYIN4(rem, len, wp)
+ }
+ else if (len == 8) {
+ status = ttrace(TT_PROC_RDTEXT, info->pid,
+ 0, rem, 8, (uint64_t)loc);
+ TRACE_SELF_COPYIN4(rem, len, dp)
+ }
+ else
+ return 0;
+ }
+ else if (request == UWX_COPYIN_MSTACK && len == 8) {
+ status = ttrace(TT_PROC_RDDATA, info->pid, 0, rem, 8, (uint64_t)loc);
+ TRACE_SELF_COPYIN4(rem, len, dp)
+ }
+ else if (request == UWX_COPYIN_RSTACK && len == 8) {
+ if (info->have_ucontext == 0 || rem < info->bspstore) {
+ status = ttrace(TT_PROC_RDDATA, info->pid, 0, rem, 8, (uint64_t)loc);
+ TRACE_SELF_COPYIN4(rem, len, dp)
+ }
+ else {
+ status = __uc_get_rsebs(&info->ucontext, (uint64_t *)rem, 1, dp);
+ if (status != 0)
+ return 0;
+ }
+ }
+ else if (request == UWX_COPYIN_REG && len == 8) {
+ regid = (int)rem;
+ if (info->have_ucontext) {
+ if (regid < UWX_REG_GR(0)) {
+ switch (regid) {
+ case UWX_REG_PFS:
+ status = __uc_get_ar(&info->ucontext, 64, dp);
+ break;
+ case UWX_REG_PREDS:
+ status = __uc_get_prs(&info->ucontext, dp);
+ break;
+ case UWX_REG_RNAT:
+ status = __uc_get_ar(&info->ucontext, 19, dp);
+ break;
+ case UWX_REG_UNAT:
+ status = __uc_get_ar(&info->ucontext, 36, dp);
+ break;
+ case UWX_REG_FPSR:
+ status = __uc_get_ar(&info->ucontext, 40, dp);
+ break;
+ case UWX_REG_LC:
+ status = __uc_get_ar(&info->ucontext, 65, dp);
+ break;
+ default:
+ return 0;
+ }
+ }
+ else if (regid >= UWX_REG_GR(1) && regid <= UWX_REG_GR(31)) {
+ status = __uc_get_grs(&info->ucontext,
+ regid - UWX_REG_GR(0), 1, dp, &nat);
+ }
+ else if (regid >= UWX_REG_BR(0) && regid <= UWX_REG_BR(7)) {
+ status = __uc_get_brs(&info->ucontext,
+ regid - UWX_REG_BR(0), 1, dp);
+ }
+ }
+ else {
+ if (regid < UWX_REG_GR(0)) {
+ switch (regid) {
+ case UWX_REG_PFS:
+ ttreg = __ar_pfs;
+ break;
+ case UWX_REG_PREDS:
+ ttreg = __pr;
+ break;
+ case UWX_REG_RNAT:
+ ttreg = __ar_rnat;
+ break;
+ case UWX_REG_UNAT:
+ ttreg = __ar_unat;
+ break;
+ case UWX_REG_FPSR:
+ ttreg = __ar_fpsr;
+ break;
+ case UWX_REG_LC:
+ ttreg = __ar_lc;
+ break;
+ default:
+ return 0;
+ }
+ }
+ else if (regid >= UWX_REG_GR(1) && regid <= UWX_REG_GR(31)) {
+ ttreg = regid - UWX_REG_GR(1) + __r1;
+ }
+ else if (regid >= UWX_REG_BR(0) && regid <= UWX_REG_BR(7)) {
+ ttreg = regid - UWX_REG_BR(0) + __b0;
+ }
+ else
+ return 0;
+ status == ttrace(TT_LWP_RUREGS, info->pid, info->lwpid,
+ ttreg, 8, (uint64_t)loc);
+ }
+ if (status != 0)
+ return 0;
+ }
+ return len;
+}
+
+
+int uwx_ttrace_lookupip(
+ int request,
+ uint64_t ip,
+ intptr_t tok,
+ uint64_t **resultp)
+{
+ struct uwx_ttrace_info *info = (struct uwx_ttrace_info *) tok;
+ UINT64 handle;
+ struct load_module_desc desc;
+ uint64_t *unwind_base;
+ uint64_t *rvec;
+ int i;
+
+ if (request == UWX_LKUP_LOOKUP) {
+ TRACE_SELF_LOOKUP(ip)
+ handle = dlmodinfo((unsigned long) ip, &desc, sizeof(desc),
+ uwx_ttrace_memcpy, info->pid, info->load_map);
+ if (handle == 0)
+ return UWX_LKUP_ERR;
+ unwind_base = (uint64_t *) desc.unwind_base;
+ TRACE_SELF_LOOKUP_DESC(desc.text_base, unwind_base)
+ i = 0;
+ rvec = info->rvec;
+ rvec[i++] = UWX_KEY_TBASE;
+ rvec[i++] = desc.text_base;
+ rvec[i++] = UWX_KEY_UFLAGS;
+ rvec[i++] = unwind_base[0];
+ rvec[i++] = UWX_KEY_USTART;
+ rvec[i++] = desc.text_base + unwind_base[1];
+ rvec[i++] = UWX_KEY_UEND;
+ rvec[i++] = desc.text_base + unwind_base[2];
+ rvec[i++] = 0;
+ rvec[i++] = 0;
+ *resultp = rvec;
+ return UWX_LKUP_UTABLE;
+ }
+ else if (request == UWX_LKUP_FREE) {
+ return 0;
+ }
+}
OpenPOWER on IntegriCloud