diff options
| author | Andy Polyakov <appro@openssl.org> | 2008-01-13 22:01:30 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2008-01-13 22:01:30 +0000 |
| commit | addd641f3a5e99ed90e3369914af5b356b725590 (patch) | |
| tree | 1a6e7498fecce05807ee71d0641823e8422dbb02 /crypto/ppccpuid.pl | |
| parent | f63e4be392dfc4d5073653a5688d7240b9eaffb9 (diff) | |
| download | openssl-new-addd641f3a5e99ed90e3369914af5b356b725590.tar.gz | |
Unify ppc assembler make rules.
Diffstat (limited to 'crypto/ppccpuid.pl')
| -rwxr-xr-x | crypto/ppccpuid.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/crypto/ppccpuid.pl b/crypto/ppccpuid.pl index f1c856ff83..b136c4d3dc 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"; |