6665607 Need a SHA256/SHA384/SHA512 implementation optimized for 64-bit x86

*** 174,184 ****
  
  sub PROLOGUE {
  my $func=shift;
  $code.=<<___;
  ENTRY_NP($func)
-         /* EXPORT DELETE START */
          push    %rbx
          push    %rbp
          push    %r12
          mov     %rsp,%rax
          mov     %rdi,$ctx       # reassigned argument
--- 174,183 ----
*** 201,211 ****
  $code.=<<___;
          mov     `16*4`(%rsp),%rsp
          pop     %r12
          pop     %rbp
          pop     %rbx
-         /* EXPORT DELETE END */
          ret
  SET_SIZE($func)
  ___
  }
  
--- 200,209 ----
*** 318,328 ****
  ___
  }
  
  $code=<<___;
  #if !defined(lint) && !defined(__lint)
!         .ident  "@(#)sha1-x86_64.pl     1.1     08/03/02 SMI"
  #include <sys/asm_linkage.h>
  ___
  
  
  &PROLOGUE("sha1_block_data_order");
--- 316,326 ----
  ___
  }
  
  $code=<<___;
  #if !defined(lint) && !defined(__lint)
!         .ident  "@(#)sha1-x86_64.pl     1.2     08/03/20 SMI"
  #include <sys/asm_linkage.h>
  ___
  
  
  &PROLOGUE("sha1_block_data_order");