Add OpenSSL copyright to .pl files

[openssl.git] / crypto / sha / asm / sha1-alpha.pl

diff --git a/crypto/sha/asm/sha1-alpha.pl b/crypto/sha/asm/sha1-alpha.pl
index dd9b43b69778c904ad8100d36d79fd78853f9182..4124958f781653e0ef1f619d95f28e0740462681 100644 (file)
--- a/crypto/sha/asm/sha1-alpha.pl
+++ b/crypto/sha/asm/sha1-alpha.pl
@@ -1,4 +1,11 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2009-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 
 # ====================================================================
 # Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL
@@ -10,8 +17,9 @@
 # SHA1 block procedure for Alpha.
 
 # On 21264 performance is 33% better than code generated by vendor
-# compiler, and 75% better than GCC [3.4]. Implementation features
-# vectorized byte swap, but not Xupdate.
+# compiler, and 75% better than GCC [3.4], and in absolute terms is
+# 8.7 cycles per processed byte. Implementation features vectorized
+# byte swap, but not Xupdate.
 
 @X=(   "\$0",  "\$1",  "\$2",  "\$3",  "\$4",  "\$5",  "\$6",  "\$7",
        "\$8",  "\$9",  "\$10", "\$11", "\$12", "\$13", "\$14", "\$15");
@@ -224,8 +232,12 @@ ___
 }
 
 $code=<<___;
+#ifdef __linux__
+#include <asm/regdef.h>
+#else
 #include <asm.h>
 #include <regdef.h>
+#endif
 
 .text
 
@@ -309,6 +321,9 @@ $code.=<<___;
        lda     sp,64(sp)
        ret     (ra)
 .end   sha1_block_data_order
+.ascii "SHA1 block transform for Alpha, CRYPTOGAMS by <appro\@openssl.org>"
+.align 2
 ___
+$output=pop and open STDOUT,">$output";
 print $code;
 close STDOUT;