-#!/usr/bin/perl -w
+#!/usr/bin/env perl
# 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;
if($size != 0) {
# This is a crude hack to disable the stack cleaning on the main
- # stack. It rellies 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 heap (lower).
print("\tmovq \$0x7fff00000000, %r11\n");
print("\tcmpq %r11, %rsp\n");
print("\tjae .Lstack_cleaner_done$id\n");