diff options
Diffstat (limited to 'src/lib/libcrypto/sha/asm/sha1-586.pl')
-rw-r--r-- | src/lib/libcrypto/sha/asm/sha1-586.pl | 8 |
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 | # |
521 | sub Xupdate_ssse3_16_31() # recall that $Xi starts wtih 4 | 521 | sub 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 | ||
943 | sub Xupdate_avx_16_31() # recall that $Xi starts wtih 4 | 943 | sub 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 |