aboutsummaryrefslogtreecommitdiffstats
path: root/sys/contrib/ia64/libuwx/src/uwx_self-new.c
diff options
context:
space:
mode:
authorMarcel Moolenaar <marcel@FreeBSD.org>2004-05-09 03:06:25 +0000
committerMarcel Moolenaar <marcel@FreeBSD.org>2004-05-09 03:06:25 +0000
commit9cc6463a071ffde74d49edb51551605f0be88f85 (patch)
tree876d2f13254714a1f90d6e95fb08a3d6e5aab7fc /sys/contrib/ia64/libuwx/src/uwx_self-new.c
parentc2b1cc6d020bc7d25ecc746ac6c6fb728aa5570f (diff)
downloadsrc-9cc6463a071ffde74d49edb51551605f0be88f85.tar.gz
src-9cc6463a071ffde74d49edb51551605f0be88f85.zip
Update to BETA 7. Besides C++ support, which is irrelevant to us,vendor/libuwx/BETA7
this version mostly has bugs fixes.
Notes
Notes: svn path=/vendor-sys/libuwx/dist/; revision=129059 svn path=/vendor-sys/libuwx/BETA7/; revision=129061; tag=vendor/libuwx/BETA7
Diffstat (limited to 'sys/contrib/ia64/libuwx/src/uwx_self-new.c')
-rw-r--r--sys/contrib/ia64/libuwx/src/uwx_self-new.c336
1 files changed, 336 insertions, 0 deletions
diff --git a/sys/contrib/ia64/libuwx/src/uwx_self-new.c b/sys/contrib/ia64/libuwx/src/uwx_self-new.c
new file mode 100644
index 000000000000..64c6ac6931d4
--- /dev/null
+++ b/sys/contrib/ia64/libuwx/src/uwx_self-new.c
@@ -0,0 +1,336 @@
+/*
+Copyright (c) 2003 Hewlett-Packard Development Company, L.P.
+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 <stdlib.h>
+#include <crt0.h>
+#include <dlfcn.h>
+#include <sys/uc_access.h>
+
+#include "uwx_env.h"
+#include "uwx_context.h"
+#include "uwx_trace.h"
+#include "uwx_self.h"
+
+#define MODULE_CACHE_SIZE 10
+
+#define UWX_ABI_HPUX_SIGCONTEXT 0x0101 /* abi = HP-UX, context = 1 */
+
+struct uwx_self_module_info {
+ uint64_t text_base;
+ uint64_t text_size;
+ uint64_t *unwind_base;
+ uint64_t last_access;
+ char *name;
+ struct uwx_self_module_info *next;
+};
+
+struct uwx_self_info {
+ struct uwx_env *env;
+ ucontext_t *ucontext;
+ uint64_t bspstore;
+ uint64_t rvec[10];
+ uint64_t sendsig_start;
+ uint64_t sendsig_end;
+ alloc_cb allocate_cb;
+ free_cb free_cb;
+ int trace;
+ struct load_module_desc desc;
+ struct uwx_self_module_info *module_cache;
+};
+
+struct uwx_self_info *uwx_self_init_info(struct uwx_env *env)
+{
+ struct uwx_self_info *info;
+ struct uwx_self_module_info *modules;
+ size_t size;
+
+ size = sizeof(struct uwx_self_info) +
+ MODULE_CACHE_SIZE * sizeof(struct uwx_self_module_info);
+
+ if (env->allocate_cb == 0)
+ info = (struct uwx_self_info *) malloc(size);
+ else
+ info = (struct uwx_self_info *) (*env->allocate_cb)(size);
+ if (info == 0)
+ return 0;
+
+ modules = (struct uwx_self_module_info *) (info + 1);
+
+ info->env = env;
+ info->ucontext = 0;
+ info->bspstore = 0;
+ info->sendsig_start = __load_info->li_sendsig_txt;
+ info->sendsig_end = __load_info->li_sendsig_txt +
+ __load_info->li_sendsig_tsz;
+ info->allocate_cb = env->allocate_cb;
+ info->free_cb = env->free_cb;
+ info->trace = env->trace;
+ info->module_cache = modules;
+
+ for (i = 0; i < MODULE_CACHE_SIZE; i++) {
+ modules[i].text_base = 0;
+ modules[i].text_size = 0;
+ modules[i].unwind_base = 0;
+ modules[i].last_access = 0;
+ modules[i].name = 0;
+ modules[i].next = 0;
+ }
+
+ return info;
+}
+
+int uwx_self_free_info(struct uwx_self_info *info)
+{
+ if (info->free_cb == 0)
+ free((void *)info);
+ else
+ (*info->free_cb)((void *)info);
+ return UWX_OK;
+}
+
+int uwx_self_init_from_sigcontext(
+ struct uwx_env *env,
+ struct uwx_self_info *info,
+ ucontext_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;
+ int adj;
+
+ info->ucontext = ucontext;
+ status = __uc_get_reason(ucontext, &reason);
+ status = __uc_get_ip(ucontext, &ip);
+ status = __uc_get_grs(ucontext, 12, 1, &sp, &nat);
+ status = __uc_get_cfm(ucontext, &cfm);
+#ifdef NEW_UC_GET_AR
+ status = __uc_get_ar_bsp(ucontext, &bsp);
+ status = __uc_get_ar_bspstore(ucontext, &info->bspstore);
+ status = __uc_get_ar_ec(ucontext, &ec);
+#else
+ status = __uc_get_ar(ucontext, 17, &bsp);
+ status = __uc_get_ar(ucontext, 18, &info->bspstore);
+ status = __uc_get_ar(ucontext, 66, &ec);
+#endif
+ /* The returned bsp needs to be adjusted. */
+ /* For interrupt frames, where bsp was advanced by a cover */
+ /* instruction, subtract sof (size of frame). For non-interrupt */
+ /* frames, where bsp was advanced by br.call, subtract sol */
+ /* (size of locals). */
+ if (reason != 0)
+ adj = (unsigned int)cfm & 0x7f; /* interrupt frame */
+ else
+ adj = ((unsigned int)cfm >> 7) & 0x7f; /* non-interrupt frame */
+ bsp = uwx_add_to_bsp(bsp, -adj);
+ cfm |= ec << 52;
+ uwx_init_context(env, ip, sp, bsp, cfm);
+ return UWX_OK;
+}
+
+int uwx_self_do_context_frame(
+ struct uwx_env *env,
+ struct uwx_self_info *info)
+{
+ int abi_context;
+ int status;
+ uint64_t ucontext;
+
+ abi_context = uwx_get_abi_context_code(env);
+ if (abi_context != UWX_ABI_HPUX_SIGCONTEXT)
+ return UWX_SELF_ERR_BADABICONTEXT;
+ status = uwx_get_reg(env, UWX_REG_GR(32), (uint64_t *)&ucontext);
+ if (status != 0)
+ return status;
+ return uwx_self_init_from_sigcontext(env, info, (ucontext_t *)ucontext);
+}
+
+int uwx_self_copyin(
+ int request,
+ char *loc,
+ uint64_t rem,
+ int len,
+ intptr_t tok)
+{
+ int status;
+ int regid;
+ unsigned int nat;
+ struct uwx_self_info *info = (struct uwx_self_info *) tok;
+ unsigned long *wp;
+ uint64_t *dp;
+
+ status = -1;
+
+ dp = (uint64_t *) loc;
+
+ switch (request) {
+ case UWX_COPYIN_UINFO:
+ case UWX_COPYIN_MSTACK:
+ if (len == 4) {
+ wp = (unsigned long *) loc;
+ *wp = *(unsigned long *)rem;
+ TRACE_SELF_COPYIN4(rem, len, wp)
+ status = 0;
+ }
+ else if (len == 8) {
+ *dp = *(uint64_t *)rem;
+ TRACE_SELF_COPYIN8(rem, len, dp)
+ status = 0;
+ }
+ break;
+ case UWX_COPYIN_RSTACK:
+ if (len == 8) {
+ if (info->ucontext == 0 && rem == (info->bspstore | 0x1f8)) {
+ *dp = info->env->context.special[UWX_REG_AR_RNAT];
+ status = 0;
+ }
+ else if (info->ucontext == 0 || rem < info->bspstore) {
+ *dp = *(uint64_t *)rem;
+ TRACE_SELF_COPYIN8(rem, len, dp)
+ status = 0;
+ }
+ else {
+ status = __uc_get_rsebs(info->ucontext,
+ (uint64_t *)rem, 1, dp);
+ }
+ }
+ break;
+ case UWX_COPYIN_REG:
+ regid = (int)rem;
+ if (info->ucontext != 0) {
+ if (len == 8) {
+ if (rem == UWX_REG_PREDS)
+ status = __uc_get_prs(info->ucontext, dp);
+ else if (rem == UWX_REG_AR_PFS)
+ status = __uc_get_ar(info->ucontext, 64, dp);
+ else if (rem == UWX_REG_AR_RNAT)
+ status = __uc_get_ar(info->ucontext, 19, dp);
+ else if (rem == UWX_REG_AR_UNAT)
+ status = __uc_get_ar(info->ucontext, 36, dp);
+ else if (rem == UWX_REG_AR_FPSR)
+ status = __uc_get_ar(info->ucontext, 40, dp);
+ else if (rem == UWX_REG_AR_LC)
+ status = __uc_get_ar(info->ucontext, 65, dp);
+ 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 (len == 16) {
+ if (regid >= UWX_REG_FR(2) && regid <= UWX_REG_FR(127)) {
+ status = __uc_get_frs(info->ucontext,
+ regid - UWX_REG_FR(0), 1, (fp_regval_t *)dp);
+ }
+ }
+ }
+ break;
+ }
+ if (status != 0)
+ return 0;
+ return len;
+}
+
+int uwx_self_find_module(
+ uint64_t ip,
+ struct uwx_self_info *info,
+ uint64_t *text_base,
+ uint64_t **unwind_base)
+{
+ UINT64 handle;
+
+ /* Search our cache for the module containing the IP */
+
+ /* Not in the cache -- call dlmodinfo */
+
+ handle = dlmodinfo(ip, &info->desc, sizeof(info->desc), 0, 0, 0);
+ if (handle == 0)
+ return UWX_ERR_IPNOTFOUND;
+
+ /* Store it in the cache */
+
+ *text_base = info->desc.text_base;
+ *unwind_base = (uint64_t *) info->desc.unwind_base;
+ return UWX_OK;
+}
+
+int uwx_self_lookupip(
+ int request,
+ uint64_t ip,
+ intptr_t tok,
+ uint64_t **resultp)
+{
+ struct uwx_self_info *info = (struct uwx_self_info *) tok;
+ uint64_t text_base;
+ uint64_t *unwind_base;
+ uint64_t *rvec;
+ int i;
+
+ if (request == UWX_LKUP_LOOKUP) {
+ TRACE_SELF_LOOKUP(ip)
+ if (ip >= info->sendsig_start && ip < info->sendsig_end) {
+ i = 0;
+ rvec = info->rvec;
+ rvec[i++] = UWX_KEY_CONTEXT;
+ rvec[i++] = UWX_ABI_HPUX_SIGCONTEXT;
+ rvec[i++] = 0;
+ rvec[i++] = 0;
+ *resultp = rvec;
+ return UWX_LKUP_FDESC;
+ }
+ else {
+ if (uwx_self_find_module(ip, info,
+ &text_base, &unwind_base) != UWX_OK)
+ return UWX_LKUP_ERR;
+ TRACE_SELF_LOOKUP_DESC(text_base, unwind_base)
+ i = 0;
+ rvec = info->rvec;
+ rvec[i++] = UWX_KEY_TBASE;
+ rvec[i++] = text_base;
+ rvec[i++] = UWX_KEY_UFLAGS;
+ rvec[i++] = unwind_base[0];
+ rvec[i++] = UWX_KEY_USTART;
+ rvec[i++] = text_base + unwind_base[1];
+ rvec[i++] = UWX_KEY_UEND;
+ rvec[i++] = 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;
+ }
+ else if (request == UWX_LKUP_SYMBOLS) {
+ return UWX_LKUP_ERR;
+ }
+}