| Index: openssl/crypto/ppccpuid.pl
|
| ===================================================================
|
| --- openssl/crypto/ppccpuid.pl (revision 0)
|
| +++ openssl/crypto/ppccpuid.pl (revision 0)
|
| @@ -0,0 +1,96 @@
|
| +#!/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_cpuid_setup
|
| +.align 4
|
| +.OPENSSL_cpuid_setup:
|
| + blr
|
| +
|
| +.globl .OPENSSL_wipe_cpu
|
| +.align 4
|
| +.OPENSSL_wipe_cpu:
|
| + xor r0,r0,r0
|
| + mr r3,r1
|
| + xor r4,r4,r4
|
| + xor r5,r5,r5
|
| + xor r6,r6,r6
|
| + xor r7,r7,r7
|
| + xor r8,r8,r8
|
| + xor r9,r9,r9
|
| + xor r10,r10,r10
|
| + xor r11,r11,r11
|
| + xor r12,r12,r12
|
| + blr
|
| +
|
| +.globl .OPENSSL_atomic_add
|
| +.align 4
|
| +.OPENSSL_atomic_add:
|
| +Loop: lwarx r5,0,r3
|
| + add r0,r4,r5
|
| + stwcx. r0,0,r3
|
| + bne- Loop
|
| + $SIGNX r3,r0
|
| + blr
|
| +
|
| +.globl .OPENSSL_rdtsc
|
| +.align 4
|
| +.OPENSSL_rdtsc:
|
| + mftb r3
|
| + mftbu r4
|
| + blr
|
| +
|
| +.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
|
| +___
|
| +
|
| +$code =~ s/\`([^\`]*)\`/eval $1/gem;
|
| +print $code;
|
| +close STDOUT;
|
|
|