summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/sha/asm/sha1-586.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/sha/asm/sha1-586.pl')
-rw-r--r--src/lib/libcrypto/sha/asm/sha1-586.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lib/libcrypto/sha/asm/sha1-586.pl b/src/lib/libcrypto/sha/asm/sha1-586.pl
index d29ed84706..1de5e2650e 100644
--- a/src/lib/libcrypto/sha/asm/sha1-586.pl
+++ b/src/lib/libcrypto/sha/asm/sha1-586.pl
@@ -28,7 +28,7 @@
28# P4 +85%(!) +45% 28# P4 +85%(!) +45%
29# 29#
30# As you can see Pentium came out as looser:-( Yet I reckoned that 30# As you can see Pentium came out as looser:-( Yet I reckoned that
31# improvement on P4 outweights the loss and incorporate this 31# improvement on P4 outweighs the loss and incorporate this
32# re-tuned code to 0.9.7 and later. 32# re-tuned code to 0.9.7 and later.
33# ---------------------------------------------------------------- 33# ----------------------------------------------------------------
34# <appro@fy.chalmers.se> 34# <appro@fy.chalmers.se>
@@ -511,14 +511,14 @@ my $_ror=sub { &ror(@_) };
511# 511#
512# Temporary registers usage. X[2] is volatile at the entry and at the 512# Temporary registers usage. X[2] is volatile at the entry and at the
513# end is restored from backtrace ring buffer. X[3] is expected to 513# end is restored from backtrace ring buffer. X[3] is expected to
514# contain current K_XX_XX constant and is used to caclulate X[-1]+K 514# contain current K_XX_XX constant and is used to calculate X[-1]+K
515# from previous round, it becomes volatile the moment the value is 515# from previous round, it becomes volatile the moment the value is
516# saved to stack for transfer to IALU. X[4] becomes volatile whenever 516# saved to stack for transfer to IALU. X[4] becomes volatile whenever
517# X[-4] is accumulated and offloaded to backtrace ring buffer, at the 517# X[-4] is accumulated and offloaded to backtrace ring buffer, at the
518# end it is loaded with next K_XX_XX [which becomes X[3] in next 518# end it is loaded with next K_XX_XX [which becomes X[3] in next
519# round]... 519# round]...
520# 520#
521sub Xupdate_ssse3_16_31() # recall that $Xi starts wtih 4 521sub Xupdate_ssse3_16_31() # recall that $Xi starts with 4
522{ use integer; 522{ use integer;
523 my $body = shift; 523 my $body = shift;
524 my @insns = (&$body,&$body,&$body,&$body); # 40 instructions 524 my @insns = (&$body,&$body,&$body,&$body); # 40 instructions
@@ -940,7 +940,7 @@ my $_ror=sub { &shrd(@_[0],@_) };
940 &vmovdqa(&QWP(0+32,"esp"),@X[2]); 940 &vmovdqa(&QWP(0+32,"esp"),@X[2]);
941 &jmp (&label("loop")); 941 &jmp (&label("loop"));
942 942
943sub Xupdate_avx_16_31() # recall that $Xi starts wtih 4 943sub Xupdate_avx_16_31() # recall that $Xi starts with 4
944{ use integer; 944{ use integer;
945 my $body = shift; 945 my $body = shift;
946 my @insns = (&$body,&$body,&$body,&$body); # 40 instructions 946 my @insns = (&$body,&$body,&$body,&$body); # 40 instructions