Remove email addresses from source code.

[openssl.git] / crypto / rc4 / asm / rc4-parisc.pl

diff --git a/crypto/rc4/asm/rc4-parisc.pl b/crypto/rc4/asm/rc4-parisc.pl
index 9e681965b96e509568ea887d7a147778b09533c4..229c6c7dab336a2d2d10da84748e92f34465e9bf 100644 (file)
--- a/crypto/rc4/asm/rc4-parisc.pl
+++ b/crypto/rc4/asm/rc4-parisc.pl
@@ -1,7 +1,14 @@
-#!/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
+# Written by Andy Polyakov <appro@openssl.org> for the OpenSSL
 # project. The module is, however, dual licensed under OpenSSL and
 # CRYPTOGAMS licenses depending on where you obtain it. For further
 # details see http://www.openssl.org/~appro/cryptogams/.
@@ -91,7 +98,7 @@ sub unrolledloopbody {
 for ($i=0;$i<4;$i++) {
 $code.=<<___;
        ldo     1($XX[0]),$XX[1]
-       `sprintf("$LDX  %$TY(%$key),%$dat1") if ($i>0)` 
+       `sprintf("$LDX  %$TY(%$key),%$dat1") if ($i>0)`
        and     $mask,$XX[1],$XX[1]
        $LDX    $YY($key),$TY
        $MKX    $YY,$key,$ix
@@ -159,7 +166,7 @@ RC4
        ldo     `2*$SZ`($key),$key
 
        ldi     0xff,$mask
-       ldi     3,$dat0         
+       ldi     3,$dat0
 
        ldo     1($XX[0]),$XX[0]        ; warm up loop
        and     $mask,$XX[0],$XX[0]
@@ -307,7 +314,8 @@ L\$opts
        .STRINGZ "RC4 for PA-RISC, CRYPTOGAMS by <appro\@openssl.org>"
 ___
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
-$code =~ s/cmpib,\*/comib,/gm if ($SIZE_T==4);
+$code =~ s/cmpib,\*/comib,/gm  if ($SIZE_T==4);
+$code =~ s/\bbv\b/bve/gm       if ($SIZE_T==8);
 
 print $code;
 close STDOUT;