1 files changed, 0 insertions, 161 deletions
diff --git a/src/lib/libcrypto/x86_64cpuid.pl b/src/lib/libcrypto/x86_64cpuid.pl
deleted file mode 100644
index 8946b464a8..0000000000
--- a/src/lib/libcrypto/x86_64cpuid.pl
+++ /dev/null
@@ -1,161 +0,0 @@
-#!/usr/bin/env perl
-$output=shift;
-$masm=1 if ($output =~ /\.asm/);
-open STDOUT,">$output" || die "can't open $output: $!";
-print<<___ if(defined($masm));
-_TEXT   SEGMENT
-PUBLIC  OPENSSL_rdtsc
-PUBLIC  OPENSSL_atomic_add
-ALIGN   16
-OPENSSL_atomic_add      PROC
-        mov     eax,DWORD PTR[rcx]
-\$Lspin:        lea     r8,DWORD PTR[rdx+rax]
-lock    cmpxchg DWORD PTR[rcx],r8d
-        jne     \$Lspin
-        mov     eax,r8d
-        cdqe    
-        ret
-OPENSSL_atomic_add      ENDP
-PUBLIC  OPENSSL_wipe_cpu
-ALIGN   16
-OPENSSL_wipe_cpu        PROC
-        pxor    xmm0,xmm0
-        pxor    xmm1,xmm1
-        pxor    xmm2,xmm2
-        pxor    xmm3,xmm3
-        pxor    xmm4,xmm4
-        pxor    xmm5,xmm5
-        xor     rcx,rcx
-        xor     rdx,rdx
-        xor     r8,r8
-        xor     r9,r9
-        xor     r10,r10
-        xor     r11,r11
-        lea     rax,QWORD PTR[rsp+8]
-        ret
-OPENSSL_wipe_cpu        ENDP
-_TEXT   ENDS
-CRT\$XIU        SEGMENT
-EXTRN   OPENSSL_cpuid_setup:PROC
-DQ      OPENSSL_cpuid_setup
-CRT\$XIU        ENDS
-___
-print<<___ if(!defined($masm));
-#include <machine/asm.h>
-.text
-.globl  OPENSSL_atomic_add
-.type   OPENSSL_atomic_add,\@function
-.align  16
-OPENSSL_atomic_add:
-        movl    (%rdi),%eax
-.Lspin: leaq    (%rsi,%rax),%r8
-lock;   cmpxchgl        %r8d,(%rdi)
-        jne     .Lspin
-        movl    %r8d,%eax
-        .byte   0x48,0x98
-        ret
-.size   OPENSSL_atomic_add,.-OPENSSL_atomic_add
-.globl  OPENSSL_wipe_cpu
-.type   OPENSSL_wipe_cpu,\@function
-.align  16
-OPENSSL_wipe_cpu:
-        pxor    %xmm0,%xmm0
-        pxor    %xmm1,%xmm1
-        pxor    %xmm2,%xmm2
-        pxor    %xmm3,%xmm3
-        pxor    %xmm4,%xmm4
-        pxor    %xmm5,%xmm5
-        pxor    %xmm6,%xmm6
-        pxor    %xmm7,%xmm7
-        pxor    %xmm8,%xmm8
-        pxor    %xmm9,%xmm9
-        pxor    %xmm10,%xmm10
-        pxor    %xmm11,%xmm11
-        pxor    %xmm12,%xmm12
-        pxor    %xmm13,%xmm13
-        pxor    %xmm14,%xmm14
-        pxor    %xmm15,%xmm15
-        xorq    %rcx,%rcx
-        xorq    %rdx,%rdx
-        xorq    %rsi,%rsi
-        xorq    %rdi,%rdi
-        xorq    %r8,%r8
-        xorq    %r9,%r9
-        xorq    %r10,%r10
-        xorq    %r11,%r11
-        leaq    8(%rsp),%rax
-        ret
-.size   OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
-.section        .init
-        call    PIC_PLT(OPENSSL_cpuid_setup)
-___
-open STDOUT,"| $^X perlasm/x86_64-xlate.pl $output";
-print<<___;
-.text
-.globl  OPENSSL_rdtsc
-.type   OPENSSL_rdtsc,\@abi-omnipotent
-.align  16
-OPENSSL_rdtsc:
-        rdtsc
-        shl     \$32,%rdx
-        or      %rdx,%rax
-        ret
-.size   OPENSSL_rdtsc,.-OPENSSL_rdtsc
-.globl  OPENSSL_ia32_cpuid
-.type   OPENSSL_ia32_cpuid,\@abi-omnipotent
-.align  16
-OPENSSL_ia32_cpuid:
-        mov     %rbx,%r8
-        xor     %eax,%eax
-        cpuid
-        xor     %eax,%eax
-        cmp     \$0x756e6547,%ebx       # "Genu"
-        setne   %al
-        mov     %eax,%r9d
-        cmp     \$0x49656e69,%edx       # "ineI"
-        setne   %al
-        or      %eax,%r9d
-        cmp     \$0x6c65746e,%ecx       # "ntel"
-        setne   %al
-        or      %eax,%r9d
-        mov     \$1,%eax
-        cpuid
-        cmp     \$0,%r9d
-        jne     .Lnotintel
-        or      \$0x00100000,%edx       # use reserved 20th bit to engage RC4_CHAR
-        and     \$15,%ah
-        cmp     \$15,%ah                # examine Family ID
-        je      .Lnotintel
-        or      \$0x40000000,%edx       # use reserved bit to skip unrolled loop
-.Lnotintel:
-        bt      \$28,%edx               # test hyper-threading bit
-        jnc     .Ldone
-        shr     \$16,%ebx
-        cmp     \$1,%bl                 # see if cache is shared
-        ja      .Ldone
-        and     \$0xefffffff,%edx       # ~(1<<28)
-.Ldone:
-        shl     \$32,%rcx
-        mov     %edx,%eax
-        mov     %r8,%rbx
-        or      %rcx,%rax
-        ret
-.size   OPENSSL_ia32_cpuid,.-OPENSSL_ia32_cpuid
-___
-close STDOUT;   # flush

diff --git a/src/lib/libcrypto/x86_64cpuid.pl b/src/lib/libcrypto/x86_64cpuid.pl deleted file mode 100644 index 8946b464a8..0000000000 --- a/src/lib/libcrypto/x86_64cpuid.pl +++ /dev/null
@@ -1,161 +0,0 @@
1	#!/usr/bin/env perl
2
3	$output=shift;
4	$masm=1 if ($output =~ /\.asm/);
5	open STDOUT,">$output" \|\| die "can't open $output: $!";
6
7	print<<___ if(defined($masm));
8	_TEXT SEGMENT
9	PUBLIC OPENSSL_rdtsc
10
11	PUBLIC OPENSSL_atomic_add
12	ALIGN 16
13	OPENSSL_atomic_add PROC
14	mov eax,DWORD PTR[rcx]
15	\$Lspin: lea r8,DWORD PTR[rdx+rax]
16	lock cmpxchg DWORD PTR[rcx],r8d
17	jne \$Lspin
18	mov eax,r8d
19	cdqe
20	ret
21	OPENSSL_atomic_add ENDP
22
23	PUBLIC OPENSSL_wipe_cpu
24	ALIGN 16
25	OPENSSL_wipe_cpu PROC
26	pxor xmm0,xmm0
27	pxor xmm1,xmm1
28	pxor xmm2,xmm2
29	pxor xmm3,xmm3
30	pxor xmm4,xmm4
31	pxor xmm5,xmm5
32	xor rcx,rcx
33	xor rdx,rdx
34	xor r8,r8
35	xor r9,r9
36	xor r10,r10
37	xor r11,r11
38	lea rax,QWORD PTR[rsp+8]
39	ret
40	OPENSSL_wipe_cpu ENDP
41	_TEXT ENDS
42
43	CRT\$XIU SEGMENT
44	EXTRN OPENSSL_cpuid_setup:PROC
45	DQ OPENSSL_cpuid_setup
46	CRT\$XIU ENDS
47
48	___
49	print<<___ if(!defined($masm));
50	#include <machine/asm.h>
51
52	.text
53
54	.globl OPENSSL_atomic_add
55	.type OPENSSL_atomic_add,\@function
56	.align 16
57	OPENSSL_atomic_add:
58	movl (%rdi),%eax
59	.Lspin: leaq (%rsi,%rax),%r8
60	lock; cmpxchgl %r8d,(%rdi)
61	jne .Lspin
62	movl %r8d,%eax
63	.byte 0x48,0x98
64	ret
65	.size OPENSSL_atomic_add,.-OPENSSL_atomic_add
66
67	.globl OPENSSL_wipe_cpu
68	.type OPENSSL_wipe_cpu,\@function
69	.align 16
70	OPENSSL_wipe_cpu:
71	pxor %xmm0,%xmm0
72	pxor %xmm1,%xmm1
73	pxor %xmm2,%xmm2
74	pxor %xmm3,%xmm3
75	pxor %xmm4,%xmm4
76	pxor %xmm5,%xmm5
77	pxor %xmm6,%xmm6
78	pxor %xmm7,%xmm7
79	pxor %xmm8,%xmm8
80	pxor %xmm9,%xmm9
81	pxor %xmm10,%xmm10
82	pxor %xmm11,%xmm11
83	pxor %xmm12,%xmm12
84	pxor %xmm13,%xmm13
85	pxor %xmm14,%xmm14
86	pxor %xmm15,%xmm15
87	xorq %rcx,%rcx
88	xorq %rdx,%rdx
89	xorq %rsi,%rsi
90	xorq %rdi,%rdi
91	xorq %r8,%r8
92	xorq %r9,%r9
93	xorq %r10,%r10
94	xorq %r11,%r11
95	leaq 8(%rsp),%rax
96	ret
97	.size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
98
99	.section .init
100	call PIC_PLT(OPENSSL_cpuid_setup)
101
102	___
103
104	open STDOUT,"\| $^X perlasm/x86_64-xlate.pl $output";
105	print<<___;
106	.text
107
108	.globl OPENSSL_rdtsc
109	.type OPENSSL_rdtsc,\@abi-omnipotent
110	.align 16
111	OPENSSL_rdtsc:
112	rdtsc
113	shl \$32,%rdx
114	or %rdx,%rax
115	ret
116	.size OPENSSL_rdtsc,.-OPENSSL_rdtsc
117
118	.globl OPENSSL_ia32_cpuid
119	.type OPENSSL_ia32_cpuid,\@abi-omnipotent
120	.align 16
121	OPENSSL_ia32_cpuid:
122	mov %rbx,%r8
123
124	xor %eax,%eax
125	cpuid
126	xor %eax,%eax
127	cmp \$0x756e6547,%ebx # "Genu"
128	setne %al
129	mov %eax,%r9d
130	cmp \$0x49656e69,%edx # "ineI"
131	setne %al
132	or %eax,%r9d
133	cmp \$0x6c65746e,%ecx # "ntel"
134	setne %al
135	or %eax,%r9d
136
137	mov \$1,%eax
138	cpuid
139	cmp \$0,%r9d
140	jne .Lnotintel
141	or \$0x00100000,%edx # use reserved 20th bit to engage RC4_CHAR
142	and \$15,%ah
143	cmp \$15,%ah # examine Family ID
144	je .Lnotintel
145	or \$0x40000000,%edx # use reserved bit to skip unrolled loop
146	.Lnotintel:
147	bt \$28,%edx # test hyper-threading bit
148	jnc .Ldone
149	shr \$16,%ebx
150	cmp \$1,%bl # see if cache is shared
151	ja .Ldone
152	and \$0xefffffff,%edx # ~(1<<28)
153	.Ldone:
154	shl \$32,%rcx
155	mov %edx,%eax
156	mov %r8,%rbx
157	or %rcx,%rax
158	ret
159	.size OPENSSL_ia32_cpuid,.-OPENSSL_ia32_cpuid
160	___
161	close STDOUT; # flush