diff options
author | Andy Polyakov <appro@openssl.org> | 2017-02-10 11:27:54 +0100 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2017-02-10 20:34:02 +0100 |
commit | 88be429f2ed04f0acc71f7fd5456174c274f2f76 (patch) | |
tree | 827ad1312bc3376718fe74814521701e6f176fca /crypto/perlasm/x86_64-xlate.pl | |
parent | fa3f83552f53447deced45579865cec9f55a947e (diff) |
perlasm/x86_64-xlate.pl: fix pair of typo-bugs in the new cfi_directive.
.cfi_{start|end}proc and .cfi_def_cfa were not tracked.
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/2585)
Diffstat (limited to 'crypto/perlasm/x86_64-xlate.pl')
-rwxr-xr-x | crypto/perlasm/x86_64-xlate.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl index a6cf012159..2013043a01 100755 --- a/crypto/perlasm/x86_64-xlate.pl +++ b/crypto/perlasm/x86_64-xlate.pl @@ -633,7 +633,7 @@ my %globals; my $self = {}; my $ret; - if ($$line =~ s/^\s*\.cfi_(\w+)\s+//) { + if ($$line =~ s/^\s*\.cfi_(\w+)\s*//) { bless $self,$class; $ret = $self; undef $self->{value}; @@ -656,7 +656,7 @@ my %globals; && do { $cfa_rsp -= 1*eval($$line) if ($cfa_reg eq "%rsp"); last; }; - /def_cfa/ && do { if ($$line =~ /(%r\w+)\s*,\s*(\.+)/) { + /def_cfa/ && do { if ($$line =~ /(%r\w+)\s*,\s*(.+)/) { $cfa_reg = $1; $cfa_rsp = -1*eval($2) if ($cfa_reg eq "%rsp"); } |