From: Andy Polyakov <appro@openssl.org>
Date: Wed, 4 May 2005 08:42:47 +0000 (+0000)
Subject: x86_64 assembler translator update.
X-Git-Tag: OpenSSL_0_9_8-beta1~13^2~53
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=70cf3095175b580db8222fc99a3125e7838150ae;p=oweals%2Fopenssl.git

x86_64 assembler translator update.
---

diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl
index c4c9b121de..3c3dbc2b89 100755
--- a/crypto/perlasm/x86_64-xlate.pl
+++ b/crypto/perlasm/x86_64-xlate.pl
@@ -113,12 +113,14 @@ my $current_function;
 	    $self->{value} = $1;
 	    $ret = $self;
 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
+
+	    $self->{value} = oct($self->{value}) if ($self->{value} =~ /^0/);
 	}
 	$ret;
     }
     sub out {
     	my $self = shift;
-	sprintf $masm?"%s":"\$%s",$self->{value};
+	sprintf $masm?"0%xh":"\$0x%x",$self->{value};
     }
 }
 { package ea;		# pick up effective addresses: expr(%reg,%reg,scale)
@@ -134,7 +136,6 @@ my $current_function;
 	    $ret = $self;
 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
 
-	    $self->{label} =~ s/\.L/\$L/g;
 	    $self->{base}  =~ s/^%//;
 	    $self->{index} =~ s/^%// if (defined($self->{index}));
 	}
@@ -152,7 +153,8 @@ my $current_function;
 	    $self->{base}  =~ s/^[er](.?[0-9xp])[d]?$/r\1/;
 
 	    if (defined($self->{index})) {
-		sprintf "%s(%%%s,%%%s,%d)",	$self->{label},$self->{base},
+		sprintf "%s(%%%s,%%%s,%d)",
+					$self->{label},$self->{base},
 					$self->{index},$self->{scale};
 	    }
 	    else {
@@ -161,6 +163,10 @@ my $current_function;
 	} else {
 	    %szmap = ( b=>"BYTE", w=>"WORD", l=>"DWORD", q=>"QWORD" );
 
+	    $self->{label} =~ s/\./\$/g;
+	    $self->{label} =~ s/0x([0-9a-f]+)/0$1h/ig;
+	    $self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/);
+
 	    if (defined($self->{index})) {
 		sprintf "%s PTR %s[%s*%d+%s]",$szmap{$sz},
 					$self->{label},