added kgmon, from net-2. should work fine, because kernel does profiling
support correctly of config'd w/"-p"
This commit is contained in:
cgd
parent
d7743f6ac4
commit
36adb5cb3d
6
usr.sbin/kgmon/Makefile
Normal file
6
usr.sbin/kgmon/Makefile
Normal file
@ -0,0 +1,6 @@
|
||||
# @(#)Makefile 5.3 (Berkeley) 5/11/90
|
||||
|
||||
PROG= kgmon
|
||||
MAN8= kgmon.0
|
||||
|
||||
.include <bsd.prog.mk>
|
||||
122
usr.sbin/kgmon/kgmon.8
Normal file
122
usr.sbin/kgmon/kgmon.8
Normal file
@ -0,0 +1,122 @@
|
||||
.\" Copyright (c) 1983, 1991 The Regents of the University of California.
|
||||
.\" All rights reserved.
|
||||
.\"
|
||||
.\" Redistribution and use in source and binary forms, with or without
|
||||
.\" modification, are permitted provided that the following conditions
|
||||
.\" are met:
|
||||
.\" 1. Redistributions of source code must retain the above copyright
|
||||
.\" notice, this list of conditions and the following disclaimer.
|
||||
.\" 2. Redistributions in binary form must reproduce the above copyright
|
||||
.\" notice, this list of conditions and the following disclaimer in the
|
||||
.\" documentation and/or other materials provided with the distribution.
|
||||
.\" 3. All advertising materials mentioning features or use of this software
|
||||
.\" must display the following acknowledgement:
|
||||
.\" This product includes software developed by the University of
|
||||
.\" California, Berkeley and its contributors.
|
||||
.\" 4. Neither the name of the University nor the names of its contributors
|
||||
.\" may be used to endorse or promote products derived from this software
|
||||
.\" without specific prior written permission.
|
||||
.\"
|
||||
.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
||||
.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
.\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
||||
.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
.\" SUCH DAMAGE.
|
||||
.\"
|
||||
.\" @(#)kgmon.8 6.5 (Berkeley) 6/6/91
|
||||
.\"
|
||||
.Dd June 6, 1991
|
||||
.Dt KGMON 8
|
||||
.Os BSD 4.2
|
||||
.Sh NAME
|
||||
.Nm kgmon
|
||||
.Nd generate a dump of the operating system's profile buffers
|
||||
.Sh SYNOPSIS
|
||||
.Nm kgmon
|
||||
.Op Fl bhpr
|
||||
.Op Fl M core
|
||||
.Op Fl N system
|
||||
.Sh DESCRIPTION
|
||||
.Nm Kgmon
|
||||
is a tool used when profiling the operating system.
|
||||
When no arguments are supplied,
|
||||
.Nm kgmon
|
||||
indicates the state of operating system profiling as running,
|
||||
off, or not configured.
|
||||
(see
|
||||
.Xr config 8 )
|
||||
If the
|
||||
.Fl p
|
||||
flag is specified,
|
||||
.Nm kgmon
|
||||
extracts profile data from the operating system and produces a
|
||||
.Pa gmon.out
|
||||
file suitable for later analysis by
|
||||
.Xr gprof 1 .
|
||||
.Pp
|
||||
The options are as follows:
|
||||
.Bl -tag -width Ds
|
||||
.It Fl b
|
||||
Resume the collection of profile data.
|
||||
.It Fl h
|
||||
Stop the collection of profile data.
|
||||
.It Fl p
|
||||
Dump the contents of the profile buffers into a
|
||||
.Pa gmon.out
|
||||
file.
|
||||
.It Fl r
|
||||
Reset all the profile buffers.
|
||||
If the
|
||||
.Fl p
|
||||
flag is also specified, the
|
||||
.Pa gmon.out
|
||||
file is generated before the buffers are reset.
|
||||
.It Fl M
|
||||
Extract values associated with the name list from the specified core
|
||||
instead of the default ``/dev/kmem''.
|
||||
.It Fl N
|
||||
Extract the name list from the specified system instead of the
|
||||
default ``/vmunix''.
|
||||
.El
|
||||
.Pp
|
||||
If neither
|
||||
.Fl b
|
||||
nor
|
||||
.Fl h
|
||||
is specified, the state of profiling collection remains unchanged.
|
||||
For example, if the
|
||||
.Fl p
|
||||
flag is specified and profile data is being collected,
|
||||
profiling will be momentarily suspended,
|
||||
the operating system profile buffers will be dumped,
|
||||
and profiling will be immediately resumed.
|
||||
.Sh FILES
|
||||
.Bl -tag -width /dev/kmemx -compact
|
||||
.It Pa /vmunix
|
||||
the default system
|
||||
.It Pa /dev/kmem
|
||||
the default memory
|
||||
.El
|
||||
.Sh SEE ALSO
|
||||
.Xr gprof 1 ,
|
||||
.Xr config 8
|
||||
.Sh DIAGNOSTICS
|
||||
Users with only read permission on
|
||||
.Pa /dev/kmem
|
||||
cannot change the state
|
||||
of profiling collection.
|
||||
They can get a
|
||||
.Pa gmon.out
|
||||
file with the warning that the data may be
|
||||
inconsistent if profiling is in progress.
|
||||
.Sh HISTORY
|
||||
The
|
||||
.Nm
|
||||
command appeared in
|
||||
.Bx 4.2 .
|
||||
362
usr.sbin/kgmon/kgmon.c
Normal file
362
usr.sbin/kgmon/kgmon.c
Normal file
@ -0,0 +1,362 @@
|
||||
/*
|
||||
* Copyright (c) 1983 The Regents of the University of California.
|
||||
* All rights reserved.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* 3. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by the University of
|
||||
* California, Berkeley and its contributors.
|
||||
* 4. Neither the name of the University nor the names of its contributors
|
||||
* may be used to endorse or promote products derived from this software
|
||||
* without specific prior written permission.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
* SUCH DAMAGE.
|
||||
*/
|
||||
|
||||
#ifndef lint
|
||||
char copyright[] =
|
||||
"@(#) Copyright (c) 1983 The Regents of the University of California.\n\
|
||||
All rights reserved.\n";
|
||||
#endif /* not lint */
|
||||
|
||||
#ifndef lint
|
||||
static char sccsid[] = "@(#)kgmon.c 5.12 (Berkeley) 7/1/91";
|
||||
#endif /* not lint */
|
||||
|
||||
#include <sys/param.h>
|
||||
#if BSD >= 199103
|
||||
#define NEWVM
|
||||
#endif
|
||||
#include <sys/file.h>
|
||||
#ifndef NEWVM
|
||||
#include <machine/pte.h>
|
||||
#include <sys/vm.h>
|
||||
#endif
|
||||
#include <sys/gprof.h>
|
||||
#include <stdio.h>
|
||||
#include <nlist.h>
|
||||
#include <ctype.h>
|
||||
#include <paths.h>
|
||||
|
||||
#define PROFILING_ON 0
|
||||
#define PROFILING_OFF 3
|
||||
|
||||
u_long s_textsize;
|
||||
off_t sbuf, klseek(), lseek();
|
||||
int ssiz;
|
||||
|
||||
struct nlist nl[] = {
|
||||
#define N_SYSMAP 0
|
||||
{ "_Sysmap" },
|
||||
#define N_SYSSIZE 1
|
||||
{ "_Syssize" },
|
||||
#define N_FROMS 2
|
||||
{ "_froms" },
|
||||
#define N_PROFILING 3
|
||||
{ "_profiling" },
|
||||
#define N_S_LOWPC 4
|
||||
{ "_s_lowpc" },
|
||||
#define N_S_TEXTSIZE 5
|
||||
{ "_s_textsize" },
|
||||
#define N_SBUF 6
|
||||
{ "_sbuf" },
|
||||
#define N_SSIZ 7
|
||||
{ "_ssiz" },
|
||||
#define N_TOS 8
|
||||
{ "_tos" },
|
||||
0,
|
||||
};
|
||||
|
||||
struct pte *Sysmap;
|
||||
|
||||
int kmem;
|
||||
int bflag, hflag, kflag, rflag, pflag;
|
||||
int debug = 0;
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
extern char *optarg;
|
||||
extern int optind;
|
||||
int ch, mode, disp, openmode;
|
||||
char *system, *kmemf, *malloc();
|
||||
|
||||
kmemf = _PATH_KMEM;
|
||||
system = _PATH_UNIX;
|
||||
while ((ch = getopt(argc, argv, "M:N:bhpr")) != EOF)
|
||||
switch((char)ch) {
|
||||
case 'M':
|
||||
kmemf = optarg;
|
||||
kflag = 1;
|
||||
break;
|
||||
case 'N':
|
||||
system = optarg;
|
||||
break;
|
||||
case 'b':
|
||||
bflag = 1;
|
||||
break;
|
||||
case 'h':
|
||||
hflag = 1;
|
||||
break;
|
||||
case 'p':
|
||||
pflag = 1;
|
||||
break;
|
||||
case 'r':
|
||||
rflag = 1;
|
||||
break;
|
||||
default:
|
||||
(void)fprintf(stderr,
|
||||
"usage: kgmon [-bhrp] [-M core] [-N system]\n");
|
||||
exit(1);
|
||||
}
|
||||
argc -= optind;
|
||||
argv += optind;
|
||||
|
||||
#define BACKWARD_COMPATIBILITY
|
||||
#ifdef BACKWARD_COMPATIBILITY
|
||||
if (*argv) {
|
||||
system = *argv;
|
||||
if (*++argv) {
|
||||
kmemf = *argv;
|
||||
++kflag;
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
if (nlist(system, nl) < 0 || nl[0].n_type == 0) {
|
||||
(void)fprintf(stderr, "kgmon: %s: no namelist\n", system);
|
||||
exit(2);
|
||||
}
|
||||
if (!nl[N_PROFILING].n_value) {
|
||||
(void)fprintf(stderr,
|
||||
"kgmon: profiling: not defined in kernel.\n");
|
||||
exit(10);
|
||||
}
|
||||
|
||||
openmode = (bflag || hflag || pflag || rflag) ? O_RDWR : O_RDONLY;
|
||||
kmem = open(kmemf, openmode);
|
||||
if (kmem < 0) {
|
||||
openmode = O_RDONLY;
|
||||
kmem = open(kmemf, openmode);
|
||||
if (kmem < 0) {
|
||||
perror(kmemf);
|
||||
exit(3);
|
||||
}
|
||||
(void)fprintf(stderr, "%s opened read-only\n", kmemf);
|
||||
if (rflag)
|
||||
(void)fprintf(stderr, "-r supressed\n");
|
||||
if (bflag)
|
||||
(void)fprintf(stderr, "-b supressed\n");
|
||||
if (hflag)
|
||||
(void)fprintf(stderr, "-h supressed\n");
|
||||
rflag = bflag = hflag = 0;
|
||||
}
|
||||
if (kflag) {
|
||||
#ifdef NEWVM
|
||||
(void)fprintf(stderr,
|
||||
"kgmon: can't do core files yet\n");
|
||||
exit(1);
|
||||
#else
|
||||
off_t off;
|
||||
|
||||
Sysmap = (struct pte *)
|
||||
malloc((u_int)(nl[N_SYSSIZE].n_value * sizeof(struct pte)));
|
||||
if (!Sysmap) {
|
||||
(void)fprintf(stderr,
|
||||
"kgmon: can't get memory for Sysmap.\n");
|
||||
exit(1);
|
||||
}
|
||||
off = nl[N_SYSMAP].n_value & ~KERNBASE;
|
||||
(void)lseek(kmem, off, L_SET);
|
||||
(void)read(kmem, (char *)Sysmap,
|
||||
(int)(nl[N_SYSSIZE].n_value * sizeof(struct pte)));
|
||||
#endif
|
||||
}
|
||||
mode = kfetch(N_PROFILING);
|
||||
if (hflag)
|
||||
disp = PROFILING_OFF;
|
||||
else if (bflag)
|
||||
disp = PROFILING_ON;
|
||||
else
|
||||
disp = mode;
|
||||
if (pflag) {
|
||||
if (openmode == O_RDONLY && mode == PROFILING_ON)
|
||||
(void)fprintf(stderr, "data may be inconsistent\n");
|
||||
dumpstate();
|
||||
}
|
||||
if (rflag)
|
||||
resetstate();
|
||||
turnonoff(disp);
|
||||
(void)fprintf(stdout,
|
||||
"kernel profiling is %s.\n", disp ? "off" : "running");
|
||||
exit(0);
|
||||
}
|
||||
|
||||
dumpstate()
|
||||
{
|
||||
extern int errno;
|
||||
struct rawarc rawarc;
|
||||
struct tostruct *tos;
|
||||
u_long frompc;
|
||||
off_t kfroms, ktos;
|
||||
u_short *froms; /* froms is a bunch of u_shorts indexing tos */
|
||||
int i, fd, fromindex, endfrom, fromssize, tossize, toindex;
|
||||
char buf[BUFSIZ], *s_lowpc, *malloc(), *strerror();
|
||||
|
||||
turnonoff(PROFILING_OFF);
|
||||
fd = creat("gmon.out", 0666);
|
||||
if (fd < 0) {
|
||||
perror("gmon.out");
|
||||
return;
|
||||
}
|
||||
ssiz = kfetch(N_SSIZ);
|
||||
sbuf = kfetch(N_SBUF);
|
||||
(void)klseek(kmem, (off_t)sbuf, L_SET);
|
||||
for (i = ssiz; i > 0; i -= BUFSIZ) {
|
||||
read(kmem, buf, i < BUFSIZ ? i : BUFSIZ);
|
||||
write(fd, buf, i < BUFSIZ ? i : BUFSIZ);
|
||||
}
|
||||
s_textsize = kfetch(N_S_TEXTSIZE);
|
||||
fromssize = s_textsize / HASHFRACTION;
|
||||
froms = (u_short *)malloc((u_int)fromssize);
|
||||
kfroms = kfetch(N_FROMS);
|
||||
(void)klseek(kmem, kfroms, L_SET);
|
||||
i = read(kmem, ((char *)(froms)), fromssize);
|
||||
if (i != fromssize) {
|
||||
(void)fprintf(stderr, "read kmem: request %d, got %d: %s",
|
||||
fromssize, i, strerror(errno));
|
||||
exit(5);
|
||||
}
|
||||
tossize = (s_textsize * ARCDENSITY / 100) * sizeof(struct tostruct);
|
||||
tos = (struct tostruct *)malloc((u_int)tossize);
|
||||
ktos = kfetch(N_TOS);
|
||||
(void)klseek(kmem, ktos, L_SET);
|
||||
i = read(kmem, ((char *)(tos)), tossize);
|
||||
if (i != tossize) {
|
||||
(void)fprintf(stderr, "read kmem: request %d, got %d: %s",
|
||||
tossize, i, strerror(errno));
|
||||
exit(6);
|
||||
}
|
||||
s_lowpc = (char *)kfetch(N_S_LOWPC);
|
||||
if (debug)
|
||||
(void)fprintf(stderr, "s_lowpc 0x%x, s_textsize 0x%x\n",
|
||||
s_lowpc, s_textsize);
|
||||
endfrom = fromssize / sizeof(*froms);
|
||||
for (fromindex = 0; fromindex < endfrom; fromindex++) {
|
||||
if (froms[fromindex] == 0)
|
||||
continue;
|
||||
frompc = (u_long)s_lowpc +
|
||||
(fromindex * HASHFRACTION * sizeof(*froms));
|
||||
for (toindex = froms[fromindex]; toindex != 0;
|
||||
toindex = tos[toindex].link) {
|
||||
if (debug)
|
||||
(void)fprintf(stderr,
|
||||
"[mcleanup] frompc 0x%x selfpc 0x%x count %d\n" ,
|
||||
frompc, tos[toindex].selfpc, tos[toindex].count);
|
||||
rawarc.raw_frompc = frompc;
|
||||
rawarc.raw_selfpc = (u_long)tos[toindex].selfpc;
|
||||
rawarc.raw_count = tos[toindex].count;
|
||||
write(fd, (char *)&rawarc, sizeof (rawarc));
|
||||
}
|
||||
}
|
||||
close(fd);
|
||||
}
|
||||
|
||||
resetstate()
|
||||
{
|
||||
off_t kfroms, ktos;
|
||||
int i, fromssize, tossize;
|
||||
char buf[BUFSIZ];
|
||||
|
||||
turnonoff(PROFILING_OFF);
|
||||
bzero(buf, BUFSIZ);
|
||||
ssiz = kfetch(N_SSIZ);
|
||||
sbuf = kfetch(N_SBUF);
|
||||
ssiz -= sizeof(struct phdr);
|
||||
sbuf += sizeof(struct phdr);
|
||||
(void)klseek(kmem, (off_t)sbuf, L_SET);
|
||||
for (i = ssiz; i > 0; i -= BUFSIZ)
|
||||
if (write(kmem, buf, i < BUFSIZ ? i : BUFSIZ) < 0) {
|
||||
perror("sbuf write");
|
||||
exit(7);
|
||||
}
|
||||
s_textsize = kfetch(N_S_TEXTSIZE);
|
||||
fromssize = s_textsize / HASHFRACTION;
|
||||
kfroms = kfetch(N_FROMS);
|
||||
(void)klseek(kmem, kfroms, L_SET);
|
||||
for (i = fromssize; i > 0; i -= BUFSIZ)
|
||||
if (write(kmem, buf, i < BUFSIZ ? i : BUFSIZ) < 0) {
|
||||
perror("kforms write");
|
||||
exit(8);
|
||||
}
|
||||
tossize = (s_textsize * ARCDENSITY / 100) * sizeof(struct tostruct);
|
||||
ktos = kfetch(N_TOS);
|
||||
(void)klseek(kmem, ktos, L_SET);
|
||||
for (i = tossize; i > 0; i -= BUFSIZ)
|
||||
if (write(kmem, buf, i < BUFSIZ ? i : BUFSIZ) < 0) {
|
||||
perror("ktos write");
|
||||
exit(9);
|
||||
}
|
||||
}
|
||||
|
||||
turnonoff(onoff)
|
||||
int onoff;
|
||||
{
|
||||
(void)klseek(kmem, (long)nl[N_PROFILING].n_value, L_SET);
|
||||
(void)write(kmem, (char *)&onoff, sizeof (onoff));
|
||||
}
|
||||
|
||||
kfetch(index)
|
||||
int index;
|
||||
{
|
||||
off_t off;
|
||||
int value;
|
||||
|
||||
if ((off = nl[index].n_value) == 0) {
|
||||
printf("%s: not defined in kernel\n", nl[index].n_name);
|
||||
exit(11);
|
||||
}
|
||||
if (klseek(kmem, off, L_SET) == -1) {
|
||||
perror("lseek");
|
||||
exit(12);
|
||||
}
|
||||
if (read(kmem, (char *)&value, sizeof (value)) != sizeof (value)) {
|
||||
perror("read");
|
||||
exit(13);
|
||||
}
|
||||
return (value);
|
||||
}
|
||||
|
||||
off_t
|
||||
klseek(fd, base, off)
|
||||
int fd, off;
|
||||
off_t base;
|
||||
{
|
||||
|
||||
#ifndef NEWVM
|
||||
if (kflag) { /* get kernel pte */
|
||||
base &= ~KERNBASE;
|
||||
base = ctob(Sysmap[btop(base)].pg_pfnum) + (base & PGOFSET);
|
||||
}
|
||||
#endif
|
||||
return (lseek(fd, base, off));
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user