1 files changed, 0 insertions, 94 deletions
diff --git a/src/lib/libcrypto/ppccpuid.pl b/src/lib/libcrypto/ppccpuid.pl
deleted file mode 100755
index fe44ff07bc..0000000000
--- a/src/lib/libcrypto/ppccpuid.pl
+++ /dev/null
@@ -1,94 +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_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
-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;

diff --git a/src/lib/libcrypto/ppccpuid.pl b/src/lib/libcrypto/ppccpuid.pl deleted file mode 100755 index fe44ff07bc..0000000000 --- a/src/lib/libcrypto/ppccpuid.pl +++ /dev/null
@@ -1,94 +0,0 @@
1	#!/usr/bin/env perl
2
3	$flavour = shift;
4
5	$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
6	( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
7	( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
8	die "can't locate ppc-xlate.pl";
9
10	open STDOUT,"\| $^X $xlate $flavour ".shift \|\| die "can't call $xlate: $!";
11
12	if ($flavour=~/64/) {
13	$CMPLI="cmpldi";
14	$SHRLI="srdi";
15	$SIGNX="extsw";
16	} else {
17	$CMPLI="cmplwi";
18	$SHRLI="srwi";
19	$SIGNX="mr";
20	}
21
22	$code=<<___;
23	.machine "any"
24	.text
25
26	.globl .OPENSSL_cpuid_setup
27	.align 4
28	.OPENSSL_cpuid_setup:
29	blr
30
31	.globl .OPENSSL_wipe_cpu
32	.align 4
33	.OPENSSL_wipe_cpu:
34	xor r0,r0,r0
35	mr r3,r1
36	xor r4,r4,r4
37	xor r5,r5,r5
38	xor r6,r6,r6
39	xor r7,r7,r7
40	xor r8,r8,r8
41	xor r9,r9,r9
42	xor r10,r10,r10
43	xor r11,r11,r11
44	xor r12,r12,r12
45	blr
46
47	.globl .OPENSSL_atomic_add
48	.align 4
49	.OPENSSL_atomic_add:
50	Loop: lwarx r5,0,r3
51	add r0,r4,r5
52	stwcx. r0,0,r3
53	bne- Loop
54	$SIGNX r3,r0
55	blr
56
57	.globl .OPENSSL_rdtsc
58	.align 4
59	.OPENSSL_rdtsc:
60	mftb r3
61	mftbu r4
62	blr
63
64	.globl .OPENSSL_cleanse
65	.align 4
66	.OPENSSL_cleanse:
67	$CMPLI r4,7
68	li r0,0
69	bge Lot
70	Little: mtctr r4
71	stb r0,0(r3)
72	addi r3,r3,1
73	bdnz- \$-8
74	blr
75	Lot: andi. r5,r3,3
76	beq Laligned
77	stb r0,0(r3)
78	subi r4,r4,1
79	addi r3,r3,1
80	b Lot
81	Laligned:
82	$SHRLI r5,r4,2
83	mtctr r5
84	stw r0,0(r3)
85	addi r3,r3,4
86	bdnz- \$-8
87	andi. r4,r4,3
88	bne Little
89	blr
90	___
91
92	$code =~ s/\`([^\`]*)\`/eval $1/gem;
93	print $code;
94	close STDOUT;