Changeset View

Standalone View

Property	Old Value	New Value
File Mode	100755	100644

	#! /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
Context not available.
	} 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: $!";
Context not available.