1 files changed, 0 insertions, 86 deletions
diff --git a/src/lib/libcrypto/pariscid.pl b/src/lib/libcrypto/pariscid.pl
deleted file mode 100644
index da74a2836c..0000000000
--- a/src/lib/libcrypto/pariscid.pl
+++ /dev/null
@@ -1,86 +0,0 @@
-#!/usr/bin/env perl
-$flavour = shift;
-$output = shift;
-open STDOUT,">$output";
-if ($flavour =~ /64/) {
-        $LEVEL          ="2.0W";
-        $SIZE_T         =8;
-        $ST             ="std";
-} else {
-        $LEVEL          ="1.1";
-        $SIZE_T         =4;
-        $ST             ="stw";
-}
-$rp="%r2";
-$sp="%r30";
-$rv="%r28";
-$code=<<___;
-        .LEVEL  $LEVEL
-#if 0
-        .SPACE  \$TEXT\$
-        .SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY
-#else
-        .text
-#endif
-        .EXPORT OPENSSL_cpuid_setup,ENTRY
-        .ALIGN  8
-OPENSSL_cpuid_setup
-        .PROC
-        .CALLINFO       NO_CALLS
-        .ENTRY
-        bv      ($rp)
-        .EXIT
-        nop
-        .PROCEND
-        .EXPORT OPENSSL_wipe_cpu,ENTRY
-        .ALIGN  8
-OPENSSL_wipe_cpu
-        .PROC
-        .CALLINFO       NO_CALLS
-        .ENTRY
-        xor             %r0,%r0,%r1
-        fcpy,dbl        %fr0,%fr4
-        xor             %r0,%r0,%r19
-        fcpy,dbl        %fr0,%fr5
-        xor             %r0,%r0,%r20
-        fcpy,dbl        %fr0,%fr6
-        xor             %r0,%r0,%r21
-        fcpy,dbl        %fr0,%fr7
-        xor             %r0,%r0,%r22
-        fcpy,dbl        %fr0,%fr8
-        xor             %r0,%r0,%r23
-        fcpy,dbl        %fr0,%fr9
-        xor             %r0,%r0,%r24
-        fcpy,dbl        %fr0,%fr10
-        xor             %r0,%r0,%r25
-        fcpy,dbl        %fr0,%fr11
-        xor             %r0,%r0,%r26
-        fcpy,dbl        %fr0,%fr22
-        xor             %r0,%r0,%r29
-        fcpy,dbl        %fr0,%fr23
-        xor             %r0,%r0,%r31
-        fcpy,dbl        %fr0,%fr24
-        fcpy,dbl        %fr0,%fr25
-        fcpy,dbl        %fr0,%fr26
-        fcpy,dbl        %fr0,%fr27
-        fcpy,dbl        %fr0,%fr28
-        fcpy,dbl        %fr0,%fr29
-        fcpy,dbl        %fr0,%fr30
-        fcpy,dbl        %fr0,%fr31
-        bv              ($rp)
-        .EXIT
-        ldo             0($sp),$rv
-        .PROCEND
-___
-$code =~ s/cmpib,\*/comib,/gm   if ($SIZE_T==4);
-$code =~ s/,\*/,/gm             if ($SIZE_T==4);
-$code =~ s/\bbv\b/bve/gm        if ($SIZE_T==8);
-print $code;
-close STDOUT;

diff --git a/src/lib/libcrypto/pariscid.pl b/src/lib/libcrypto/pariscid.pl deleted file mode 100644 index da74a2836c..0000000000 --- a/src/lib/libcrypto/pariscid.pl +++ /dev/null
@@ -1,86 +0,0 @@
1	#!/usr/bin/env perl
2
3	$flavour = shift;
4	$output = shift;
5	open STDOUT,">$output";
6
7	if ($flavour =~ /64/) {
8	$LEVEL ="2.0W";
9	$SIZE_T =8;
10	$ST ="std";
11	} else {
12	$LEVEL ="1.1";
13	$SIZE_T =4;
14	$ST ="stw";
15	}
16
17	$rp="%r2";
18	$sp="%r30";
19	$rv="%r28";
20
21	$code=<<___;
22	.LEVEL $LEVEL
23	#if 0
24	.SPACE \$TEXT\$
25	.SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY
26	#else
27	.text
28	#endif
29
30	.EXPORT OPENSSL_cpuid_setup,ENTRY
31	.ALIGN 8
32	OPENSSL_cpuid_setup
33	.PROC
34	.CALLINFO NO_CALLS
35	.ENTRY
36	bv ($rp)
37	.EXIT
38	nop
39	.PROCEND
40
41	.EXPORT OPENSSL_wipe_cpu,ENTRY
42	.ALIGN 8
43	OPENSSL_wipe_cpu
44	.PROC
45	.CALLINFO NO_CALLS
46	.ENTRY
47	xor %r0,%r0,%r1
48	fcpy,dbl %fr0,%fr4
49	xor %r0,%r0,%r19
50	fcpy,dbl %fr0,%fr5
51	xor %r0,%r0,%r20
52	fcpy,dbl %fr0,%fr6
53	xor %r0,%r0,%r21
54	fcpy,dbl %fr0,%fr7
55	xor %r0,%r0,%r22
56	fcpy,dbl %fr0,%fr8
57	xor %r0,%r0,%r23
58	fcpy,dbl %fr0,%fr9
59	xor %r0,%r0,%r24
60	fcpy,dbl %fr0,%fr10
61	xor %r0,%r0,%r25
62	fcpy,dbl %fr0,%fr11
63	xor %r0,%r0,%r26
64	fcpy,dbl %fr0,%fr22
65	xor %r0,%r0,%r29
66	fcpy,dbl %fr0,%fr23
67	xor %r0,%r0,%r31
68	fcpy,dbl %fr0,%fr24
69	fcpy,dbl %fr0,%fr25
70	fcpy,dbl %fr0,%fr26
71	fcpy,dbl %fr0,%fr27
72	fcpy,dbl %fr0,%fr28
73	fcpy,dbl %fr0,%fr29
74	fcpy,dbl %fr0,%fr30
75	fcpy,dbl %fr0,%fr31
76	bv ($rp)
77	.EXIT
78	ldo 0($sp),$rv
79	.PROCEND
80	___
81	$code =~ s/cmpib,\*/comib,/gm if ($SIZE_T==4);
82	$code =~ s/,\*/,/gm if ($SIZE_T==4);
83	$code =~ s/\bbv\b/bve/gm if ($SIZE_T==8);
84	print $code;
85	close STDOUT;
86