#!/usr/bin/perl -w
#

$fn = shift;

@objdump = `objdump -dr $fn`;


while($_=shift @objdump){
	chomp;
	if(m/^\w+\.o:\s+file format.*/){
		$obj = $_;
		$obj =~ s/^(\w+\.o):\s+file format.*/$1/;
	}
	if(m/^0[0-9a-fA-F]+\s<\w+>:$/){
		$func = $_;
		$func =~ s/^0[0-9a-fA-F]+\s<(\w+)>:$/$1/;

	}
	if(m/\ssub\s.*\$(0x\w+),\%esp/){
		print "$func $1\n";
	}
}

