From: Andy Polyakov Date: Mon, 4 Jun 2012 22:14:25 +0000 (+0000) Subject: x86gas.pl: update from HEAD. X-Git-Tag: OpenSSL_1_0_2-beta1~618 X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=6fba65e20ddac1545e7fc45ab2fe3495b99d3ab8;p=oweals%2Fopenssl.git x86gas.pl: update from HEAD. --- diff --git a/crypto/perlasm/x86gas.pl b/crypto/perlasm/x86gas.pl index 682a3a3163..4b8786bf42 100644 --- a/crypto/perlasm/x86gas.pl +++ b/crypto/perlasm/x86gas.pl @@ -170,10 +170,9 @@ sub ::data_short{ push(@out,".value\t".join(',',@_)."\n"); } sub ::data_word { push(@out,".long\t".join(',',@_)."\n"); } sub ::align -{ my $val=$_[0],$p2,$i; +{ my $val=$_[0]; if ($::aout) - { for ($p2=0;$val!=0;$val>>=1) { $p2++; } - $val=$p2-1; + { $val=int(log($val)/log(2)); $val.=",0x90"; } push(@out,".align\t$val\n");