Commit 1cb35b47 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

perlasm/x86_64-xlate.pl: recognize even offset(%reg) in cfa_expression. 



This is handy when "offset(%reg)" is a perl variable.

Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent 86e11278

crypto/perlasm/x86_64-xlate.pl

+2 −0
Original line number Diff line number Diff line
@@ -610,6 +610,8 @@ my %globals; 
	foreach my $token (split(/,\s*/,$line)) {

	    if ($token =~ /^%r/) {

		push @ret,reg($token);

	    } elsif ($token =~ /((?:0x)?[0-9a-f]+)\((%r\w+)\)/) {

		push @ret,reg("$2+$1");

	    } elsif ($token =~ /(\w+):(\-?(?:0x)?[0-9a-f]+)(U?)/i) {

		my $i = 1*eval($2);

		push @ret,$DW_OP_complex{$1}, ($3 ? uleb128($i) : sleb128($i));