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

rc4-x86_64 portability fix.

Browse Source
This commit is contained in:
Andy Polyakov
2008-01-12 11:29:45 +00:00
parent f12797a447
commit a078befcbe
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -82,12 +82,12 @@ my $current_function;
$line = substr($line,@+[0]); $line =~ s/^\s+//;
undef $self->{sz};
if ($self->{op} =~ /(movz)b.*/) { # movz is pain...
if ($self->{op} =~ /^(movz)b.*/) { # movz is pain...
$self->{op} = $1;
$self->{sz} = "b";
} elsif ($self->{op} =~ /call/) {
$self->{sz} = ""
} elsif ($self->{op} =~ /([a-z]{3,})([qlwb])/) {
} elsif ($self->{op} =~ /([a-z]{3,})([qlwb])$/) {
$self->{op} = $1;
$self->{sz} = $2;
}
@@ -113,7 +113,7 @@ my $current_function;
"$self->{op}$self->{sz}";
}
} else {
$self->{op} =~ s/movz/movzx/;
$self->{op} =~ s/^movz/movzx/;
if ($self->{op} eq "ret") {
$self->{op} = "";
if ($current_function->{abi} eq "svr4") {