upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / crypto / rc4 / asm / rc4-s390x.pl

diff --git a/lib/openssl/crypto/rc4/asm/rc4-s390x.pl b/lib/openssl/crypto/rc4/asm/rc4-s390x.pl
index 7528ece13c308eb7d17a3ff2b39e5f9741dcf7cf..5589503aa244531bdcbcb8ace904c3a7b4268b98 100644 (file)
--- a/lib/openssl/crypto/rc4/asm/rc4-s390x.pl
+++ b/lib/openssl/crypto/rc4/asm/rc4-s390x.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
@@ -33,7 +40,7 @@ if ($flavour =~ /3[12]/) {
        $g="g";
 }
 
-while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {}
+while (($output=shift) && ($output!~/\w[\w\-]*\.\w+$/)) {}
 open STDOUT,">$output";
 
 $rp="%r14";
@@ -171,10 +178,10 @@ $ikey="%r7";
 $iinp="%r8";
 
 $code.=<<___;
-.globl private_RC4_set_key
-.type  private_RC4_set_key,\@function
+.globl RC4_set_key
+.type  RC4_set_key,\@function
 .align 64
-private_RC4_set_key:
+RC4_set_key:
        stm${g} %r6,%r8,6*$SIZE_T($sp)
        lhi     $cnt,256
        la      $idx,0(%r0)
@@ -210,7 +217,7 @@ private_RC4_set_key:
 .Ldone:
        lm${g}  %r6,%r8,6*$SIZE_T($sp)
        br      $rp
-.size  private_RC4_set_key,.-private_RC4_set_key
+.size  RC4_set_key,.-RC4_set_key
 
 ___
 }