A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added platform for ns3 wifi example
[simgrid.git]
/
tools
/
stack-cleaner
/
clean-stack-filter
diff --git
a/tools/stack-cleaner/clean-stack-filter
b/tools/stack-cleaner/clean-stack-filter
index a2f91aa0add4e9e8d9ffe83fa76d0816a1aeb212..8b15cd7c0f966a9df0ba9acddf90a762153ab63a 100755
(executable)
--- a/
tools/stack-cleaner/clean-stack-filter
+++ b/
tools/stack-cleaner/clean-stack-filter
@@
-1,9
+1,10
@@
-#!/usr/bin/
perl -w
+#!/usr/bin/
env perl
# Transform assembly in order to clean each stack frame for X86_64.
use strict;
# Transform assembly in order to clean each stack frame for X86_64.
use strict;
-
$SIG{__WARN__} = sub { die @_ }
;
+
use warnings
;
+$SIG{__WARN__} = sub { die @_ };
# Whether we are still scanning the content of a function:
our $scanproc = 0;
# Whether we are still scanning the content of a function:
our $scanproc = 0;
@@
-14,7
+15,6
@@
our $lines = "";
# Size of the stack for this function:
our $size = 0;
# Size of the stack for this function:
our $size = 0;
-
# Counter for assigning unique ids to labels:
our $id=0;
# Counter for assigning unique ids to labels:
our $id=0;
@@
-51,14
+51,14
@@
while (<>) {
if ($scanproc) {
$lines = $lines . $_;
if (m/^[ \t]*.cfi_endproc$/) {
if ($scanproc) {
$lines = $lines . $_;
if (m/^[ \t]*.cfi_endproc$/) {
-
emit_code();
+ emit_code();
} elsif (m/^[ \t]*pushq/) {
} elsif (m/^[ \t]*pushq/) {
- $size += 8;
+ $size += 8;
} elsif (m/^[ \t]*subq[\t *]\$([0-9]*),[ \t]*%rsp$/) {
} elsif (m/^[ \t]*subq[\t *]\$([0-9]*),[ \t]*%rsp$/) {
-
my $val = $1;
-
$val = oct($val) if $val =~ /^0/;
-
$size += $val;
-
emit_code();
+ my $val = $1;
+ $val = oct($val) if $val =~ /^0/;
+ $size += $val;
+ emit_code();
}
} elsif (m/^[ \t]*.cfi_startproc$/) {
print $_;
}
} elsif (m/^[ \t]*.cfi_startproc$/) {
print $_;