usr/src/lib/libtnfctl/prb_lmap.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright (c) 1994, by Sun Microsytems, Inc.
  24  */
  25
  26 #pragma ident   "%Z%%M% %I%     %E% SMI"
  27
  28 /*
  29  * Interfaces that deal with loadobjects (shared objects) in target
  30  */
  31
  32 #include <stdlib.h>
  33 #include <stdio.h>
  34 #include <errno.h>
  35 #include <string.h>
  36 #include <link.h>
  37 #include <unistd.h>
  38 #include <sys/procfs.h>
  39
  40 #include "tnfctl.h"
  41 #include "prb_proc_int.h"
  42 #include "dbg.h"
  43
  44 /*
  45  * iterate over all loadobjects calling the callback function "obj_func"
  46  * for every loadobject with information about the loadobject.
  47  */
  48 prb_status_t
  49 prb_loadobj_iter(prb_proc_ctl_t *proc_p, prb_loadobj_f *obj_func, void *cd)
  50 {
  51         prb_status_t    prbstat;
  52         Elf3264_Dyn     dentry;
  53         struct r_debug  r_dbg;
  54         uintptr_t       lmapaddr;
  55         struct link_map lmap;
  56         prb_loadobj_t   loadobj;
  57         int             retval = 0;
  58
  59         DBG_TNF_PROBE_0(prb_loadobj_iter_start, "libtnfctl",
  60                         "start prb_loadobj_iter; sunw%verbosity 1");
  61
  62         if (proc_p->dbgaddr == 0) {
  63                 DBG((void) fprintf(stderr,
  64                         "prb_loadobj_iter: dbgaddr not set\n"));
  65                 return (PRB_STATUS_BADARG);
  66         }
  67
  68         prbstat = prb_proc_read(proc_p, proc_p->dbgaddr, &dentry,
  69                                 sizeof (dentry));
  70         if (prbstat || !dentry.d_un.d_ptr) {
  71                 DBG((void) fprintf(stderr,
  72                         "prb_lmap_update: error in d_un.d_ptr\n"));
  73                 return (prbstat);
  74         }
  75         /* read in the debug struct that it points to */
  76         prbstat = prb_proc_read(proc_p, dentry.d_un.d_ptr,
  77                 &r_dbg, sizeof (r_dbg));
  78         if (prbstat)
  79                 return (prbstat);
  80
  81         DBG_TNF_PROBE_1(prb_loadobj_iter_1, "libtnfctl", "sunw%verbosity 1",
  82                 tnf_string, link_map_state,
  83                 (r_dbg.r_state == RT_CONSISTENT) ? "RT_CONSISTENT" :
  84                         (r_dbg.r_state == RT_ADD) ? "RT_ADD" : "RT_DELETE");
  85
  86         /* if the link map is not consistent, bail now */
  87         if (r_dbg.r_state != RT_CONSISTENT)
  88                 return (PRB_STATUS_BADLMAPSTATE);
  89
  90         lmap.l_next = NULL;                     /* makes lint happy */
  91
  92         for (lmapaddr = (uintptr_t) r_dbg.r_map; lmapaddr;
  93                 lmapaddr = (uintptr_t) lmap.l_next) {
  94
  95                 prbstat = prb_proc_read(proc_p, lmapaddr, &lmap, sizeof (lmap));
  96                 if (prbstat)
  97                         return (prbstat);
  98
  99                 loadobj.text_base = lmap.l_addr;
 100                 loadobj.data_base = lmap.l_addr;
 101                 loadobj.objname = NULL;
 102                 /*
 103                  * client of this interface should deal with -1 for objfd,
 104                  * so no error checking is needed on this ioctl
 105                  */
 106                 loadobj.objfd = ioctl(proc_p->procfd, PIOCOPENM, &lmap.l_addr);
 107
 108                 (void) prb_proc_readstr(proc_p, (uintptr_t) lmap.l_name,
 109                                                 &loadobj.objname);
 110                 retval = obj_func(proc_p, &loadobj, cd);
 111                 if (loadobj.objname)
 112                         free((char *)loadobj.objname);
 113                 if (loadobj.objfd != -1)
 114                         close(loadobj.objfd);
 115                 /* check for error */
 116                 if (retval == 1)
 117                         return (PRB_STATUS_BADARG);
 118         }
 119
 120         DBG_TNF_PROBE_0(prb_loadobj_iter_end, "libtnfctl",
 121                         "end prb_loadobj_iter; sunw%verbosity 1");
 122         return (PRB_STATUS_OK);
 123 }
 124
 125 /*
 126  * Return a fd for the main executable and also the address of where
 127  * it was mapped.
 128  */
 129 prb_status_t
 130 prb_mainobj_get(prb_proc_ctl_t *proc_p, int *objfd, uintptr_t *baseaddr)
 131 {
 132         int             procfd;
 133         int             retfd;
 134
 135
 136         procfd = proc_p->procfd;
 137 again:
 138         retfd = ioctl(procfd, PIOCOPENM, 0);
 139         if (retfd < 0) {
 140                 if (errno == EINTR)
 141                         goto again;
 142                 DBG((void) fprintf(stderr,
 143                         "prb_mainobj_get: PIOCOPENM failed: %s\n",
 144                         strerror(errno)));
 145                 return (prb_status_map(errno));
 146         }
 147         *objfd = retfd;
 148         *baseaddr = 0;
 149
 150         return (PRB_STATUS_OK);
 151 }