OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tue Feb 3 14:25:25 1998 Brent Baccala <baccala@freesoft.org> 

* bbconv.pl: New file.
	* Makefile.am (EXTRA_DIST): Add bbconv.pl.
	* Makefile.in: Rebuild.
This commit is contained in:
Ian Lance Taylor 1998-02-04 00:45:10 +00:00
parent e2fd423145
commit 249da91694
5 changed files with 43 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gprof/.Sanitize
View File

@ -37,6 +37,7 @@ aclocal.m4
alpha.c
basic_blocks.c
basic_blocks.h
bbconv.pl
bsd_callg_bl.m
call_graph.c
call_graph.h

4
gprof/ChangeLog
View File

@ -1,5 +1,9 @@
Tue Feb 3 14:25:25 1998 Brent Baccala <baccala@freesoft.org>
* bbconv.pl: New file.
* Makefile.am (EXTRA_DIST): Add bbconv.pl.
* Makefile.in: Rebuild.
* gprof.texi: Extensive additions to document all arguments and
output formats.

2
gprof/Makefile.am
View File

@ -21,7 +21,7 @@ noinst_HEADERS = \
core.h gmon.h gmon_io.h gmon_out.h gprof.h hertz.h hist.h \
search_list.h source.h sym_ids.h symtab.h utils.h
EXTRA_DIST = flat_bl.c bsd_callg_bl.c fsf_callg_bl.c
EXTRA_DIST = flat_bl.c bsd_callg_bl.c fsf_callg_bl.c bbconv.pl
BUILT_SOURCES = flat_bl.c bsd_callg_bl.c fsf_callg_bl.c

2
gprof/Makefile.in
View File

@ -87,7 +87,7 @@ noinst_HEADERS = \
core.h gmon.h gmon_io.h gmon_out.h gprof.h hertz.h hist.h \
search_list.h source.h sym_ids.h symtab.h utils.h
EXTRA_DIST = flat_bl.c bsd_callg_bl.c fsf_callg_bl.c
EXTRA_DIST = flat_bl.c bsd_callg_bl.c fsf_callg_bl.c bbconv.pl
BUILT_SOURCES = flat_bl.c bsd_callg_bl.c fsf_callg_bl.c

36
gprof/bbconv.pl Executable file
View File

@ -0,0 +1,36 @@
#! /usr/bin/perl
# This script converts a "bb.out" file into a format
# suitable for processing by gprof
# Write a new-style gmon header
print pack("A4Ix12", "gmon", 1);
# The input file format contains header lines and data lines.
# Header lines contain a count of how many data lines follow before
# the next header line. $blockcount is set to the count that
# appears in each header line, then decremented at each data line.
# $blockcount should always be zero at the start of a header line,
# and should never be zero at the start of a data line.
$blockcount=0;
while (<>) {
if (/^File .*, ([0-9]+) basic blocks/) {
print STDERR "Miscount: line $.\n" if ($blockcount != 0);
$blockcount = $1;
print pack("cI", 2, $blockcount);
}
if (/Block.*executed([ 0-9]+) time.* address= 0x([0-9a-fA-F]*)/) {
print STDERR "Miscount: line $.\n" if ($blockcount == 0);
$blockcount-- if ($blockcount > 0);
$count = $1;
$addr = hex $2;
print pack("II",$addr,$count);
}
}