The branch main has been updated by kib:

URL: 
https://cgit.FreeBSD.org/src/commit/?id=2d223ccdaed67ad336474f023a661c300bd0ef38

commit 2d223ccdaed67ad336474f023a661c300bd0ef38
Author:     Konstantin Belousov <[email protected]>
AuthorDate: 2021-04-02 22:00:20 +0000
Commit:     Konstantin Belousov <[email protected]>
CommitDate: 2021-04-03 21:50:28 +0000

    Remove kgmon(8)
    
    Follow-up to the removal of the mcov from kernel.
    
    Noted by:       mckusick
    Reviewed by:    mckusick
    Sponsored by:   The FreeBSD Foundation
    Differential revision:  https://reviews.freebsd.org/D29563
---
 ObsoleteFiles.inc                       |   4 +
 share/man/man4/hwpmc.4                  |  10 +-
 share/man/man7/clocks.7                 |   3 +-
 targets/pseudo/userland/Makefile.depend |   5 +-
 usr.sbin/Makefile.amd64                 |   1 -
 usr.sbin/Makefile.arm                   |   1 -
 usr.sbin/Makefile.i386                  |   1 -
 usr.sbin/kgmon/Makefile                 |  16 -
 usr.sbin/kgmon/Makefile.depend          |  19 --
 usr.sbin/kgmon/kgmon.8                  | 130 --------
 usr.sbin/kgmon/kgmon.c                  | 531 --------------------------------
 11 files changed, 7 insertions(+), 714 deletions(-)

diff --git a/ObsoleteFiles.inc b/ObsoleteFiles.inc
index de5808958c69..3b251eee1457 100644
--- a/ObsoleteFiles.inc
+++ b/ObsoleteFiles.inc
@@ -36,6 +36,10 @@
 #   xargs -n1 | sort | uniq -d;
 # done
 
+# 20210403: remove kgmon(8)
+OLD_FILES+=usr/sbin/kgmon
+OLD_FILES+=usr/share/man/man8/kgmon.8.gz
+
 # 20210401: remove bt(4) man page
 OLD_FILES+=usr/share/man/man4/bt.4.gz
 
diff --git a/share/man/man4/hwpmc.4 b/share/man/man4/hwpmc.4
index 5777cdd4264d..a5b4bcb94707 100644
--- a/share/man/man4/hwpmc.4
+++ b/share/man/man4/hwpmc.4
@@ -28,7 +28,7 @@
 .\"
 .\" $FreeBSD$
 .\"
-.Dd November 2, 2012
+.Dd Apryl 3, 2021
 .Dt HWPMC 4
 .Os
 .Sh NAME
@@ -198,13 +198,6 @@ This modifier is valid only for a PMC being allocated in 
process-private
 mode.
 It signifies that the PMC will track hardware events for its
 target process and the target's current and future descendants.
-.It Dv PMC_F_KGMON
-This modifier is valid only for a PMC being allocated in system-wide
-sampling mode.
-It signifies that the PMC's sampling interrupt is to be used to drive
-kernel profiling via
-.Xr kgmon 8 .
-This functionality is currently unimplemented.
 .It Dv PMC_F_LOG_PROCCSW
 This modifier is valid only for a PMC being allocated in process-private
 mode.
@@ -764,7 +757,6 @@ operation is not being monitored by
 .Xr kenv 1 ,
 .Xr pmc 3 ,
 .Xr pmclog 3 ,
-.Xr kgmon 8 ,
 .Xr kldload 8 ,
 .Xr pmccontrol 8 ,
 .Xr pmcstat 8 ,
diff --git a/share/man/man7/clocks.7 b/share/man/man7/clocks.7
index 692796842ed4..06b41ed551ca 100644
--- a/share/man/man7/clocks.7
+++ b/share/man/man7/clocks.7
@@ -104,8 +104,7 @@ and throwing away information and resolution.
 The profiling clock.
 This is a real clock with frequency 1024.
 It is used mainly by
-.Xr moncontrol 3 ,
-.Xr kgmon 8
+.Xr moncontrol 3
 and
 .Xr gprof 1 .
 Applications should determine its actual frequency using
diff --git a/targets/pseudo/userland/Makefile.depend 
b/targets/pseudo/userland/Makefile.depend
index cde4eadd6eee..6891e9eb32cb 100644
--- a/targets/pseudo/userland/Makefile.depend
+++ b/targets/pseudo/userland/Makefile.depend
@@ -784,7 +784,6 @@ DIRDEPS.amd64= \
        usr.sbin/hyperv/tools \
        usr.sbin/hyperv/tools/kvp \
        usr.sbin/hyperv/tools/vss \
-       usr.sbin/kgmon \
        usr.sbin/lptcontrol \
        usr.sbin/mptable \
        usr.sbin/spkrtest \
@@ -794,8 +793,7 @@ DIRDEPS.amd64= \
 DIRDEPS.arm= \
        sbin/bsdlabel \
        sbin/fdisk \
-       usr.sbin/ofwdump \
-       usr.sbin/kgmon
+       usr.sbin/ofwdump
 
 DIRDEPS.i386= \
        sbin/bsdlabel \
@@ -809,7 +807,6 @@ DIRDEPS.i386= \
        usr.sbin/hyperv/tools \
        usr.sbin/hyperv/tools/kvp \
        usr.sbin/hyperv/tools/vss \
-       usr.sbin/kgmon \
        usr.sbin/lptcontrol \
        usr.sbin/mptable \
        usr.sbin/pnpinfo \
diff --git a/usr.sbin/Makefile.amd64 b/usr.sbin/Makefile.amd64
index 64e5d8678c41..d4d185414f41 100644
--- a/usr.sbin/Makefile.amd64
+++ b/usr.sbin/Makefile.amd64
@@ -21,7 +21,6 @@ SUBDIR+=      cpucontrol
 .if ${MK_HYPERV} != "no"
 SUBDIR+=       hyperv
 .endif
-SUBDIR+=       kgmon
 SUBDIR+=       lptcontrol
 SUBDIR+=       mptable
 SUBDIR+=       spkrtest
diff --git a/usr.sbin/Makefile.arm b/usr.sbin/Makefile.arm
index 84cff4ab3314..8987110dba31 100644
--- a/usr.sbin/Makefile.arm
+++ b/usr.sbin/Makefile.arm
@@ -1,4 +1,3 @@
 # $FreeBSD$
 
-SUBDIR+=       kgmon
 SUBDIR+=       ofwdump
diff --git a/usr.sbin/Makefile.i386 b/usr.sbin/Makefile.i386
index 90a74e05e061..4705fcadb36f 100644
--- a/usr.sbin/Makefile.i386
+++ b/usr.sbin/Makefile.i386
@@ -15,7 +15,6 @@ SUBDIR+=      cpucontrol
 .if ${MK_HYPERV} != "no"
 SUBDIR+=       hyperv
 .endif
-SUBDIR+=       kgmon
 SUBDIR+=       lptcontrol
 SUBDIR+=       mptable
 SUBDIR+=       pnpinfo
diff --git a/usr.sbin/kgmon/Makefile b/usr.sbin/kgmon/Makefile
deleted file mode 100644
index 5f6a2a37950a..000000000000
--- a/usr.sbin/kgmon/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-#      @(#)Makefile    8.1 (Berkeley) 6/6/93
-# $FreeBSD$
-
-PROG=  kgmon
-MAN=   kgmon.8
-WARNS?=        2
-
-# This program may safely be run setuid-root to allow non-root
-# users to start, stop, and reset profiling buffers.
-#
-#BINOWN=root
-#BINMODE=4555
-
-LIBADD=        kvm
-
-.include <bsd.prog.mk>
diff --git a/usr.sbin/kgmon/Makefile.depend b/usr.sbin/kgmon/Makefile.depend
deleted file mode 100644
index 4a0ebeceed6f..000000000000
--- a/usr.sbin/kgmon/Makefile.depend
+++ /dev/null
@@ -1,19 +0,0 @@
-# $FreeBSD$
-# Autogenerated - do NOT edit!
-
-DIRDEPS = \
-       gnu/lib/csu \
-       include \
-       include/xlocale \
-       lib/${CSU_DIR} \
-       lib/libc \
-       lib/libcompiler_rt \
-       lib/libelf \
-       lib/libkvm \
-
-
-.include <dirdeps.mk>
-
-.if ${DEP_RELDIR} == ${_DEP_RELDIR}
-# local dependencies - needed for -jN in clean tree
-.endif
diff --git a/usr.sbin/kgmon/kgmon.8 b/usr.sbin/kgmon/kgmon.8
deleted file mode 100644
index 3a2ff5836f9c..000000000000
--- a/usr.sbin/kgmon/kgmon.8
+++ /dev/null
@@ -1,130 +0,0 @@
-.\" Copyright (c) 1983, 1991, 1993
-.\"    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. 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    8.1 (Berkeley) 6/6/93
-.\" $FreeBSD$
-.\"
-.Dd November 27, 2017
-.Dt KGMON 8
-.Os
-.Sh NAME
-.Nm kgmon
-.Nd generate a dump of the operating system's profile buffers
-.Sh SYNOPSIS
-.Nm
-.Op Fl Bbhpr
-.Op Fl M Ar core
-.Op Fl N Ar system
-.Sh DESCRIPTION
-The
-.Nm
-utility is used when profiling the operating system.
-When no arguments are supplied,
-.Nm
-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
-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 high resolution profile data.
-.It Fl b
-Resume the collection of low resolution 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
-.Pa /dev/kmem .
-.It Fl N
-Extract the name list from the specified system instead of the
-default
-.Pa /boot/kernel/kernel .
-.El
-.Pp
-If neither
-.Fl B
-nor
-.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.
-.Pp
-The profile buffers should be reset when the resolution
-of the profile data is changed.
-.Sh FILES
-.Bl -tag -width /boot/kernel/kernel -compact
-.It Pa /boot/kernel/kernel
-the default system
-.It Pa /dev/kmem
-the default memory
-.El
-.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 SEE ALSO
-.Xr gprof 1 ,
-.Xr config 8 ,
-.Xr pmcstat 8
-.Sh HISTORY
-The
-.Nm
-utility appeared in
-.Bx 4.2 .
diff --git a/usr.sbin/kgmon/kgmon.c b/usr.sbin/kgmon/kgmon.c
deleted file mode 100644
index 17f59cdd9ee2..000000000000
--- a/usr.sbin/kgmon/kgmon.c
+++ /dev/null
@@ -1,531 +0,0 @@
-/*-
- * SPDX-License-Identifier: BSD-3-Clause
- *
- * Copyright (c) 1983, 1992, 1993
- *     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. 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
-static const char copyright[] =
-"@(#) Copyright (c) 1983, 1992, 1993\n\
-       The Regents of the University of California.  All rights reserved.\n";
-#endif /* not lint */
-
-#ifndef lint
-#if 0
-static char sccsid[] = "@(#)kgmon.c    8.1 (Berkeley) 6/6/93";
-#endif
-#endif /* not lint */
-
-#include <sys/cdefs.h>
-__FBSDID("$FreeBSD$");
-
-#include <sys/param.h>
-#include <sys/file.h>
-#include <sys/time.h>
-#include <sys/sysctl.h>
-#include <sys/gmon.h>
-#include <ctype.h>
-#include <err.h>
-#include <errno.h>
-#include <kvm.h>
-#include <limits.h>
-#include <nlist.h>
-#include <paths.h>
-#include <stddef.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-
-struct nlist nl[] = {
-#define        N_GMONPARAM     0
-       { "__gmonparam" },
-#define        N_PROFHZ        1
-       { "_profhz" },
-       { NULL },
-};
-
-struct kvmvars {
-       kvm_t   *kd;
-       struct gmonparam gpm;
-};
-
-int    Bflag, bflag, hflag, kflag, rflag, pflag;
-int    debug = 0;
-int    getprof(struct kvmvars *);
-int    getprofhz(struct kvmvars *);
-void   kern_readonly(int);
-int    openfiles(const char *, char *, struct kvmvars *);
-void   setprof(struct kvmvars *kvp, int state);
-void   dumpstate(struct kvmvars *kvp);
-void   reset(struct kvmvars *kvp);
-static void usage(void);
-
-int
-main(int argc, char **argv)
-{
-       int ch, mode, disp, accessmode;
-       struct kvmvars kvmvars;
-       const char *systemname;
-       char *kmemf;
-
-       if (seteuid(getuid()) != 0) {
-               err(1, "seteuid failed\n");
-       }
-       kmemf = NULL;
-       systemname = NULL;
-       while ((ch = getopt(argc, argv, "M:N:Bbhpr")) != -1) {
-               switch((char)ch) {
-
-               case 'M':
-                       kmemf = optarg;
-                       kflag = 1;
-                       break;
-
-               case 'N':
-                       systemname = optarg;
-                       break;
-
-               case 'B':
-                       Bflag = 1;
-                       break;
-
-               case 'b':
-                       bflag = 1;
-                       break;
-
-               case 'h':
-                       hflag = 1;
-                       break;
-
-               case 'p':
-                       pflag = 1;
-                       break;
-
-               case 'r':
-                       rflag = 1;
-                       break;
-
-               default:
-                       usage();
-               }
-       }
-       argc -= optind;
-       argv += optind;
-
-#define BACKWARD_COMPATIBILITY
-#ifdef BACKWARD_COMPATIBILITY
-       if (*argv) {
-               systemname = *argv;
-               if (*++argv) {
-                       kmemf = *argv;
-                       ++kflag;
-               }
-       }
-#endif
-       if (systemname == NULL)
-               systemname = getbootfile();
-       accessmode = openfiles(systemname, kmemf, &kvmvars);
-       mode = getprof(&kvmvars);
-       if (hflag)
-               disp = GMON_PROF_OFF;
-       else if (Bflag)
-               disp = GMON_PROF_HIRES;
-       else if (bflag)
-               disp = GMON_PROF_ON;
-       else
-               disp = mode;
-       if (pflag)
-               dumpstate(&kvmvars);
-       if (rflag)
-               reset(&kvmvars);
-       if (accessmode == O_RDWR)
-               setprof(&kvmvars, disp);
-       (void)fprintf(stdout, "kgmon: kernel profiling is %s.\n",
-                     disp == GMON_PROF_OFF ? "off" :
-                     disp == GMON_PROF_HIRES ? "running (high resolution)" :
-                     disp == GMON_PROF_ON ? "running" :
-                     disp == GMON_PROF_BUSY ? "busy" :
-                     disp == GMON_PROF_ERROR ? "off (error)" :
-                     "in an unknown state");
-       return (0);
-}
-
-static void
-usage(void)
-{
-       fprintf(stderr, "usage: kgmon [-Bbhrp] [-M core] [-N system]\n");
-       exit(1);
-}
-
-/*
- * Check that profiling is enabled and open any necessary files.
- */
-int
-openfiles(const char *systemname, char *kmemf, struct kvmvars *kvp)
-{
-       size_t size;
-       int mib[3], state, openmode;
-       char errbuf[_POSIX2_LINE_MAX];
-
-       if (!kflag) {
-               mib[0] = CTL_KERN;
-               mib[1] = KERN_PROF;
-               mib[2] = GPROF_STATE;
-               size = sizeof state;
-               if (sysctl(mib, 3, &state, &size, NULL, 0) < 0)
-                       errx(20, "profiling not defined in kernel");
-               if (!(Bflag || bflag || hflag || rflag ||
-                   (pflag &&
-                    (state == GMON_PROF_HIRES || state == GMON_PROF_ON))))
-                       return (O_RDONLY);
-               (void)seteuid(0);
-               if (sysctl(mib, 3, NULL, NULL, &state, size) >= 0)
-                       return (O_RDWR);
-               (void)seteuid(getuid());
-               kern_readonly(state);
-               return (O_RDONLY);
-       }
-       openmode = (Bflag || bflag || hflag || pflag || rflag)
-                  ? O_RDWR : O_RDONLY;
-       kvp->kd = kvm_openfiles(systemname, kmemf, NULL, openmode, errbuf);
-       if (kvp->kd == NULL) {
-               if (openmode == O_RDWR) {
-                       openmode = O_RDONLY;
-                       kvp->kd = kvm_openfiles(systemname, kmemf, NULL, 
O_RDONLY,
-                           errbuf);
-               }
-               if (kvp->kd == NULL)
-                       errx(2, "kvm_openfiles: %s", errbuf);
-               kern_readonly(GMON_PROF_ON);
-       }
-       if (kvm_nlist(kvp->kd, nl) < 0)
-               errx(3, "%s: no namelist", systemname);
-       if (!nl[N_GMONPARAM].n_value)
-               errx(20, "profiling not defined in kernel");
-       return (openmode);
-}
-
-/*
- * Suppress options that require a writable kernel.
- */
-void
-kern_readonly(int mode)
-{
-
-       (void)fprintf(stderr, "kgmon: kernel read-only: ");
-       if (pflag && (mode == GMON_PROF_HIRES || mode == GMON_PROF_ON))
-               (void)fprintf(stderr, "data may be inconsistent\n");
-       if (rflag)
-               (void)fprintf(stderr, "-r suppressed\n");
-       if (Bflag)
-               (void)fprintf(stderr, "-B suppressed\n");
-       if (bflag)
-               (void)fprintf(stderr, "-b suppressed\n");
-       if (hflag)
-               (void)fprintf(stderr, "-h suppressed\n");
-       rflag = Bflag = bflag = hflag = 0;
-}
-
-/*
- * Get the state of kernel profiling.
- */
-int
-getprof(struct kvmvars *kvp)
-{
-       size_t size;
-       int mib[3];
-
-       if (kflag) {
-               size = kvm_read(kvp->kd, nl[N_GMONPARAM].n_value, &kvp->gpm,
-                   sizeof kvp->gpm);
-       } else {
-               mib[0] = CTL_KERN;
-               mib[1] = KERN_PROF;
-               mib[2] = GPROF_GMONPARAM;
-               size = sizeof kvp->gpm;
-               if (sysctl(mib, 3, &kvp->gpm, &size, NULL, 0) < 0)
-                       size = 0;
-       }
-
-       /*
-        * Accept certain undersized "structs" from old kernels.  We need
-        * everything up to hashfraction, and want profrate and
-        * histcounter_type.  Assume that the kernel doesn't put garbage
-        * in any padding that is returned instead of profrate and
-        * histcounter_type.  This is a bad assumption for dead kernels,
-        * since kvm_read() will normally return garbage for bytes beyond
-        * the end of the actual kernel struct, if any.
-        */
-       if (size < offsetof(struct gmonparam, hashfraction) +
-           sizeof(kvp->gpm.hashfraction) || size > sizeof(kvp->gpm))
-               errx(4, "cannot get gmonparam: %s",
-                   kflag ? kvm_geterr(kvp->kd) : strerror(errno));
-       bzero((char *)&kvp->gpm + size, sizeof(kvp->gpm) - size);
-       if (kvp->gpm.profrate == 0)
-               kvp->gpm.profrate = getprofhz(kvp);
-#ifdef __i386__
-       if (kvp->gpm.histcounter_type == 0) {
-               /*
-                * This fixup only works for not-so-old i386 kernels.  The
-                * magic 16 is the kernel FUNCTION_ALIGNMENT.  64-bit
-                * counters are signed; smaller counters are unsigned.
-                */
-               kvp->gpm.histcounter_type = 16 /
-                   (kvp->gpm.textsize / kvp->gpm.kcountsize) * CHAR_BIT;
-               if (kvp->gpm.histcounter_type == 64)
-                       kvp->gpm.histcounter_type = -64;
-       }
-#endif
-
-       return (kvp->gpm.state);
-}
-
-/*
- * Enable or disable kernel profiling according to the state variable.
- */
-void
-setprof(struct kvmvars *kvp, int state)
-{
-       struct gmonparam *p = (struct gmonparam *)nl[N_GMONPARAM].n_value;
-       size_t sz;
-       int mib[3], oldstate;
-
-       sz = sizeof(state);
-       if (!kflag) {
-               mib[0] = CTL_KERN;
-               mib[1] = KERN_PROF;
-               mib[2] = GPROF_STATE;
-               if (sysctl(mib, 3, &oldstate, &sz, NULL, 0) < 0)
-                       goto bad;
-               if (oldstate == state)
-                       return;
-               (void)seteuid(0);
-               if (sysctl(mib, 3, NULL, NULL, &state, sz) >= 0) {
-                       (void)seteuid(getuid());
-                       return;
-               }
-               (void)seteuid(getuid());
-       } else if (kvm_write(kvp->kd, (u_long)&p->state, (void *)&state, sz)
-           == (ssize_t)sz)
-               return;
-bad:
-       warnx("warning: cannot turn profiling %s",
-           state == GMON_PROF_OFF ? "off" : "on");
-}
-
-/*
- * Build the gmon.out file.
- */
-void
-dumpstate(struct kvmvars *kvp)
-{
-       register FILE *fp;
-       struct rawarc rawarc;
-       struct tostruct *tos;
-       u_long frompc;
-       u_short *froms, *tickbuf;
-       size_t i;
-       int mib[3];
-       struct gmonhdr h;
-       int fromindex, endfrom, toindex;
-
-       setprof(kvp, GMON_PROF_OFF);
-       fp = fopen("gmon.out", "w");
-       if (fp == NULL) {
-               warn("gmon.out");
-               return;
-       }
-
-       /*
-        * Build the gmon header and write it to a file.
-        */
-       bzero(&h, sizeof(h));
-       h.lpc = kvp->gpm.lowpc;
-       h.hpc = kvp->gpm.highpc;
-       h.ncnt = kvp->gpm.kcountsize + sizeof(h);
-       h.version = GMONVERSION;
-       h.profrate = kvp->gpm.profrate;
-       h.histcounter_type = kvp->gpm.histcounter_type;
-       fwrite((char *)&h, sizeof(h), 1, fp);
-
-       /*
-        * Write out the tick buffer.
-        */
-       mib[0] = CTL_KERN;
-       mib[1] = KERN_PROF;
-       if ((tickbuf = (u_short *)malloc(kvp->gpm.kcountsize)) == NULL)
-               errx(5, "cannot allocate kcount space");
-       if (kflag) {
-               i = kvm_read(kvp->kd, (u_long)kvp->gpm.kcount, (void *)tickbuf,
-                   kvp->gpm.kcountsize);
-       } else {
-               mib[2] = GPROF_COUNT;
-               i = kvp->gpm.kcountsize;
-               if (sysctl(mib, 3, tickbuf, &i, NULL, 0) < 0)
-                       i = 0;
-       }
-       if (i != kvp->gpm.kcountsize)
-               errx(6, "read ticks: read %lu, got %ld: %s",
-                   kvp->gpm.kcountsize, (long)i,
-                   kflag ? kvm_geterr(kvp->kd) : strerror(errno));
-       if ((fwrite(tickbuf, kvp->gpm.kcountsize, 1, fp)) != 1)
-               err(7, "writing tocks to gmon.out");
-       free(tickbuf);
-
-       /*
-        * Write out the arc info.
-        */
-       if ((froms = (u_short *)malloc(kvp->gpm.fromssize)) == NULL)
-               errx(8, "cannot allocate froms space");
-       if (kflag) {
-               i = kvm_read(kvp->kd, (u_long)kvp->gpm.froms, (void *)froms,
-                   kvp->gpm.fromssize);
-       } else {
-               mib[2] = GPROF_FROMS;
-               i = kvp->gpm.fromssize;
-               if (sysctl(mib, 3, froms, &i, NULL, 0) < 0)
-                       i = 0;
-       }
-       if (i != kvp->gpm.fromssize)
-               errx(9, "read froms: read %lu, got %ld: %s",
-                   kvp->gpm.fromssize, (long)i,
-                   kflag ? kvm_geterr(kvp->kd) : strerror(errno));
-       if ((tos = (struct tostruct *)malloc(kvp->gpm.tossize)) == NULL)
-               errx(10, "cannot allocate tos space");
-       if (kflag) {
-               i = kvm_read(kvp->kd, (u_long)kvp->gpm.tos, (void *)tos,
-                   kvp->gpm.tossize);
-       } else {
-               mib[2] = GPROF_TOS;
-               i = kvp->gpm.tossize;
-               if (sysctl(mib, 3, tos, &i, NULL, 0) < 0)
-                       i = 0;
-       }
-       if (i != kvp->gpm.tossize)
-               errx(11, "read tos: read %lu, got %ld: %s",
-                   kvp->gpm.tossize, (long)i,
-                   kflag ? kvm_geterr(kvp->kd) : strerror(errno));
-       if (debug)
-               warnx("lowpc 0x%lx, textsize 0x%lx",
-                   (unsigned long)kvp->gpm.lowpc, kvp->gpm.textsize);
-       endfrom = kvp->gpm.fromssize / sizeof(*froms);
-       for (fromindex = 0; fromindex < endfrom; ++fromindex) {
-               if (froms[fromindex] == 0)
-                       continue;
-               frompc = (u_long)kvp->gpm.lowpc +
-                   (fromindex * kvp->gpm.hashfraction * sizeof(*froms));
-               for (toindex = froms[fromindex]; toindex != 0;
-                    toindex = tos[toindex].link) {
-                       if (debug)
-                               warnx("[mcleanup] frompc 0x%lx selfpc 0x%lx "
-                                   "count %ld", 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;
-                       fwrite((char *)&rawarc, sizeof(rawarc), 1, fp);
-               }
-       }
-       fclose(fp);
-}
-
-/*
- * Get the profiling rate.
- */
-int
-getprofhz(struct kvmvars *kvp)
-{
-       size_t size;
-       int mib[2], profrate;
-       struct clockinfo clockrate;
-
-       if (kflag) {
-               profrate = 1;
-               if (kvm_read(kvp->kd, nl[N_PROFHZ].n_value, &profrate,
-                   sizeof profrate) != sizeof profrate)
-                       warnx("get clockrate: %s", kvm_geterr(kvp->kd));
-               return (profrate);
-       }
-       mib[0] = CTL_KERN;
-       mib[1] = KERN_CLOCKRATE;
-       clockrate.profhz = 1;
-       size = sizeof clockrate;
-       if (sysctl(mib, 2, &clockrate, &size, NULL, 0) < 0)
-               warn("get clockrate");
-       return (clockrate.profhz);
-}
-
-/*
- * Reset the kernel profiling date structures.
- */
-void
-reset(struct kvmvars *kvp)
-{
-       char *zbuf;
-       u_long biggest;
-       int mib[3];
-
-       setprof(kvp, GMON_PROF_OFF);
-
-       biggest = kvp->gpm.kcountsize;
-       if (kvp->gpm.fromssize > biggest)
-               biggest = kvp->gpm.fromssize;
-       if (kvp->gpm.tossize > biggest)
-               biggest = kvp->gpm.tossize;
-       if ((zbuf = (char *)malloc(biggest)) == NULL)
-               errx(12, "cannot allocate zbuf space");
-       bzero(zbuf, biggest);
-       if (kflag) {
-               if (kvm_write(kvp->kd, (u_long)kvp->gpm.kcount, zbuf,
-                   kvp->gpm.kcountsize) != (ssize_t)kvp->gpm.kcountsize)
-                       errx(13, "tickbuf zero: %s", kvm_geterr(kvp->kd));
-               if (kvm_write(kvp->kd, (u_long)kvp->gpm.froms, zbuf,
-                   kvp->gpm.fromssize) != (ssize_t)kvp->gpm.fromssize)
-                       errx(14, "froms zero: %s", kvm_geterr(kvp->kd));
-               if (kvm_write(kvp->kd, (u_long)kvp->gpm.tos, zbuf,
-                   kvp->gpm.tossize) != (ssize_t)kvp->gpm.tossize)
-                       errx(15, "tos zero: %s", kvm_geterr(kvp->kd));
-               free(zbuf);
-               return;
-       }
-       (void)seteuid(0);
-       mib[0] = CTL_KERN;
-       mib[1] = KERN_PROF;
-       mib[2] = GPROF_COUNT;
-       if (sysctl(mib, 3, NULL, NULL, zbuf, kvp->gpm.kcountsize) < 0)
-               err(13, "tickbuf zero");
-       mib[2] = GPROF_FROMS;
-       if (sysctl(mib, 3, NULL, NULL, zbuf, kvp->gpm.fromssize) < 0)
-               err(14, "froms zero");
-       mib[2] = GPROF_TOS;
-       if (sysctl(mib, 3, NULL, NULL, zbuf, kvp->gpm.tossize) < 0)
-               err(15, "tos zero");
-       (void)seteuid(getuid());
-       free(zbuf);
-}
_______________________________________________
[email protected] mailing list
https://lists.freebsd.org/mailman/listinfo/dev-commits-src-main
To unsubscribe, send any mail to "[email protected]"

Reply via email to