Check for the presence of _WIN32 rather than its value.

[oweals/openssl.git] / crypto / bn / asm / ppc64-mont.pl

diff --git a/crypto/bn/asm/ppc64-mont.pl b/crypto/bn/asm/ppc64-mont.pl
index 9e3c12d788e5fde089f6ea33e98b4913d2a44f5b..1e19c958a16f108db25119f2849d278573f065bc 100644 (file)
--- a/crypto/bn/asm/ppc64-mont.pl
+++ b/crypto/bn/asm/ppc64-mont.pl
@@ -1,4 +1,11 @@
-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2007-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
@@ -734,7 +741,7 @@ $code.=<<___;
 ___
 }
 $code.=<<___;
-       bdnz-   L1st
+       bdnz    L1st
 \f
        fctid   $dota,$dota
        fctid   $dotb,$dotb
@@ -1280,7 +1287,7 @@ $code.=<<___;
 ___
 }
 $code.=<<___;
-       bdnz-   Linner
+       bdnz    Linner
 \f
        fctid   $dota,$dota
        fctid   $dotb,$dotb
@@ -1490,7 +1497,7 @@ Lsub:     ldx     $t0,$tp,$i
        stdx    $t0,$rp,$i
        stdx    $t2,$t6,$i
        addi    $i,$i,16
-       bdnz-   Lsub
+       bdnz    Lsub
 
        li      $i,0
        subfe   $ovf,$i,$ovf    ; handle upmost overflow bit
@@ -1517,7 +1524,7 @@ Lcopy:                            ; copy or in-place refresh
        stdx    $i,$tp,$i       ; zap tp at once
        stdx    $i,$t4,$i
        addi    $i,$i,16
-       bdnz-   Lcopy
+       bdnz    Lcopy
 ___
 $code.=<<___ if ($SIZE_T==4);
        subf    $np,$num,$np    ; rewind np
@@ -1550,7 +1557,7 @@ Lsub:     lwz     $t0,12($tp)     ; load tp[j..j+3] in 64-bit word order
        stw     $t5,8($rp)
        stw     $t6,12($rp)
        stwu    $t7,16($rp)
-       bdnz-   Lsub
+       bdnz    Lsub
 
        li      $i,0
        subfe   $ovf,$i,$ovf    ; handle upmost overflow bit
@@ -1582,7 +1589,7 @@ Lcopy:                            ; copy or in-place refresh
        stwu    $t3,16($rp)
        std     $i,8($tp)       ; zap tp at once
        stdu    $i,16($tp)
-       bdnz-   Lcopy
+       bdnz    Lcopy
 ___
 \f
 $code.=<<___;