Commit 6fa4c7c4 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

x86_64-xlate.pl: sha1 and md5 warnings made it to nasm 2.09, extend gnu 

assembler workaround to all assemblers.
parent 169a274a

crypto/perlasm/x86_64-xlate.pl

+7 −6
Original line number Diff line number Diff line
@@ -250,13 +250,14 @@ my %globals; 
	$self->{index} =~ s/^[er](.?[0-9xpi])[d]?$/r\1/;

	$self->{base}  =~ s/^[er](.?[0-9xpi])[d]?$/r\1/;



	if ($gas) {

	# Solaris /usr/ccs/bin/as can't handle multiplications

	# in $self->{label}, new gas requires sign extension...

	use integer;

	$self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi;

	$self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;

	$self->{label} =~ s/([0-9]+)/$1<<32>>32/eg;



	if ($gas) {

	    $self->{label} =~ s/^___imp_/__imp__/   if ($flavour eq "mingw64");



	    if (defined($self->{index})) {