generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

x86_64-xlate.pl: new gas requires sign extension.

Browse Source 
x86masm.pl: fix linker warning.
PR: 2094,2095
This commit is contained in:
Andy Polyakov
2009-11-22 12:52:18 +00:00
parent 87827be0c2
commit 29c8d2a54a
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
crypto/perlasm/x86_64-xlate.pl
View File

@@ -241,8 +241,9 @@ my %globals;
if ($gas) { if ($gas) {
# Solaris /usr/ccs/bin/as can't handle multiplications # Solaris /usr/ccs/bin/as can't handle multiplications
# in $self->{label} # in $self->{label}, new gas requires sign extentions...
$self->{label} =~ s/(?<![0-9a-f])(0[x0-9a-f]+)/oct($1)/egi; user integer;
$self->{label} =~ s/(?<![0-9a-f])(0[x0-9a-f]+)/oct($1)<<32>>32/egi;
$self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; $self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;
$self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64"); $self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64");

2
crypto/perlasm/x86masm.pl
View File

@@ -128,7 +128,7 @@ ___
if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out) if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out)
{ my $comm=<<___; { my $comm=<<___;
.bss SEGMENT .bss SEGMENT 'BSS'
COMM ${nmdecor}OPENSSL_ia32cap_P:DWORD COMM ${nmdecor}OPENSSL_ia32cap_P:DWORD
.bss ENDS .bss ENDS
___ ___