Page MenuHome GnuPG
Differential D492 Diff 1389 cipher/sha512-ppc8.pl

Changeset View

Standalone View

View Options

cipher/sha512-ppc8.pl

  • This file was moved from cipher/sha512p8-ppc.pl.
PropertyOld ValueNew Value
File Mode100755100644
#! /usr/bin/env perl #! /usr/bin/env perl
# SPDX-License-Identifier: BSD-3-Clause # SPDX-License-Identifier: BSD-3-Clause
#
#Changes: rename ppc-xlate.pl
# ==================================================================== # ====================================================================
# Written by Andy Polyakov <appro@openssl.org> for the OpenSSL # Written by Andy Polyakov <appro@openssl.org> for the OpenSSL
# project. The module is, however, dual licensed under OpenSSL and # project. The module is, however, dual licensed under OpenSSL and
# CRYPTOGAMS licenses depending on where you obtain it. For further # CRYPTOGAMS licenses depending on where you obtain it. For further
# details see http://www.openssl.org/~appro/cryptogams/. # details see http://www.openssl.org/~appro/cryptogams/.
# ==================================================================== # ====================================================================
Show All 38 Linesif ($flavour =~ /64/) {
$STU="stwu"; $STU="stwu";
$POP="lwz"; $POP="lwz";
$PUSH="stw"; $PUSH="stw";
} else { die "nonsense $flavour"; } } else { die "nonsense $flavour"; }
$LENDIAN=($flavour=~/le/); $LENDIAN=($flavour=~/le/);
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
( $xlate="${dir}asm-common-ppc.pl" and -f $xlate ) or
( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
( $xlate="${dir}../../perlasm/ppc-xlate.pl" and -f $xlate) or ( $xlate="${dir}../../perlasm/ppc-xlate.pl" and -f $xlate) or
die "can't locate ppc-xlate.pl"; die "can't locate ppc-xlate.pl";
open STDOUT,"| $^X $xlate $flavour $output" || die "can't call $xlate: $!"; open STDOUT,"| $^X $xlate $flavour $output" || die "can't call $xlate: $!";
if ($output =~ /512/) { if ($output =~ /512/) {
$bits=512; $bits=512;
▲ Show 20 Lines • Show All 350 Lines • Show Last 20 Lines