1992/0319/port/devkprof.c (diff list | history)

1992/0319/sys/src/9/port/devkprof.c:1,200 – 1992/0321/sys/src/9/port/devkprof.c:1,200 (short | long | prev | next)
Move lib.h to ../port. rsc Fri Mar 4 12:44:25 2005
1990/0330		#include "u.h" #include "lib.h"
1992/0321		#include "../port/lib.h"
1990/0330		#include "mem.h" #include "dat.h" #include "fns.h"
1992/0111		#include "../port/error.h"
1990/03292
1990/0330		#include "devtab.h"
1990/03292
1991/1006		#define LRES 3 /* log of PC resolution */
1992/0122		#define SZ 4 /* sizeof of count cell; well known as 4 */
1990/03292
1991/1011		struct {
1991/1006		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) {
1992/0122		ulong n;
1991/1006		kprof.minpc = KTZERO;
1992/0319		kprof.maxpc = (ulong)etext;
1991/1006		kprof.nbuf = (kprof.maxpc-kprof.minpc) >> LRES;
1992/0122		n = kprof.nbuf*SZ; kprof.buf = ialloc(n, 0); kproftab[0].length = n; if(SZ != sizeof kprof.buf[0]) panic("kprof size");
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/1115		USED(c, name, omode, perm);
1991/1006		error(Eperm);
1990/03292		} void kprofremove(Chan *c) {
1991/1115		USED(c);
1991/1006		error(Eperm);
1990/03292		} void
1990/0330		kprofwstat(Chan *c, char *dp)
1990/03292		{
1991/1115		USED(c, dp);
1991/1006		error(Eperm);
1990/03292		} void kprofclose(Chan *c) {
1991/1115		USED(c);
1990/03292		} long
1992/0122		kprofread(Chan *c, void *va, long n, ulong offset)
1990/03292		{
1991/1006		ulong end;
1992/0122		ulong w, *bp; uchar *a, *ea; switch(c->qid.path & ~CHDIR){
1990/03292		case Kprofdirqid:
1992/0122		return devdirread(c, va, n, kproftab, Nkproftab, devgen);
1990/03292		case Kprofdataqid:
1992/0122		end = kprof.nbuf*SZ; if(offset & (SZ-1)) error(Ebadarg);
1991/1006		if(offset >= end){
1990/0330		n = 0;
1990/03292		break; }
1991/1006		if(offset+n > end) n = end-offset;
1992/0122		n &= ~(SZ-1); a = va; ea = a + n; bp = kprof.buf + offset/SZ; while(a < ea){ w = *bp++; *a++ = w>>24; *a++ = w>>16; *a++ = w>>8; *a++ = w>>0; }
1990/03292		break;
1992/0122
1990/03292		default:
1992/0122		n = 0;
1990/03292		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){
1992/0122		memset((char *)kprof.buf, 0, kprof.nbuf*SZ);
1991/1006		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/1009		extern void spldone(void);
1991/1006		if(kprof.time == 0) return;
1990/1004		/*
1992/0124		* if the pc is coming out of spllo or splx,
1992/0122		* use the pc saved when we went splhi.
1990/1004		*/ if(pc>=(ulong)spllo && pc<=(ulong)spldone) pc = m->splpc;
1990/0928
1992/0122		kprof.buf[0] += TK2MS(1);
1991/1006		if(kprof.minpc<=pc && pc<kprof.maxpc){ pc -= kprof.minpc;
1990/0330		pc >>= LRES;
1992/0122		kprof.buf[pc] += TK2MS(1);
1992/0123		}else
1992/0122		kprof.buf[1] += TK2MS(1);
1990/03292		}