diff options
author | Andy Polyakov <appro@openssl.org> | 2012-04-28 10:36:58 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2012-04-28 10:36:58 +0000 |
commit | f9c5e5d92e75ccff046774494b9904d849148e5f (patch) | |
tree | a4bbb971c50bcebf43e47b3abce960437fb27fa4 /crypto/perlasm/x86gas.pl | |
parent | 9474483ab7bd006a1f3c96f52d78317c60c80abf (diff) |
perlasm: fix symptom-less bugs, missing semicolons and 'my' declarations.
Diffstat (limited to 'crypto/perlasm/x86gas.pl')
-rw-r--r-- | crypto/perlasm/x86gas.pl | 5 |
1 files changed, 2 insertions, 3 deletions
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"); |