OpenSolaris Launch

1 files changed, 151 insertions, 0 deletions

diff --git a/usr/src/lib/libtnfctl/prb_lmap.c b/usr/src/lib/libtnfctl/prb_lmap.c
new file mode 100644
index 0000000000..246099d7e9
--- /dev/null
+++ b/usr/src/lib/libtnfctl/prb_lmap.c
@@ -0,0 +1,151 @@
+/*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
+ * or http://www.opensolaris.org/os/licensing.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
+ * If applicable, add the following below this CDDL HEADER, with the
+ * fields enclosed by brackets "[]" replaced with your own identifying
+ * information: Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ */
+/*
+ * Copyright (c) 1994, by Sun Microsytems, Inc.
+ */
+
+#pragma ident	"%Z%%M%	%I%	%E% SMI"
+
+/*
+ * Interfaces that deal with loadobjects (shared objects) in target
+ */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <errno.h>
+#include <string.h>
+#include <link.h>
+#include <unistd.h>
+#include <sys/procfs.h>
+
+#include "tnfctl.h"
+#include "prb_proc_int.h"
+#include "dbg.h"
+
+/*
+ * iterate over all loadobjects calling the callback function "obj_func"
+ * for every loadobject with information about the loadobject.
+ */
+prb_status_t
+prb_loadobj_iter(prb_proc_ctl_t *proc_p, prb_loadobj_f *obj_func, void *cd)
+{
+	prb_status_t	prbstat;
+	Elf3264_Dyn	dentry;
+	struct r_debug	r_dbg;
+	uintptr_t	lmapaddr;
+	struct link_map lmap;
+	prb_loadobj_t	loadobj;
+	int		retval = 0;
+
+	DBG_TNF_PROBE_0(prb_loadobj_iter_start, "libtnfctl",
+			"start prb_loadobj_iter; sunw%verbosity 1");
+
+	if (proc_p->dbgaddr == 0) {
+		DBG((void) fprintf(stderr,
+			"prb_loadobj_iter: dbgaddr not set\n"));
+		return (PRB_STATUS_BADARG);
+	}
+
+	prbstat = prb_proc_read(proc_p, proc_p->dbgaddr, &dentry,
+				sizeof (dentry));
+	if (prbstat || !dentry.d_un.d_ptr) {
+		DBG((void) fprintf(stderr,
+			"prb_lmap_update: error in d_un.d_ptr\n"));
+		return (prbstat);
+	}
+	/* read in the debug struct that it points to */
+	prbstat = prb_proc_read(proc_p, dentry.d_un.d_ptr,
+		&r_dbg, sizeof (r_dbg));
+	if (prbstat)
+		return (prbstat);
+
+	DBG_TNF_PROBE_1(prb_loadobj_iter_1, "libtnfctl", "sunw%verbosity 1",
+		tnf_string, link_map_state,
+		(r_dbg.r_state == RT_CONSISTENT) ? "RT_CONSISTENT" :
+			(r_dbg.r_state == RT_ADD) ? "RT_ADD" : "RT_DELETE");
+
+	/* if the link map is not consistent, bail now */
+	if (r_dbg.r_state != RT_CONSISTENT)
+		return (PRB_STATUS_BADLMAPSTATE);
+
+	lmap.l_next = NULL;			/* makes lint happy */
+
+	for (lmapaddr = (uintptr_t) r_dbg.r_map; lmapaddr;
+		lmapaddr = (uintptr_t) lmap.l_next) {
+
+		prbstat = prb_proc_read(proc_p, lmapaddr, &lmap, sizeof (lmap));
+		if (prbstat)
+			return (prbstat);
+
+		loadobj.text_base = lmap.l_addr;
+		loadobj.data_base = lmap.l_addr;
+		loadobj.objname = NULL;
+		/*
+		 * client of this interface should deal with -1 for objfd,
+		 * so no error checking is needed on this ioctl
+		 */
+		loadobj.objfd = ioctl(proc_p->procfd, PIOCOPENM, &lmap.l_addr);
+
+		(void) prb_proc_readstr(proc_p, (uintptr_t) lmap.l_name,
+						&loadobj.objname);
+		retval = obj_func(proc_p, &loadobj, cd);
+		if (loadobj.objname)
+			free((char *)loadobj.objname);
+		if (loadobj.objfd != -1)
+			close(loadobj.objfd);
+		/* check for error */
+		if (retval == 1)
+			return (PRB_STATUS_BADARG);
+	}
+
+	DBG_TNF_PROBE_0(prb_loadobj_iter_end, "libtnfctl",
+			"end prb_loadobj_iter; sunw%verbosity 1");
+	return (PRB_STATUS_OK);
+}
+
+/*
+ * Return a fd for the main executable and also the address of where
+ * it was mapped.
+ */
+prb_status_t
+prb_mainobj_get(prb_proc_ctl_t *proc_p, int *objfd, uintptr_t *baseaddr)
+{
+	int		procfd;
+	int		retfd;
+
+
+	procfd = proc_p->procfd;
+again:
+	retfd = ioctl(procfd, PIOCOPENM, 0);
+	if (retfd < 0) {
+		if (errno == EINTR)
+			goto again;
+		DBG((void) fprintf(stderr,
+			"prb_mainobj_get: PIOCOPENM failed: %s\n",
+			strerror(errno)));
+		return (prb_status_map(errno));
+	}
+	*objfd = retfd;
+	*baseaddr = 0;
+
+	return (PRB_STATUS_OK);
+}