aboutsummaryrefslogtreecommitdiffstats
path: root/crypto/x86cpuid.pl
diff options
context:
space:
mode:
authorAndy Polyakov <appro@openssl.org>2012-04-28 10:36:58 +0000
committerAndy Polyakov <appro@openssl.org>2012-04-28 10:36:58 +0000
commitf9c5e5d92e75ccff046774494b9904d849148e5f (patch)
treea4bbb971c50bcebf43e47b3abce960437fb27fa4 /crypto/x86cpuid.pl
parent9474483ab7bd006a1f3c96f52d78317c60c80abf (diff)
downloadopenssl-f9c5e5d92e75ccff046774494b9904d849148e5f.tar.gz
perlasm: fix symptom-less bugs, missing semicolons and 'my' declarations.
Diffstat (limited to 'crypto/x86cpuid.pl')
-rw-r--r--crypto/x86cpuid.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/crypto/x86cpuid.pl b/crypto/x86cpuid.pl
index a1285b9d00..808049a17d 100644
--- a/crypto/x86cpuid.pl
+++ b/crypto/x86cpuid.pl
@@ -165,7 +165,7 @@ for (@ARGV) { $sse2=1 if (/-DOPENSSL_IA32_SSE2/); }
&jnz (&label("nohalt")); # not enough privileges
&pushf ();
- &pop ("eax")
+ &pop ("eax");
&bt ("eax",9);
&jnc (&label("nohalt")); # interrupts are disabled
@@ -196,7 +196,7 @@ for (@ARGV) { $sse2=1 if (/-DOPENSSL_IA32_SSE2/); }
&function_begin_B("OPENSSL_far_spin");
&pushf ();
- &pop ("eax")
+ &pop ("eax");
&bt ("eax",9);
&jnc (&label("nospin")); # interrupts are disabled
@@ -280,7 +280,7 @@ for (@ARGV) { $sse2=1 if (/-DOPENSSL_IA32_SSE2/); }
# arguments is 1 or 2!
&function_begin_B("OPENSSL_indirect_call");
{
- my $i,$max=7; # $max has to be chosen as 4*n-1
+ my ($max,$i)=(7,); # $max has to be chosen as 4*n-1
# in order to preserve eventual
# stack alignment
&push ("ebp");