void
iprofile(void)
{
Prof *p, *n;
int i, b, e;
ulong total;
extern ulong textbase;
i = 0;
p = prof;
if(textsym(&p->s, i) == 0)
return;
i++;
for(;;) {
n = p+1;
if(textsym(&n->s, i) == 0)
break;
b = (p->s.value-textbase)/PROFGRAN;
e = (n->s.value-textbase)/PROFGRAN;
while(b < e)
p->count += iprof[b++];
i++;
p = n;
}
qsort(prof, i, sizeof(Prof), profcmp);
total = 0;
for(b = 0; b < i; b++)
total += prof[b].count;
Bprint(bioout, " cycles %% symbol file\n");
for(b = 0; b < i; b++) {
if(prof[b].count == 0)
continue;
Bprint(bioout, "%8ld %3ld.%ld %-15s ",
prof[b].count,
100*prof[b].count/total,
(1000*prof[b].count/total)%10,
prof[b].s.name);
printsource(prof[b].s.value);
Bputc(bioout, '\n');
}
memset(prof, 0, sizeof(Prof)*i);
}
void
main(int argc, char *argv[])
{
int fd;
long i, j, k, n;
Dir *d;
char *name;
ulong *data;
ulong tbase, sum;
long delta;
Symbol s;
Biobuf outbuf;
Fhdr f;
struct COUNTER *cp;
char filebuf[128], *file;
if(argc != 2 && argc != 3)
error(0, "usage: tprof pid [binary]");
/*
* Read symbol table
*/
if(argc == 2){
file = filebuf;
snprint(filebuf, sizeof filebuf, "/proc/%s/text", argv[1]);
}else
file = argv[2];
fd = open(file, OREAD);
if(fd < 0)
error(1, file);
if (!crackhdr(fd, &f))
error(1, "read text header");
if (f.type == FNONE)
error(0, "text file not an a.out");
machbytype(f.type);
if (syminit(fd, &f) < 0)
error(1, "syminit");
close(fd);
/*
* Read timing data
*/
file = smprint("/proc/%s/profile", argv[1]);
fd = open(file, OREAD);
if(fd < 0)
error(1, file);
free(file);
d = dirfstat(fd);
if(d == nil)
error(1, "stat");
n = d->length/sizeof(data[0]);
if(n < 2)
error(0, "data file too short");
data = malloc(d->length);
if(data == 0)
error(1, "malloc");
if(read(fd, data, d->length) < 0)
error(1, "text read");
close(fd);
for(i=0; i<n; i++)
data[i] = machdata->swal(data[i]);
delta = data[0]-data[1];
print("total: %ld\n", data[0]);
if(data[0] == 0)
exits(0);
if (!textsym(&s, 0))
error(0, "no text symbols");
tbase = s.value & ~(mach->pgsize-1); /* align down to page */
print("TEXT %.8lux\n", tbase);
/*
* Accumulate counts for each function
*/
cp = 0;
k = 0;
for (i = 0, j = (s.value-tbase)/PCRES+2; j < n; i++) {
name = s.name; /* save name */
if (!textsym(&s, i)) /* get next symbol */
break;
sum = 0;
while (j < n && j*PCRES < s.value-tbase)
sum += data[j++];
if (sum) {
cp = realloc(cp, (k+1)*sizeof(struct COUNTER));
if (cp == 0)
error(1, "realloc");
cp[k].name = name;
cp[k].time = sum;
k++;
}
}
if (!k)
error(0, "no counts");
cp[k].time = 0; /* "etext" can take no time */
/*
* Sort by time and print
*/
qsort(cp, k, sizeof(struct COUNTER), compar);
Binit(&outbuf, 1, OWRITE);
Bprint(&outbuf, " ms %% sym\n");
while(--k>=0)
Bprint(&outbuf, "%6ld\t%3lld.%lld\t%s\n",
cp[k].time,
100LL*cp[k].time/delta,
(1000LL*cp[k].time/delta)%10,
cp[k].name);
exits(0);
}
void
main(int argc, char *argv[])
{
int fd;
long i, j, k, n;
Dir *d;
char *name;
ulong *data;
ulong tbase, sum;
long delta;
Symbol s;
Biobuf outbuf;
Fhdr f;
struct COUNTER *cp;
if(argc != 3)
error(0, "usage: kprof text data");
/*
* Read symbol table
*/
fd = open(argv[1], OREAD);
if(fd < 0)
error(1, argv[1]);
if (!crackhdr(fd, &f))
error(1, "read text header");
if (f.type == FNONE)
error(0, "text file not an a.out");
if (syminit(fd, &f) < 0)
error(1, "syminit");
close(fd);
/*
* Read timing data
*/
fd = open(argv[2], OREAD);
if(fd < 0)
error(1, argv[2]);
if((d = dirfstat(fd)) == nil)
error(1, "stat");
n = d->length/sizeof(data[0]);
if(n < 2)
error(0, "data file too short");
data = malloc(d->length);
if(data == 0)
error(1, "malloc");
if(read(fd, data, d->length) < 0)
error(1, "text read");
close(fd);
free(d);
for(i=0; i<n; i++)
data[i] = beswal(data[i]);
pcres = 1 << data[SpecialSampleLogBucketSize];
uspertick = data[SpecialMicroSecondsPerTick];
if (data[SpecialSampleSize] != sizeof(data[0]))
error(0, "only sample size 4 supported\n");
delta = data[SpecialTotalTicks] - data[SpecialOutsideTicks];
print("total: %lud in kernel text: %lud outside kernel text: %lud\n",
data[0], delta, data[1]);
if(data[0] == 0)
exits(0);
if (!textsym(&s, 0))
error(0, "no text symbols");
tbase = s.value & ~(mach->pgsize-1); /* align down to page */
print("KTZERO %.8lux\n", tbase);
/*
* Accumulate counts for each function
*/
cp = 0;
k = 0;
for (i = 0, j = (s.value-tbase)/pcres+SpecialMax; j < n; i++) {
name = s.name; /* save name */
if (!textsym(&s, i)) /* get next symbol */
break;
sum = 0;
while (j < n && j*pcres < s.value-tbase)
sum += data[j++];
if (sum) {
cp = realloc(cp, (k+1)*sizeof(struct COUNTER));
if (cp == 0)
error(1, "realloc");
cp[k].name = name;
cp[k].time = sum;
k++;
}
}
if (!k)
error(0, "no counts");
cp[k].time = 0; /* "etext" can take no time */
/*
* Sort by time and print
*/
qsort(cp, k, sizeof(struct COUNTER), compar);
Binit(&outbuf, 1, OWRITE);
Bprint(&outbuf, "ms %% sym\n");
while(--k>=0)
Bprint(&outbuf, "%lud\t%3lud.%ld\t%s\n",
tickstoms(cp[k].time),
100*cp[k].time/delta,
(1000*cp[k].time/delta)%10,
cp[k].name);
exits(0);
}
void
main(int argc, char *argv[])
{
int fd;
int32_t i, j, k, n;
char *name;
uint32_t *data;
int64_t tbase;
uint32_t sum;
int32_t delta;
Symbol s;
Biobuf outbuf;
Fhdr f;
Dir *d;
struct COUNTER *cp;
if(argc != 3)
error(0, "usage: kprof text data");
/*
* Read symbol table
*/
fd = open(argv[1], OREAD);
if(fd < 0)
error(1, argv[1]);
if (!crackhdr(fd, &f))
error(1, "read text header");
if (f.type == FNONE)
error(0, "text file not an a.out");
if (syminit(fd, &f) < 0)
error(1, "syminit");
close(fd);
/*
* Read timing data
*/
fd = open(argv[2], OREAD);
if(fd < 0)
error(1, argv[2]);
d = dirfstat(fd);
if(d == nil)
error(1, "stat");
n = d->length/sizeof(data[0]);
if(n < 2)
error(0, "data file too short");
data = malloc(d->length);
if(data == 0)
error(1, "malloc");
if(read(fd, data, d->length) < 0)
error(1, "text read");
close(fd);
for(i=0; i<n; i++)
data[i] = beswal(data[i]);
delta = data[0]-data[1];
print("total: %ld in kernel text: %ld outside kernel text: %ld\n",
data[0], delta, data[1]);
if(data[0] == 0)
exits(0);
if (!textsym(&s, 0))
error(0, "no text symbols");
tbase = mach->kbase;
if(tbase != s.value & ~0xFFF)
print("warning: kbase %.8llux != tbase %.8llux\n",
tbase, s.value&~0xFFF);
print("KTZERO %.8llux PGSIZE %dKb\n", tbase, mach->pgsize/1024);
/*
* Accumulate counts for each function
*/
cp = 0;
k = 0;
for (i = 0, j = 2; j < n; i++) {
name = s.name; /* save name */
if (!textsym(&s, i)) /* get next symbol */
break;
s.value -= tbase;
s.value /= PCRES;
sum = 0;
while (j < n && j < s.value)
sum += data[j++];
if (sum) {
cp = realloc(cp, (k+1)*sizeof(struct COUNTER));
if (cp == 0)
error(1, "realloc");
cp[k].name = name;
cp[k].time = sum;
k++;
}
}
if (!k)
error(0, "no counts");
cp[k].time = 0; /* "etext" can take no time */
/*
* Sort by time and print
*/
qsort(cp, k, sizeof(struct COUNTER), compar);
Binit(&outbuf, 1, OWRITE);
Bprint(&outbuf, "ms %% sym\n");
while(--k>=0)
Bprint(&outbuf, "%ld\t%3lld.%lld\t%s\n",
cp[k].time,
100LL*cp[k].time/delta,
(1000LL*cp[k].time/delta)%10,
cp[k].name);
exits(0);
}
