diff options
author | Wolfram Sang <w.sang@pengutronix.de> | 2010-01-05 19:27:51 +0100 |
---|---|---|
committer | Steven Rostedt <rostedt@goodmis.org> | 2010-01-06 13:32:39 -0500 |
commit | dc4f8845ee2ca39fe054a2d911729ffd269b4b66 (patch) | |
tree | fc6ffa93efde6eeb58edf276970b647660ce2a7b /scripts/recordmcount.pl | |
parent | 7e53bd42d14c75192b99674c40fcc359392da59d (diff) | |
download | kernel_samsung_tuna-dc4f8845ee2ca39fe054a2d911729ffd269b4b66.zip kernel_samsung_tuna-dc4f8845ee2ca39fe054a2d911729ffd269b4b66.tar.gz kernel_samsung_tuna-dc4f8845ee2ca39fe054a2d911729ffd269b4b66.tar.bz2 |
tracing: optimize recordmcount.pl for offsets-handling
- move check for open file in front of the writing loop
- use perl-constructs to access the array
Signed-off-by: Wolfram Sang <w.sang@pengutronix.de>
LKML-Reference: <1262716072-14414-2-git-send-email-w.sang@pengutronix.de>
Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
Diffstat (limited to 'scripts/recordmcount.pl')
-rwxr-xr-x | scripts/recordmcount.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/scripts/recordmcount.pl b/scripts/recordmcount.pl index 92f09fe..5de12c7 100755 --- a/scripts/recordmcount.pl +++ b/scripts/recordmcount.pl @@ -432,14 +432,14 @@ sub update_funcs # Loop through all the mcount caller offsets and print a reference # to the caller based from the ref_func. - for (my $i=0; $i <= $#offsets; $i++) { - if (!$opened) { - open(FILE, ">$mcount_s") || die "can't create $mcount_s\n"; - $opened = 1; - print FILE "\t.section $mcount_section,\"a\",$section_type\n"; - print FILE "\t.align $alignment\n" if (defined($alignment)); - } - printf FILE "\t%s %s + %d\n", $type, $ref_func, $offsets[$i] - $offset; + if (!$opened) { + open(FILE, ">$mcount_s") || die "can't create $mcount_s\n"; + $opened = 1; + print FILE "\t.section $mcount_section,\"a\",$section_type\n"; + print FILE "\t.align $alignment\n" if (defined($alignment)); + } + foreach my $cur_offset (@offsets) { + printf FILE "\t%s %s + %d\n", $type, $ref_func, $cur_offset - $offset; } } @@ -514,7 +514,7 @@ while (<IN>) { } # is this a call site to mcount? If so, record it to print later if ($text_found && /$mcount_regex/) { - $offsets[$#offsets + 1] = hex $1; + push(@offsets, hex $1); } } |