OLD | NEW |
1 #!/usr/bin/env perl | 1 #!/usr/bin/env perl |
2 | 2 |
3 # ==================================================================== | 3 # ==================================================================== |
4 # [Re]written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL | 4 # [Re]written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL |
5 # project. The module is, however, dual licensed under OpenSSL and | 5 # project. The module is, however, dual licensed under OpenSSL and |
6 # CRYPTOGAMS licenses depending on where you obtain it. For further | 6 # CRYPTOGAMS licenses depending on where you obtain it. For further |
7 # details see http://www.openssl.org/~appro/cryptogams/. | 7 # details see http://www.openssl.org/~appro/cryptogams/. |
8 # ==================================================================== | 8 # ==================================================================== |
9 | 9 |
10 # "[Re]written" was achieved in two major overhauls. In 2004 BODY_* | 10 # "[Re]written" was achieved in two major overhauls. In 2004 BODY_* |
(...skipping 197 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
208 &cmp($D,&wparam(2)); # have we reached the end yet? | 208 &cmp($D,&wparam(2)); # have we reached the end yet? |
209 &mov(&DWP(8,$tmp1),$A); | 209 &mov(&DWP(8,$tmp1),$A); |
210 &mov($E,$C); # C is last "E" which needs to be "pre-loaded" | 210 &mov($E,$C); # C is last "E" which needs to be "pre-loaded" |
211 &mov(&DWP(12,$tmp1),$B); | 211 &mov(&DWP(12,$tmp1),$B); |
212 &mov($T,$D); # input pointer | 212 &mov($T,$D); # input pointer |
213 &mov(&DWP(16,$tmp1),$C); | 213 &mov(&DWP(16,$tmp1),$C); |
214 &jb(&label("loop")); | 214 &jb(&label("loop")); |
215 | 215 |
216 &stack_pop(16); | 216 &stack_pop(16); |
217 &function_end("sha1_block_data_order"); | 217 &function_end("sha1_block_data_order"); |
| 218 &asciz("SHA1 block transform for x86, CRYPTOGAMS by <appro\@openssl.org>"); |
218 | 219 |
219 &asm_finish(); | 220 &asm_finish(); |
OLD | NEW |