| Index: openssl/crypto/ppccpuid.pl
|
| diff --git a/openssl/crypto/ppccpuid.pl b/openssl/crypto/ppccpuid.pl
|
| deleted file mode 100644
|
| index 4ba736a1d1bd99e5af582c9e518ab5e78f12b34a..0000000000000000000000000000000000000000
|
| --- a/openssl/crypto/ppccpuid.pl
|
| +++ /dev/null
|
| @@ -1,132 +0,0 @@
|
| -#!/usr/bin/env perl
|
| -
|
| -$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";
|
| -
|
| -open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";
|
| -
|
| -if ($flavour=~/64/) {
|
| - $CMPLI="cmpldi";
|
| - $SHRLI="srdi";
|
| - $SIGNX="extsw";
|
| -} else {
|
| - $CMPLI="cmplwi";
|
| - $SHRLI="srwi";
|
| - $SIGNX="mr";
|
| -}
|
| -
|
| -$code=<<___;
|
| -.machine "any"
|
| -.text
|
| -
|
| -.globl .OPENSSL_ppc64_probe
|
| -.align 4
|
| -.OPENSSL_ppc64_probe:
|
| - fcfid f1,f1
|
| - extrdi r0,r0,32,0
|
| - blr
|
| - .long 0
|
| - .byte 0,12,0x14,0,0,0,0,0
|
| -
|
| -.globl .OPENSSL_altivec_probe
|
| -.align 4
|
| -.OPENSSL_altivec_probe:
|
| - .long 0x10000484 # vor v0,v0,v0
|
| - blr
|
| - .long 0
|
| - .byte 0,12,0x14,0,0,0,0,0
|
| -
|
| -.globl .OPENSSL_wipe_cpu
|
| -.align 4
|
| -.OPENSSL_wipe_cpu:
|
| - xor r0,r0,r0
|
| - fmr f0,f31
|
| - fmr f1,f31
|
| - fmr f2,f31
|
| - mr r3,r1
|
| - fmr f3,f31
|
| - xor r4,r4,r4
|
| - fmr f4,f31
|
| - xor r5,r5,r5
|
| - fmr f5,f31
|
| - xor r6,r6,r6
|
| - fmr f6,f31
|
| - xor r7,r7,r7
|
| - fmr f7,f31
|
| - xor r8,r8,r8
|
| - fmr f8,f31
|
| - xor r9,r9,r9
|
| - fmr f9,f31
|
| - xor r10,r10,r10
|
| - fmr f10,f31
|
| - xor r11,r11,r11
|
| - fmr f11,f31
|
| - xor r12,r12,r12
|
| - fmr f12,f31
|
| - fmr f13,f31
|
| - blr
|
| - .long 0
|
| - .byte 0,12,0x14,0,0,0,0,0
|
| -
|
| -.globl .OPENSSL_atomic_add
|
| -.align 4
|
| -.OPENSSL_atomic_add:
|
| -Ladd: lwarx r5,0,r3
|
| - add r0,r4,r5
|
| - stwcx. r0,0,r3
|
| - bne- Ladd
|
| - $SIGNX r3,r0
|
| - blr
|
| - .long 0
|
| - .byte 0,12,0x14,0,0,0,2,0
|
| - .long 0
|
| -
|
| -.globl .OPENSSL_rdtsc
|
| -.align 4
|
| -.OPENSSL_rdtsc:
|
| - mftb r3
|
| - mftbu r4
|
| - blr
|
| - .long 0
|
| - .byte 0,12,0x14,0,0,0,0,0
|
| -
|
| -.globl .OPENSSL_cleanse
|
| -.align 4
|
| -.OPENSSL_cleanse:
|
| - $CMPLI r4,7
|
| - li r0,0
|
| - bge Lot
|
| - $CMPLI r4,0
|
| - beqlr-
|
| -Little: mtctr r4
|
| - stb r0,0(r3)
|
| - addi r3,r3,1
|
| - bdnz \$-8
|
| - blr
|
| -Lot: andi. r5,r3,3
|
| - beq Laligned
|
| - stb r0,0(r3)
|
| - subi r4,r4,1
|
| - addi r3,r3,1
|
| - b Lot
|
| -Laligned:
|
| - $SHRLI r5,r4,2
|
| - mtctr r5
|
| - stw r0,0(r3)
|
| - addi r3,r3,4
|
| - bdnz \$-8
|
| - andi. r4,r4,3
|
| - bne Little
|
| - blr
|
| - .long 0
|
| - .byte 0,12,0x14,0,0,0,2,0
|
| - .long 0
|
| -___
|
| -
|
| -$code =~ s/\`([^\`]*)\`/eval $1/gem;
|
| -print $code;
|
| -close STDOUT;
|
|
|