]> WPIA git - cassiopeia.git/blobdiff - lib/openssl/crypto/rc4/asm/rc4-md5-x86_64.pl
upd: openssl to 1.1.0
[cassiopeia.git] / lib / openssl / crypto / rc4 / asm / rc4-md5-x86_64.pl
index 272fa91e1a1ef6290f10d0d99ec26642b32f3242..890161bac52d07a05843165a7db7bb417c1bbac9 100644 (file)
@@ -1,4 +1,11 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2011-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@openssl.org> for the OpenSSL
 # Core2                6.5     5.8     12.3    7.7     +60%
 # Westmere     4.3     5.2     9.5     7.0     +36%
 # Sandy Bridge 4.2     5.5     9.7     6.8     +43%
+# Ivy Bridge   4.1     5.2     9.3     6.0     +54%
+# Haswell      4.0     5.0     9.0     5.7     +60%
+# Skylake      6.3(**) 5.0     11.3    5.3     +110%
 # Atom         9.3     6.5     15.8    11.1    +42%
+# VIA Nano     6.3     5.4     11.7    8.6     +37%
+# Bulldozer    4.5     5.4     9.9     7.7     +29%
 #
 # (*)  rc4-x86_64.pl delivers 5.3 on Opteron, so real improvement
 #      is +53%...
+# (**) unidentified anomaly;
 
 my ($rc4,$md5)=(1,1);  # what to generate?
 my $D="#" if (!$md5);  # if set to "#", MD5 is stitched into RC4(),
@@ -51,7 +64,7 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; my $dir=$1; my $xlate;
 ( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or
 die "can't locate x86_64-xlate.pl";
 
-open OUT,"| \"$^X\" $xlate $flavour $output";
+open OUT,"| \"$^X\" \"$xlate\" $flavour \"$output\"";
 *STDOUT=*OUT;
 
 my ($dat,$in0,$out,$ctx,$inp,$len, $func,$nargs);