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

1991/0411/sys/src/9/port/devkprof.c:1,177 – 1991/0419/sys/src/9/port/devkprof.c:1,183 (short | long | prev | next)
1990/0330		#include "u.h" #include "lib.h" #include "mem.h" #include "dat.h" #include "fns.h" #include "errno.h"
1990/03292
1990/0330		#include "devtab.h"
1990/03292		#define MAXPC (100*1024L) #define RES 8 #define LRES 3 #define NBUF (MAXPC>>LRES) long timerbuf[NBUF]; enum{ Kprofdirqid, Kprofdataqid, Kprofstartqid, Kprofstartclrqid, Kprofstopqid, Nkproftab=Kprofstopqid, Kprofmaxqid, }; Dirtab kproftab[Nkproftab]={
1990/0330		"kpdata", Kprofdataqid, NBUF*sizeof timerbuf[0], 0600, "kpstart", Kprofstartqid, 0, 0600, "kpstartclr", Kprofstartclrqid, 0, 0600, "kpstop", Kprofstopqid, 0, 0600,
1990/03292		};
1990/1004		void kproftimer(ulong);
1990/03292		void
1990/0330		kprofreset(void) {
1990/1004		kprofp = kproftimer;
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);
1990/03292		} Chan * kprofclone(Chan *c, Chan *nc) {
1990/0330		return devclone(c, nc);
1990/03292		} int kprofwalk(Chan *c, char *name) { return devwalk(c, name, kproftab, (long)Nkproftab, devgen); }
1991/0419		Chan* kprofclwalk(Chan *c, char *name) { return devclwalk(c, name); }
1990/03292		void
1990/0330		kprofstat(Chan *c, char *db)
1990/03292		{ devstat(c, db, kproftab, (long)Nkproftab, devgen); } Chan *
1990/0330		kprofopen(Chan *c, int omode)
1990/03292		{
1990/0330		if(c->qid == CHDIR){ if(omode != OREAD) error(0, Eperm); } c->mode = openmode(omode); c->flag |= COPEN; c->offset = 0;
1990/03292		return c; } void kprofcreate(Chan *c, char *name, int omode, ulong perm) {
1990/0330		error(0, Eperm);
1990/03292		} void kprofremove(Chan *c) {
1990/0330		error(0, Eperm);
1990/03292		} void
1990/0330		kprofwstat(Chan *c, char *dp)
1990/03292		{
1990/0330		error(0, Eperm);
1990/03292		} void kprofclose(Chan *c) { }
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)){ case Kprofdirqid:
1990/0330		return devdirread(c, a, n, kproftab, Nkproftab, devgen);
1990/03292		case Kprofdataqid:
1991/0411		if(offset >= NBUF*sizeof timerbuf[0]){
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);
1990/03292		break; default: n=0; break; } return n; } 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();
1990/03292		break; case Kprofstopqid:
1990/0330		duartstoptimer();
1990/03292		break; default:
1990/0330		error(0, Ebadusefd);
1990/03292		} return n; } void kproftimer(ulong pc) {
1990/1004		/* * if the pc is coming out of slplo pr splx, then use * the pc saved when we went splhi. */ 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; pc >>= LRES;
1990/03292		timerbuf[pc]++;
1990/0331		} else timerbuf[1]++;
1990/03292		}