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 | |
parent | 9474483ab7bd006a1f3c96f52d78317c60c80abf (diff) | |
download | openssl-f9c5e5d92e75ccff046774494b9904d849148e5f.tar.gz |
perlasm: fix symptom-less bugs, missing semicolons and 'my' declarations.
Diffstat (limited to 'crypto/perlasm')
-rw-r--r-- | crypto/perlasm/cbc.pl | 2 | ||||
-rw-r--r-- | crypto/perlasm/x86gas.pl | 5 |
2 files changed, 3 insertions, 4 deletions
diff --git a/crypto/perlasm/cbc.pl b/crypto/perlasm/cbc.pl index 6fc2510905..24561e759a 100644 --- a/crypto/perlasm/cbc.pl +++ b/crypto/perlasm/cbc.pl @@ -150,7 +150,7 @@ sub cbc &set_label("PIC_point"); &blindpop("edx"); &lea("ecx",&DWP(&label("cbc_enc_jmp_table")."-".&label("PIC_point"),"edx")); - &mov($count,&DWP(0,"ecx",$count,4)) + &mov($count,&DWP(0,"ecx",$count,4)); &add($count,"edx"); &xor("ecx","ecx"); &xor("edx","edx"); 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"); |