1 files changed, 0 insertions, 132 deletions
diff --git a/src/lib/libcrypto/ppccpuid.pl b/src/lib/libcrypto/ppccpuid.pl
deleted file mode 100755
index 4ba736a1d1..0000000000
--- a/src/lib/libcrypto/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;

diff --git a/src/lib/libcrypto/ppccpuid.pl b/src/lib/libcrypto/ppccpuid.pl deleted file mode 100755 index 4ba736a1d1..0000000000 --- a/src/lib/libcrypto/ppccpuid.pl +++ /dev/null
@@ -1,132 +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_ppc64_probe
27	.align 4
28	.OPENSSL_ppc64_probe:
29	fcfid f1,f1
30	extrdi r0,r0,32,0
31	blr
32	.long 0
33	.byte 0,12,0x14,0,0,0,0,0
34
35	.globl .OPENSSL_altivec_probe
36	.align 4
37	.OPENSSL_altivec_probe:
38	.long 0x10000484 # vor v0,v0,v0
39	blr
40	.long 0
41	.byte 0,12,0x14,0,0,0,0,0
42
43	.globl .OPENSSL_wipe_cpu
44	.align 4
45	.OPENSSL_wipe_cpu:
46	xor r0,r0,r0
47	fmr f0,f31
48	fmr f1,f31
49	fmr f2,f31
50	mr r3,r1
51	fmr f3,f31
52	xor r4,r4,r4
53	fmr f4,f31
54	xor r5,r5,r5
55	fmr f5,f31
56	xor r6,r6,r6
57	fmr f6,f31
58	xor r7,r7,r7
59	fmr f7,f31
60	xor r8,r8,r8
61	fmr f8,f31
62	xor r9,r9,r9
63	fmr f9,f31
64	xor r10,r10,r10
65	fmr f10,f31
66	xor r11,r11,r11
67	fmr f11,f31
68	xor r12,r12,r12
69	fmr f12,f31
70	fmr f13,f31
71	blr
72	.long 0
73	.byte 0,12,0x14,0,0,0,0,0
74
75	.globl .OPENSSL_atomic_add
76	.align 4
77	.OPENSSL_atomic_add:
78	Ladd: lwarx r5,0,r3
79	add r0,r4,r5
80	stwcx. r0,0,r3
81	bne- Ladd
82	$SIGNX r3,r0
83	blr
84	.long 0
85	.byte 0,12,0x14,0,0,0,2,0
86	.long 0
87
88	.globl .OPENSSL_rdtsc
89	.align 4
90	.OPENSSL_rdtsc:
91	mftb r3
92	mftbu r4
93	blr
94	.long 0
95	.byte 0,12,0x14,0,0,0,0,0
96
97	.globl .OPENSSL_cleanse
98	.align 4
99	.OPENSSL_cleanse:
100	$CMPLI r4,7
101	li r0,0
102	bge Lot
103	$CMPLI r4,0
104	beqlr-
105	Little: mtctr r4
106	stb r0,0(r3)
107	addi r3,r3,1
108	bdnz \$-8
109	blr
110	Lot: andi. r5,r3,3
111	beq Laligned
112	stb r0,0(r3)
113	subi r4,r4,1
114	addi r3,r3,1
115	b Lot
116	Laligned:
117	$SHRLI r5,r4,2
118	mtctr r5
119	stw r0,0(r3)
120	addi r3,r3,4
121	bdnz \$-8
122	andi. r4,r4,3
123	bne Little
124	blr
125	.long 0
126	.byte 0,12,0x14,0,0,0,2,0
127	.long 0
128	___
129
130	$code =~ s/\`([^\`]*)\`/eval $1/gem;
131	print $code;
132	close STDOUT;