X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=crypto%2Fppccpuid.pl;h=fe44ff07bc6040c9841c7837e9a2f3312082508e;hp=50d989e193d887c6a72a3c09e2a5b94ca4b2abaf;hb=492279f6f3acaa5365fbb41e4296f87569e4a8f2;hpb=9c9c83ccb9a9e76d9861b0da185b1a96fb54395a;ds=sidebyside

diff --git a/crypto/ppccpuid.pl b/crypto/ppccpuid.pl
index 50d989e193..fe44ff07bc 100755
--- a/crypto/ppccpuid.pl
+++ b/crypto/ppccpuid.pl
@@ -1,16 +1,15 @@
 #!/usr/bin/env perl
 
-$output = shift;
+$flavour = shift;
 
 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
 ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
 ( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
 die "can't locate ppc-xlate.pl";
 
-( defined shift || open STDOUT,"| $^X $xlate $output" ) ||
-	die "can't call $xlate: $!";
+open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";
 
-if ($output=~/64/) {
+if ($flavour=~/64/) {
     $CMPLI="cmpldi";
     $SHRLI="srdi";
     $SIGNX="extsw";
@@ -21,6 +20,7 @@ if ($output=~/64/) {
 }
 
 $code=<<___;
+.machine	"any"
 .text
 
 .globl	.OPENSSL_cpuid_setup
@@ -70,7 +70,7 @@ Loop:	lwarx	r5,0,r3
 Little:	mtctr	r4
 	stb	r0,0(r3)
 	addi	r3,r3,1
-	bdnz-	.-8
+	bdnz-	\$-8
 	blr
 Lot:	andi.	r5,r3,3
 	beq	Laligned
@@ -83,7 +83,7 @@ Laligned:
 	mtctr	r5
 	stw	r0,0(r3)
 	addi	r3,r3,4
-	bdnz-	.-8
+	bdnz-	\$-8
 	andi.	r4,r4,3
 	bne	Little
 	blr