From 3a3e0b919f302743180e296958ae85d20a298406 Mon Sep 17 00:00:00 2001
From: Sam Leffler <sam@ucbvax.Berkeley.EDU>
Date: Mon, 28 Jun 1982 19:09:53 -0800
Subject: [PATCH] date and time created 82/06/28 12:09:53 by sam

SCCS-vsn: sys/kern/subr_prof.c 4.1
---
 usr/src/sys/kern/subr_prof.c | 157 +++++++++++++++++++++++++++++++++++
 1 file changed, 157 insertions(+)
 create mode 100644 usr/src/sys/kern/subr_prof.c

diff --git a/usr/src/sys/kern/subr_prof.c b/usr/src/sys/kern/subr_prof.c
new file mode 100644
index 0000000000..cbfc9a83f7
--- /dev/null
+++ b/usr/src/sys/kern/subr_prof.c
@@ -0,0 +1,157 @@
+/*	subr_prof.c	4.1	82/06/28	*/
+
+#ifdef GPROF
+#include "../h/crt0.h"
+#include "../h/param.h"
+#include "../h/systm.h"
+
+/*
+ * Froms is actually a bunch of unsigned shorts indexing tos
+ */
+int	profiling = 3;
+u_short	*froms = 0;
+struct	tostruct *tos = 0;
+u_short	tolimit = 0;
+char	*s_lowpc = (char *)0x80000000;
+extern	char etext;
+char	*s_highpc = &etext;
+u_long	s_textsize = 0;
+int	ssiz;
+u_short	*sbuf;
+u_short	*kcount;
+
+kmstartup()
+{
+	u_long	limit;
+
+	s_textsize = s_highpc - s_lowpc;
+	ssiz = s_textsize + sizeof(struct phdr);
+	printf("Profiling kernel, s_textsize=%d [%x..%x]\n",
+		s_textsize, s_lowpc, s_highpc);
+	sbuf = (u_short *)wmemall(vmemall, ssiz);
+	if (sbuf == 0) {
+		printf("No space for monitor buffer(s)\n");
+		return;
+	}
+	blkclr((caddr_t)sbuf, ssiz);
+	froms = (u_short *)wmemall(vmemall, s_textsize);
+	if (froms == 0) {
+		printf("No space for monitor buffer(s)\n");
+		wmemfree(sbuf, ssiz);
+		sbuf = 0;
+		return;
+	}
+	blkclr((caddr_t)froms, s_textsize);
+	tos = (struct tostruct *)wmemall(vmemall, s_textsize);
+	if (tos == 0) {
+		printf("No space for monitor buffer(s)\n");
+		wmemfree(sbuf, ssiz);
+		sbuf = 0;
+		wmemfree(froms, s_textsize);
+		froms = 0;
+		return;
+	}
+	blkclr((caddr_t)tos, s_textsize);
+	tos[0].link = 0;
+	limit = s_textsize / sizeof(struct tostruct);
+	/*
+	 * Tolimit is what mcount checks to see if
+	 * all the data structures are ready!!!
+	 * Make sure it won't overflow.
+	 */
+	tolimit = limit > 65534 ? 65534 : limit;
+	((struct phdr *)sbuf)->lpc = s_lowpc;
+	((struct phdr *)sbuf)->hpc = s_highpc;
+	((struct phdr *)sbuf)->ncnt = ssiz;
+	kcount = (u_short *)(((int)sbuf) + sizeof(struct phdr));
+#ifdef notdef
+	profiling = 0;		/* patch by hand when you're ready */
+#endif
+}
+
+/*
+ * This routine is massaged so that it may be jsb'ed to
+ */
+asm("#define _mcount mcount");
+mcount()
+{
+	register char *selfpc;		/* r11 */
+	register u_short *frompcindex;	/* r10 */
+	register struct tostruct *top;	/* r9 */
+
+	asm("	forgot to run ex script on gcrt0.s");
+	asm("#define r11 r5");
+	asm("#define r10 r4");
+	asm("#define r9 r3");
+#ifdef lint
+	selfpc = (char *) 0;
+	frompcindex = 0;
+#else not lint
+	/*
+	 * Find the return address for mcount,
+	 * and the return address for mcount's caller.
+	 */
+	asm("	movl (sp), r11");	/* selfpc = ... (jsb frame) */
+	asm("	movl 16(fp), r10");	/* frompcindex =     (calls frame) */
+#endif not lint
+	/*
+	 * Check that we are profiling
+	 * and that we aren't recursively invoked.
+	 */
+	if (tolimit == 0)
+		goto out;
+	if (profiling)
+		goto out;
+	profiling++;
+	/*
+	 * Check that frompcindex is a reasonable pc value.
+	 * For example:	signal catchers get called from the stack,
+	 * 		not from text space.  too bad.
+	 */
+	frompcindex = (u_short *)((long)frompcindex - (long)s_lowpc);
+	if ((u_long)frompcindex > s_textsize)
+		goto done;
+	frompcindex = &froms[((long)frompcindex) >> 1];
+	if (*frompcindex != 0)
+		top = &tos[*frompcindex];
+	else {
+		*frompcindex = ++tos[0].link;
+		if (*frompcindex >= tolimit)
+			goto overflow;
+		top = &tos[*frompcindex];
+		top->selfpc = selfpc;
+		top->count = 0;
+		top->link = 0;
+	}
+	for (; /* break */; top = &tos[top->link]) {
+		if (top->selfpc == selfpc) {
+			top->count++;
+			break;
+		}
+		if (top->link != 0)
+			continue;
+		top->link = ++tos[0].link;
+		if (top->link >= tolimit)
+			goto overflow;
+		top = &tos[top->link];
+		top->selfpc = selfpc;
+		top->count = 1;
+		top->link = 0;
+		break;
+	}
+done:
+	profiling--;
+	/* and fall through */
+out:
+	asm("	rsb");
+	asm("#undef r11");
+	asm("#undef r10");
+	asm("#undef r9");
+	asm("#undef _mcount");
+
+overflow:
+	tolimit = 0;
+	printf("mcount: tos overflow\n");
+	goto out;
+}
+#endif GPROF
-- 
2.20.1