Remove filename argument to x86 asm_init.

[openssl.git] / engines / asm / e_padlock-x86_64.pl

diff --git a/engines/asm/e_padlock-x86_64.pl b/engines/asm/e_padlock-x86_64.pl
index 297561a61b6c2584743652881d032c6ce203ccd7..834b1ea79cd097eb734c77dc9965771e4546a151 100644 (file)
--- a/engines/asm/e_padlock-x86_64.pl
+++ b/engines/asm/e_padlock-x86_64.pl
@@ -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
 
 # ====================================================================
 # Written by Andy Polyakov <appro@openssl.org> for the OpenSSL


@@ -23,7 +30,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
 ( $xlate="${dir}../../crypto/perlasm/x86_64-xlate.pl" and -f $xlate) or
 die "can't locate x86_64-xlate.pl";
 
 ( $xlate="${dir}../../crypto/perlasm/x86_64-xlate.pl" and -f $xlate) or
 die "can't locate x86_64-xlate.pl";
 

-open STDOUT,"| $^X $xlate $flavour $output";
+open OUT,"| \"$^X\" \"$xlate\" $flavour \"$output\"";
+*STDOUT=*OUT;

 
 $code=".text\n";
 
 
 $code=".text\n";
 


@@ -376,7 +384,7 @@ $code.=<<___                                if ($mode eq "ctr32");
 .L${mode}_no_carry:
 ___
 $code.=<<___;
 .L${mode}_no_carry:
 ___
 $code.=<<___;

-       mov     %r8,$out                # restore paramters
+       mov     %r8,$out                # restore parameters

        mov     %r11,$chunk
        test    \$0x0f,$out
        jz      .L${mode}_out_aligned
        mov     %r11,$chunk
        test    \$0x0f,$out
        jz      .L${mode}_out_aligned


@@ -484,7 +492,7 @@ $code.=<<___                                if ($mode eq "ctr32");
        bswap   %eax
        mov     %eax,-4($ctx)
 
        bswap   %eax
        mov     %eax,-4($ctx)
 

-       mov     %r10,$len               # restore paramters
+       mov     %r10,$len               # restore parameters

        sub     %r11,$len
        mov     \$`16*0x10000`,$chunk
        jz      .L${mode}_exit
        sub     %r11,$len
        mov     \$`16*0x10000`,$chunk
        jz      .L${mode}_exit


@@ -527,7 +535,7 @@ $code.=<<___                                if ($PADLOCK_PREFETCH{$mode});
        sub     $len,%rsp
        shr     \$3,$len
        lea     (%rsp),$out
        sub     $len,%rsp
        shr     \$3,$len
        lea     (%rsp),$out

-       .byte   0xf3,0x48,0xa5          # rep movsq     
+       .byte   0xf3,0x48,0xa5          # rep movsq

        lea     (%r8),$out
        lea     (%rsp),$inp
        mov     $chunk,$len
        lea     (%r8),$out
        lea     (%rsp),$inp
        mov     $chunk,$len