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

port/devkprof.c on 1990/0330
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
1991/1006		#define LRES 3 /* log of PC resolution */
1990/03292
1991/1006		struct{ int minpc; int maxpc; int nbuf; int time; ulong *buf; }kprof;
1990/03292		enum{ Kprofdirqid, Kprofdataqid,
1991/1006		Kprofctlqid, Nkproftab=Kprofctlqid,
1990/03292		Kprofmaxqid, }; Dirtab kproftab[Nkproftab]={
1991/1006		"kpdata", {Kprofdataqid}, 0, 0600, "kpctl", {Kprofctlqid}, 0, 0600,
1990/03292		};
1990/1004		void kproftimer(ulong);
1990/03292		void
1990/0330		kprofreset(void) {
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) { } Chan * kprofattach(char *spec) {
1991/1006		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); } 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		{
1991/1006		if(c->qid.path == CHDIR){
1990/0330		if(omode != OREAD)
1991/1006		error(Eperm);
1990/0330		} c->mode = openmode(omode); c->flag |= COPEN; c->offset = 0;
1990/03292		return c; } void kprofcreate(Chan *c, char *name, int omode, ulong perm) {
1991/1006		error(Eperm);
1990/03292		} void kprofremove(Chan *c) {
1991/1006		error(Eperm);
1990/03292		} void
1990/0330		kprofwstat(Chan *c, char *dp)
1990/03292		{
1991/1006		error(Eperm);
1990/03292		} void kprofclose(Chan *c) { } long
1991/0411		kprofread(Chan *c, void *a, long n, ulong offset)
1990/03292		{
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/1006		end = kprof.nbuf*sizeof kprof.buf[0]; if(offset >= end){
1990/0330		n = 0;
1990/03292		break; }
1991/1006		if(offset+n > end) n = end-offset; memmove(a, ((char *)kprof.buf)+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		{
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; default:
1991/1006		error(Ebadusefd);
1990/03292		} return n; } 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. */ if(pc>=(ulong)spllo && pc<=(ulong)spldone) pc = m->splpc;
1990/0928
1991/1006		kprof.buf[0]++; if(kprof.minpc<=pc && pc<kprof.maxpc){ pc -= kprof.minpc;
1990/0330		pc >>= LRES;
1991/1006		kprof.buf[pc]++;
1990/0331		} else
1991/1006		kprof.buf[1]++;
1990/03292		}