wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

x86_64-xlate.pl: fix LNK4078 and LNK4210 link warnings [from HEAD].

Browse source 
PR: 2356
This commit is contained in:
Andy Polyakov 2010-10-10 21:12:18 +00:00
parent 3fa29765fd
commit 7202a4d42b
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
crypto/perlasm/x86_64-xlate.pl
View file

@ -167,7 +167,7 @@ my %globals;
} elsif ($self->{op} =~ /^(pop|push)f/) { } elsif ($self->{op} =~ /^(pop|push)f/) {
$self->{op} .= $self->{sz}; $self->{op} .= $self->{sz};
} elsif ($self->{op} eq "call" && $current_segment eq ".CRT\$XCU") { } elsif ($self->{op} eq "call" && $current_segment eq ".CRT\$XCU") {
$self->{op} = "ALIGN\t8\n\tDQ"; $self->{op} = "\tDQ";
} }
$self->{op}; $self->{op};
} }
@ -545,6 +545,8 @@ my %globals;
if ($line=~/\.([px])data/) { if ($line=~/\.([px])data/) {
$v.=" rdata align="; $v.=" rdata align=";
$v.=$1 eq "p"? 4 : 8; $v.=$1 eq "p"? 4 : 8;
} elsif ($line=~/\.CRT\$/i) {
$v.=" rdata align=8";
} }
} else { } else {
$v="$current_segment\tENDS\n" if ($current_segment); $v="$current_segment\tENDS\n" if ($current_segment);
@ -552,6 +554,8 @@ my %globals;
if ($line=~/\.([px])data/) { if ($line=~/\.([px])data/) {
$v.=" READONLY"; $v.=" READONLY";
$v.=" ALIGN(".($1 eq "p" ? 4 : 8).")" if ($masm>=$masmref); $v.=" ALIGN(".($1 eq "p" ? 4 : 8).")" if ($masm>=$masmref);
} elsif ($line=~/\.CRT\$/i) {
$v.=" READONLY DWORD";
} }
} }
$current_segment = $line; $current_segment = $line;