From 88be429f2ed04f0acc71f7fd5456174c274f2f76 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Fri, 10 Feb 2017 11:27:54 +0100 Subject: 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 (Merged from https://github.com/openssl/openssl/pull/2585) --- crypto/perlasm/x86_64-xlate.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'crypto/perlasm') 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"); } -- cgit v1.2.3