xref: /freebsd/lib/libc/gmon/gmon.c (revision 2c201a9afe37d2cec72faa4f00dc640c7b4130b3)
158f0484fSRodney W. Grimes /*-
258f0484fSRodney W. Grimes  * Copyright (c) 1983, 1992, 1993
358f0484fSRodney W. Grimes  *	The Regents of the University of California.  All rights reserved.
458f0484fSRodney W. Grimes  *
558f0484fSRodney W. Grimes  * Redistribution and use in source and binary forms, with or without
658f0484fSRodney W. Grimes  * modification, are permitted provided that the following conditions
758f0484fSRodney W. Grimes  * are met:
858f0484fSRodney W. Grimes  * 1. Redistributions of source code must retain the above copyright
958f0484fSRodney W. Grimes  *    notice, this list of conditions and the following disclaimer.
1058f0484fSRodney W. Grimes  * 2. Redistributions in binary form must reproduce the above copyright
1158f0484fSRodney W. Grimes  *    notice, this list of conditions and the following disclaimer in the
1258f0484fSRodney W. Grimes  *    documentation and/or other materials provided with the distribution.
1358f0484fSRodney W. Grimes  * 4. Neither the name of the University nor the names of its contributors
1458f0484fSRodney W. Grimes  *    may be used to endorse or promote products derived from this software
1558f0484fSRodney W. Grimes  *    without specific prior written permission.
1658f0484fSRodney W. Grimes  *
1758f0484fSRodney W. Grimes  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
1858f0484fSRodney W. Grimes  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
1958f0484fSRodney W. Grimes  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2058f0484fSRodney W. Grimes  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
2158f0484fSRodney W. Grimes  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2258f0484fSRodney W. Grimes  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2358f0484fSRodney W. Grimes  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
2458f0484fSRodney W. Grimes  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
2558f0484fSRodney W. Grimes  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
2658f0484fSRodney W. Grimes  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
2758f0484fSRodney W. Grimes  * SUCH DAMAGE.
2858f0484fSRodney W. Grimes  */
2958f0484fSRodney W. Grimes 
30a9bdcd37SDavid E. O'Brien #if defined(LIBC_SCCS) && !defined(lint)
3158f0484fSRodney W. Grimes static char sccsid[] = "@(#)gmon.c	8.1 (Berkeley) 6/4/93";
3258f0484fSRodney W. Grimes #endif
33a99d1013SDavid E. O'Brien #include <sys/cdefs.h>
34a99d1013SDavid E. O'Brien __FBSDID("$FreeBSD$");
3558f0484fSRodney W. Grimes 
36d201fe46SDaniel Eischen #include "namespace.h"
3758f0484fSRodney W. Grimes #include <sys/param.h>
3858f0484fSRodney W. Grimes #include <sys/time.h>
3958f0484fSRodney W. Grimes #include <sys/gmon.h>
4058f0484fSRodney W. Grimes #include <sys/sysctl.h>
4158f0484fSRodney W. Grimes 
42683728f1SJohn Birrell #include <err.h>
4358f0484fSRodney W. Grimes #include <fcntl.h>
444cd01193SMark Murray #include <stdio.h>
454cd01193SMark Murray #include <stdlib.h>
46d201fe46SDaniel Eischen #include <string.h>
4758f0484fSRodney W. Grimes #include <unistd.h>
48d201fe46SDaniel Eischen #include "un-namespace.h"
4958f0484fSRodney W. Grimes 
504cd01193SMark Murray #include "libc_private.h"
514cd01193SMark Murray 
527d65909eSPeter Grehan #if defined(__i386__) || defined(__sparc64__) || defined(__amd64__) || defined(__powerpc__)
53e683295eSDavid E. O'Brien extern char *minbrk __asm (".minbrk");
54f1703dfbSPeter Wemm #else
55e683295eSDavid E. O'Brien extern char *minbrk __asm ("minbrk");
56f1703dfbSPeter Wemm #endif
5758f0484fSRodney W. Grimes 
5858f0484fSRodney W. Grimes struct gmonparam _gmonparam = { GMON_PROF_OFF };
5958f0484fSRodney W. Grimes 
6058f0484fSRodney W. Grimes static int	s_scale;
6158f0484fSRodney W. Grimes /* see profil(2) where this is describe (incorrectly) */
6258f0484fSRodney W. Grimes #define		SCALE_1_TO_1	0x10000L
6358f0484fSRodney W. Grimes 
649233c4d9SJason Evans #define ERR(s) _write(2, s, sizeof(s))
6558f0484fSRodney W. Grimes 
66a99d1013SDavid E. O'Brien void	moncontrol(int);
67a99d1013SDavid E. O'Brien static int hertz(void);
6858f0484fSRodney W. Grimes 
6958f0484fSRodney W. Grimes void
7058f0484fSRodney W. Grimes monstartup(lowpc, highpc)
7158f0484fSRodney W. Grimes 	u_long lowpc;
7258f0484fSRodney W. Grimes 	u_long highpc;
7358f0484fSRodney W. Grimes {
74a99d1013SDavid E. O'Brien 	int o;
7558f0484fSRodney W. Grimes 	char *cp;
7658f0484fSRodney W. Grimes 	struct gmonparam *p = &_gmonparam;
7758f0484fSRodney W. Grimes 
7858f0484fSRodney W. Grimes 	/*
7958f0484fSRodney W. Grimes 	 * round lowpc and highpc to multiples of the density we're using
8058f0484fSRodney W. Grimes 	 * so the rest of the scaling (here and in gprof) stays in ints.
8158f0484fSRodney W. Grimes 	 */
8258f0484fSRodney W. Grimes 	p->lowpc = ROUNDDOWN(lowpc, HISTFRACTION * sizeof(HISTCOUNTER));
8358f0484fSRodney W. Grimes 	p->highpc = ROUNDUP(highpc, HISTFRACTION * sizeof(HISTCOUNTER));
8458f0484fSRodney W. Grimes 	p->textsize = p->highpc - p->lowpc;
8558f0484fSRodney W. Grimes 	p->kcountsize = p->textsize / HISTFRACTION;
8658f0484fSRodney W. Grimes 	p->hashfraction = HASHFRACTION;
8758f0484fSRodney W. Grimes 	p->fromssize = p->textsize / HASHFRACTION;
8858f0484fSRodney W. Grimes 	p->tolimit = p->textsize * ARCDENSITY / 100;
8958f0484fSRodney W. Grimes 	if (p->tolimit < MINARCS)
9058f0484fSRodney W. Grimes 		p->tolimit = MINARCS;
9158f0484fSRodney W. Grimes 	else if (p->tolimit > MAXARCS)
9258f0484fSRodney W. Grimes 		p->tolimit = MAXARCS;
9358f0484fSRodney W. Grimes 	p->tossize = p->tolimit * sizeof(struct tostruct);
9458f0484fSRodney W. Grimes 
9558f0484fSRodney W. Grimes 	cp = sbrk(p->kcountsize + p->fromssize + p->tossize);
9658f0484fSRodney W. Grimes 	if (cp == (char *)-1) {
9758f0484fSRodney W. Grimes 		ERR("monstartup: out of memory\n");
9858f0484fSRodney W. Grimes 		return;
9958f0484fSRodney W. Grimes 	}
10058f0484fSRodney W. Grimes #ifdef notdef
10158f0484fSRodney W. Grimes 	bzero(cp, p->kcountsize + p->fromssize + p->tossize);
10258f0484fSRodney W. Grimes #endif
10358f0484fSRodney W. Grimes 	p->tos = (struct tostruct *)cp;
10458f0484fSRodney W. Grimes 	cp += p->tossize;
10558f0484fSRodney W. Grimes 	p->kcount = (u_short *)cp;
10658f0484fSRodney W. Grimes 	cp += p->kcountsize;
10758f0484fSRodney W. Grimes 	p->froms = (u_short *)cp;
10858f0484fSRodney W. Grimes 
10958f0484fSRodney W. Grimes 	minbrk = sbrk(0);
11058f0484fSRodney W. Grimes 	p->tos[0].link = 0;
11158f0484fSRodney W. Grimes 
11258f0484fSRodney W. Grimes 	o = p->highpc - p->lowpc;
11358f0484fSRodney W. Grimes 	if (p->kcountsize < o) {
11458f0484fSRodney W. Grimes #ifndef hp300
11558f0484fSRodney W. Grimes 		s_scale = ((float)p->kcountsize / o ) * SCALE_1_TO_1;
11658f0484fSRodney W. Grimes #else /* avoid floating point */
11758f0484fSRodney W. Grimes 		int quot = o / p->kcountsize;
11858f0484fSRodney W. Grimes 
11958f0484fSRodney W. Grimes 		if (quot >= 0x10000)
12058f0484fSRodney W. Grimes 			s_scale = 1;
12158f0484fSRodney W. Grimes 		else if (quot >= 0x100)
12258f0484fSRodney W. Grimes 			s_scale = 0x10000 / quot;
12358f0484fSRodney W. Grimes 		else if (o >= 0x800000)
12458f0484fSRodney W. Grimes 			s_scale = 0x1000000 / (o / (p->kcountsize >> 8));
12558f0484fSRodney W. Grimes 		else
12658f0484fSRodney W. Grimes 			s_scale = 0x1000000 / ((o << 8) / p->kcountsize);
12758f0484fSRodney W. Grimes #endif
12858f0484fSRodney W. Grimes 	} else
12958f0484fSRodney W. Grimes 		s_scale = SCALE_1_TO_1;
13058f0484fSRodney W. Grimes 
13158f0484fSRodney W. Grimes 	moncontrol(1);
13258f0484fSRodney W. Grimes }
13358f0484fSRodney W. Grimes 
13458f0484fSRodney W. Grimes void
1352c201a9aSEd Schouten _mcleanup(void)
13658f0484fSRodney W. Grimes {
13758f0484fSRodney W. Grimes 	int fd;
13858f0484fSRodney W. Grimes 	int fromindex;
13958f0484fSRodney W. Grimes 	int endfrom;
14058f0484fSRodney W. Grimes 	u_long frompc;
14158f0484fSRodney W. Grimes 	int toindex;
14258f0484fSRodney W. Grimes 	struct rawarc rawarc;
14358f0484fSRodney W. Grimes 	struct gmonparam *p = &_gmonparam;
14458f0484fSRodney W. Grimes 	struct gmonhdr gmonhdr, *hdr;
14558f0484fSRodney W. Grimes 	struct clockinfo clockinfo;
146683728f1SJohn Birrell 	char outname[128];
14758f0484fSRodney W. Grimes 	int mib[2];
14858f0484fSRodney W. Grimes 	size_t size;
14958f0484fSRodney W. Grimes #ifdef DEBUG
15058f0484fSRodney W. Grimes 	int log, len;
15158f0484fSRodney W. Grimes 	char buf[200];
15258f0484fSRodney W. Grimes #endif
15358f0484fSRodney W. Grimes 
15458f0484fSRodney W. Grimes 	if (p->state == GMON_PROF_ERROR)
15558f0484fSRodney W. Grimes 		ERR("_mcleanup: tos overflow\n");
15658f0484fSRodney W. Grimes 
15758f0484fSRodney W. Grimes 	size = sizeof(clockinfo);
15858f0484fSRodney W. Grimes 	mib[0] = CTL_KERN;
15958f0484fSRodney W. Grimes 	mib[1] = KERN_CLOCKRATE;
16058f0484fSRodney W. Grimes 	if (sysctl(mib, 2, &clockinfo, &size, NULL, 0) < 0) {
16158f0484fSRodney W. Grimes 		/*
16258f0484fSRodney W. Grimes 		 * Best guess
16358f0484fSRodney W. Grimes 		 */
16458f0484fSRodney W. Grimes 		clockinfo.profhz = hertz();
16558f0484fSRodney W. Grimes 	} else if (clockinfo.profhz == 0) {
16658f0484fSRodney W. Grimes 		if (clockinfo.hz != 0)
16758f0484fSRodney W. Grimes 			clockinfo.profhz = clockinfo.hz;
16858f0484fSRodney W. Grimes 		else
16958f0484fSRodney W. Grimes 			clockinfo.profhz = hertz();
17058f0484fSRodney W. Grimes 	}
17158f0484fSRodney W. Grimes 
17258f0484fSRodney W. Grimes 	moncontrol(0);
1734cd01193SMark Murray 	snprintf(outname, sizeof(outname), "%s.gmon", _getprogname());
1749233c4d9SJason Evans 	fd = _open(outname, O_CREAT|O_TRUNC|O_WRONLY, 0666);
17558f0484fSRodney W. Grimes 	if (fd < 0) {
1762c316efdSBruce Evans 		_warn("_mcleanup: %s", outname);
17758f0484fSRodney W. Grimes 		return;
17858f0484fSRodney W. Grimes 	}
17958f0484fSRodney W. Grimes #ifdef DEBUG
1809233c4d9SJason Evans 	log = _open("gmon.log", O_CREAT|O_TRUNC|O_WRONLY, 0664);
18158f0484fSRodney W. Grimes 	if (log < 0) {
1822c316efdSBruce Evans 		_warn("_mcleanup: gmon.log");
18358f0484fSRodney W. Grimes 		return;
18458f0484fSRodney W. Grimes 	}
185312f1851SJun Kuriyama 	len = sprintf(buf, "[mcleanup1] kcount 0x%p ssiz %lu\n",
18658f0484fSRodney W. Grimes 	    p->kcount, p->kcountsize);
1879233c4d9SJason Evans 	_write(log, buf, len);
18858f0484fSRodney W. Grimes #endif
18958f0484fSRodney W. Grimes 	hdr = (struct gmonhdr *)&gmonhdr;
190bdc5bab2SBruce Evans 	bzero(hdr, sizeof(*hdr));
19158f0484fSRodney W. Grimes 	hdr->lpc = p->lowpc;
19258f0484fSRodney W. Grimes 	hdr->hpc = p->highpc;
19358f0484fSRodney W. Grimes 	hdr->ncnt = p->kcountsize + sizeof(gmonhdr);
19458f0484fSRodney W. Grimes 	hdr->version = GMONVERSION;
19558f0484fSRodney W. Grimes 	hdr->profrate = clockinfo.profhz;
1969233c4d9SJason Evans 	_write(fd, (char *)hdr, sizeof *hdr);
1979233c4d9SJason Evans 	_write(fd, p->kcount, p->kcountsize);
19858f0484fSRodney W. Grimes 	endfrom = p->fromssize / sizeof(*p->froms);
19958f0484fSRodney W. Grimes 	for (fromindex = 0; fromindex < endfrom; fromindex++) {
20058f0484fSRodney W. Grimes 		if (p->froms[fromindex] == 0)
20158f0484fSRodney W. Grimes 			continue;
20258f0484fSRodney W. Grimes 
20358f0484fSRodney W. Grimes 		frompc = p->lowpc;
20458f0484fSRodney W. Grimes 		frompc += fromindex * p->hashfraction * sizeof(*p->froms);
20558f0484fSRodney W. Grimes 		for (toindex = p->froms[fromindex]; toindex != 0;
20658f0484fSRodney W. Grimes 		     toindex = p->tos[toindex].link) {
20758f0484fSRodney W. Grimes #ifdef DEBUG
20858f0484fSRodney W. Grimes 			len = sprintf(buf,
209312f1851SJun Kuriyama 			"[mcleanup2] frompc 0x%lx selfpc 0x%lx count %lu\n" ,
21058f0484fSRodney W. Grimes 				frompc, p->tos[toindex].selfpc,
21158f0484fSRodney W. Grimes 				p->tos[toindex].count);
2129233c4d9SJason Evans 			_write(log, buf, len);
21358f0484fSRodney W. Grimes #endif
21458f0484fSRodney W. Grimes 			rawarc.raw_frompc = frompc;
21558f0484fSRodney W. Grimes 			rawarc.raw_selfpc = p->tos[toindex].selfpc;
21658f0484fSRodney W. Grimes 			rawarc.raw_count = p->tos[toindex].count;
2179233c4d9SJason Evans 			_write(fd, &rawarc, sizeof rawarc);
21858f0484fSRodney W. Grimes 		}
21958f0484fSRodney W. Grimes 	}
2209233c4d9SJason Evans 	_close(fd);
22158f0484fSRodney W. Grimes }
22258f0484fSRodney W. Grimes 
22358f0484fSRodney W. Grimes /*
22458f0484fSRodney W. Grimes  * Control profiling
22558f0484fSRodney W. Grimes  *	profiling is what mcount checks to see if
22658f0484fSRodney W. Grimes  *	all the data structures are ready.
22758f0484fSRodney W. Grimes  */
22858f0484fSRodney W. Grimes void
22958f0484fSRodney W. Grimes moncontrol(mode)
23058f0484fSRodney W. Grimes 	int mode;
23158f0484fSRodney W. Grimes {
23258f0484fSRodney W. Grimes 	struct gmonparam *p = &_gmonparam;
23358f0484fSRodney W. Grimes 
23458f0484fSRodney W. Grimes 	if (mode) {
23558f0484fSRodney W. Grimes 		/* start */
236daa2e8d8SHidetoshi Shimokawa 		profil((char *)p->kcount, p->kcountsize, p->lowpc, s_scale);
23758f0484fSRodney W. Grimes 		p->state = GMON_PROF_ON;
23858f0484fSRodney W. Grimes 	} else {
23958f0484fSRodney W. Grimes 		/* stop */
24058f0484fSRodney W. Grimes 		profil((char *)0, 0, 0, 0);
24158f0484fSRodney W. Grimes 		p->state = GMON_PROF_OFF;
24258f0484fSRodney W. Grimes 	}
24358f0484fSRodney W. Grimes }
24458f0484fSRodney W. Grimes 
24558f0484fSRodney W. Grimes /*
24658f0484fSRodney W. Grimes  * discover the tick frequency of the machine
24758f0484fSRodney W. Grimes  * if something goes wrong, we return 0, an impossible hertz.
24858f0484fSRodney W. Grimes  */
24958f0484fSRodney W. Grimes static int
25058f0484fSRodney W. Grimes hertz()
25158f0484fSRodney W. Grimes {
25258f0484fSRodney W. Grimes 	struct itimerval tim;
25358f0484fSRodney W. Grimes 
25458f0484fSRodney W. Grimes 	tim.it_interval.tv_sec = 0;
25558f0484fSRodney W. Grimes 	tim.it_interval.tv_usec = 1;
25658f0484fSRodney W. Grimes 	tim.it_value.tv_sec = 0;
25758f0484fSRodney W. Grimes 	tim.it_value.tv_usec = 0;
25858f0484fSRodney W. Grimes 	setitimer(ITIMER_REAL, &tim, 0);
25958f0484fSRodney W. Grimes 	setitimer(ITIMER_REAL, 0, &tim);
26058f0484fSRodney W. Grimes 	if (tim.it_interval.tv_usec < 2)
26158f0484fSRodney W. Grimes 		return(0);
26258f0484fSRodney W. Grimes 	return (1000000 / tim.it_interval.tv_usec);
26358f0484fSRodney W. Grimes }
264