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
[appveyor] disable MSVC for now. mingw-w64 is almost there
[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
95a3b52
..
64e7990
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;
@@
-24,8
+25,8
@@
sub emit_code {
if($size != 0) {
# This is a crude hack to disable the stack cleaning on the main
if($size != 0) {
# This is a crude hack to disable the stack cleaning on the main
- # stack. It rel
l
ies on the fact that the main stack is high in
- # the address space and the other stacks are in the hap (lower).
+ # stack. It relies on the fact that the main stack is high in
+ # the address space and the other stacks are in the h
e
ap (lower).
print("\tmovq \$0x7fff00000000, %r11\n");
print("\tcmpq %r11, %rsp\n");
print("\tjae .Lstack_cleaner_done$id\n");
print("\tmovq \$0x7fff00000000, %r11\n");
print("\tcmpq %r11, %rsp\n");
print("\tjae .Lstack_cleaner_done$id\n");