1991/1006/port/devkprof.c (diff list | history)

1991/0427/sys/src/9/port/devkprof.c:7,33 – 1991/1006/sys/src/9/port/devkprof.c:7,32 (short | long | prev | next)
Created. rsc Fri Mar 4 12:44:25 2005
1990/03292
1990/0330		#include "devtab.h"
1990/03292		#define MAXPC (100*1024L) #define RES 8 #define LRES 3 #define NBUF (MAXPC>>LRES)
1991/1006		#define LRES 3 /* log of PC resolution */
1990/03292		long timerbuf[NBUF];
1991/1006		struct{ int minpc; int maxpc; int nbuf; int time; ulong *buf; }kprof;
1990/03292		enum{ Kprofdirqid, Kprofdataqid, Kprofstartqid, Kprofstartclrqid, Kprofstopqid, Nkproftab=Kprofstopqid,
1991/1006		Kprofctlqid, Nkproftab=Kprofctlqid,
1990/03292		Kprofmaxqid, }; Dirtab kproftab[Nkproftab]={
1991/0421		"kpdata", {Kprofdataqid}, NBUF*sizeof timerbuf[0], 0600, "kpstart", {Kprofstartqid}, 0, 0600, "kpstartclr", {Kprofstartclrqid}, 0, 0600, "kpstop", {Kprofstopqid}, 0, 0600,
1991/1006		"kpdata", {Kprofdataqid}, 0, 0600, "kpctl", {Kprofctlqid}, 0, 0600,
1990/03292		};
1990/1004		void kproftimer(ulong);
1991/0427/sys/src/9/port/devkprof.c:35,55 – 1991/1006/sys/src/9/port/devkprof.c:34,55
1990/03292		void
1990/0330		kprofreset(void) {
1990/1004		kprofp = kproftimer;
1991/1006		kprof.minpc = KTZERO; kprof.maxpc = (ulong)&etext; kprof.nbuf = (kprof.maxpc-kprof.minpc) >> LRES; kprof.buf = ialloc(kprof.nbuf*sizeof kprof.buf[0], 0); kproftab[0].length = kprof.nbuf*sizeof kprof.buf[0];
1990/0330		} void
1990/03292		kprofinit(void) {
1990/0330		extern void *etext;
1990/03292		if((((unsigned long)&etext)-KTZERO)>MAXPC) print("kernel profiling limited to %lud\n", MAXPC); } Chan * kprofattach(char *spec) {
1990/0330		return devattach('t', spec);
1991/1006		return devattach('T', spec);
1990/03292		} Chan * kprofclone(Chan *c, Chan *nc)
1991/0427/sys/src/9/port/devkprof.c:72,80 – 1991/1006/sys/src/9/port/devkprof.c:72,80
1990/03292		Chan *
1990/0330		kprofopen(Chan *c, int omode)
1990/03292		{
1990/0330		if(c->qid == CHDIR){
1991/1006		if(c->qid.path == CHDIR){
1990/0330		if(omode != OREAD) error(0, Eperm);
1991/1006		error(Eperm);
1990/0330		} c->mode = openmode(omode); c->flag |= COPEN;
1991/0427/sys/src/9/port/devkprof.c:85,103 – 1991/1006/sys/src/9/port/devkprof.c:85,103
1990/03292		void kprofcreate(Chan *c, char *name, int omode, ulong perm) {
1990/0330		error(0, Eperm);
1991/1006		error(Eperm);
1990/03292		} void kprofremove(Chan *c) {
1990/0330		error(0, Eperm);
1991/1006		error(Eperm);
1990/03292		} void
1990/0330		kprofwstat(Chan *c, char *dp)
1990/03292		{
1990/0330		error(0, Eperm);
1991/1006		error(Eperm);
1990/03292		} void
1991/0427/sys/src/9/port/devkprof.c:105,136 – 1991/1006/sys/src/9/port/devkprof.c:105,126
1990/03292		{ }
1990/0330		void kprofuserstr(Error *e, char *buf) { consuserstr(e, buf); }                  void kproferrstr(Error *e, char *buf) { rooterrstr(e, buf); }
1990/03292		long
1991/0411		kprofread(Chan *c, void *a, long n, ulong offset)
1990/03292		{ switch((int)(c->qid&~CHDIR)){
1991/1006		ulong end; switch((int)(c->qid.path&~CHDIR)){
1990/03292		case Kprofdirqid:
1990/0330		return devdirread(c, a, n, kproftab, Nkproftab, devgen);
1990/03292		case Kprofdataqid:
1991/0411		if(offset >= NBUF*sizeof timerbuf[0]){
1991/1006		end = kprof.nbuf*sizeof kprof.buf[0]; if(offset >= end){
1990/0330		n = 0;
1990/03292		break; }
1991/0411		if(offset+n > NBUF*sizeof timerbuf[0]) n = NBUF*sizeof timerbuf[0]-offset; memmove(a, ((char *)timerbuf)+offset, n);
1991/1006		if(offset+n > end) n = end-offset; memmove(a, ((char *)kprof.buf)+offset, n);
1990/03292		break; default: n=0;
1991/0427/sys/src/9/port/devkprof.c:142,158 – 1991/1006/sys/src/9/port/devkprof.c:132,149
1990/03292		long
1991/0411		kprofwrite(Chan *c, char *a, long n, ulong offset)
1990/03292		{ switch((int)(c->qid&~CHDIR)){ case Kprofstartclrqid: memset((char *)timerbuf, 0, NBUF*sizeof timerbuf[0]); case Kprofstartqid:
1990/0330		duartstarttimer();
1991/1006		switch((int)(c->qid.path&~CHDIR)){ case Kprofctlqid: if(strncmp(a, "startclr", 8) == 0){ memset((char *)kprof.buf, 0, kprof.nbuf*sizeof kprof.buf[0]); kprof.time = 1; }else if(strncmp(a, "start", 5) == 0) kprof.time = 1; else if(strncmp(a, "stop", 4) == 0) kprof.time = 0;
1990/03292		break; case Kprofstopqid:
1990/0330		duartstoptimer();
1990/03292		break; default:
1990/0330		error(0, Ebadusefd);
1991/1006		error(Ebadusefd);
1990/03292		} return n; }
1991/0427/sys/src/9/port/devkprof.c:160,165 – 1991/1006/sys/src/9/port/devkprof.c:151,158
1990/03292		void kproftimer(ulong pc) {
1991/1006		if(kprof.time == 0) return;
1990/1004		/* * if the pc is coming out of slplo pr splx, then use * the pc saved when we went splhi.
1991/0427/sys/src/9/port/devkprof.c:167,177 – 1991/1006/sys/src/9/port/devkprof.c:160,170
1990/1004		if(pc>=(ulong)spllo && pc<=(ulong)spldone) pc = m->splpc;
1990/0928
1990/03292		timerbuf[0]++; if(KTZERO<=pc && pc<KTZERO+MAXPC){
1990/0330		pc -= KTZERO;
1991/1006		kprof.buf[0]++; if(kprof.minpc<=pc && pc<kprof.maxpc){ pc -= kprof.minpc;
1990/0330		pc >>= LRES;
1990/03292		timerbuf[pc]++;
1991/1006		kprof.buf[pc]++;
1990/0331		} else timerbuf[1]++;
1991/1006		kprof.buf[1]++;
1990/03292		}