Google Git
Sign in
flutter / third_party / openssl / ffbfbef94353d297cf6acd9081bb1f13dd8266e1 / . / crypto / alphacpuid.pl
blob: 5b0e21bc909abe9a12469c437430039ed2a82cde [file] [log] [blame]
Andy Polyakov149b1802010-07-26 22:04:31 +0000[diff] [blame]1#!/usr/bin/env perl
Andy Polyakovb122e482010-07-28 08:17:15 +0000[diff] [blame]2print <<'___';
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]3.text
4
5.set noat
6
Andy Polyakov1d42fb52007-05-15 07:11:23 +0000[diff] [blame]7.globl OPENSSL_cpuid_setup
8.ent OPENSSL_cpuid_setup
9OPENSSL_cpuid_setup:
10 .frame $30,0,$26
11 .prologue 0
12 ret ($26)
13.end OPENSSL_cpuid_setup
14
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]15.globl OPENSSL_wipe_cpu
16.ent OPENSSL_wipe_cpu
17OPENSSL_wipe_cpu:
18 .frame $30,0,$26
19 .prologue 0
20 clr $1
21 clr $2
22 clr $3
23 clr $4
24 clr $5
25 clr $6
26 clr $7
27 clr $8
28 clr $16
29 clr $17
30 clr $18
31 clr $19
32 clr $20
33 clr $21
34 clr $22
35 clr $23
36 clr $24
37 clr $25
38 clr $27
39 clr $at
40 clr $29
41 fclr $f0
42 fclr $f1
43 fclr $f10
44 fclr $f11
45 fclr $f12
46 fclr $f13
47 fclr $f14
48 fclr $f15
49 fclr $f16
50 fclr $f17
51 fclr $f18
52 fclr $f19
53 fclr $f20
54 fclr $f21
55 fclr $f22
56 fclr $f23
57 fclr $f24
58 fclr $f25
59 fclr $f26
60 fclr $f27
61 fclr $f28
62 fclr $f29
63 fclr $f30
64 mov $sp,$0
65 ret ($26)
66.end OPENSSL_wipe_cpu
67
68.globl OPENSSL_atomic_add
69.ent OPENSSL_atomic_add
70OPENSSL_atomic_add:
71 .frame $30,0,$26
72 .prologue 0
Andy Polyakovf8927c82010-09-13 13:28:52 +0000[diff] [blame]731: ldl_l $0,0($16)
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]74 addl $0,$17,$1
Andy Polyakovf8927c82010-09-13 13:28:52 +0000[diff] [blame]75 stl_c $1,0($16)
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]76 beq $1,1b
77 addl $0,$17,$0
78 ret ($26)
79.end OPENSSL_atomic_add
80
81.globl OPENSSL_rdtsc
82.ent OPENSSL_rdtsc
83OPENSSL_rdtsc:
84 .frame $30,0,$26
85 .prologue 0
86 rpcc $0
87 ret ($26)
88.end OPENSSL_rdtsc
89
90.globl OPENSSL_cleanse
91.ent OPENSSL_cleanse
92OPENSSL_cleanse:
93 .frame $30,0,$26
94 .prologue 0
Andy Polyakov7676eeb2010-01-24 14:54:24 +0000[diff] [blame]95 beq $17,.Ldone
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]96 and $16,7,$0
97 bic $17,7,$at
98 beq $at,.Little
99 beq $0,.Laligned
100
101.Little:
Andy Polyakov20735f42011-08-12 12:28:52 +0000[diff] [blame]102 subq $0,8,$0
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]103 ldq_u $1,0($16)
104 mov $16,$2
105.Lalign:
106 mskbl $1,$16,$1
107 lda $16,1($16)
108 subq $17,1,$17
Andy Polyakov20735f42011-08-12 12:28:52 +0000[diff] [blame]109 addq $0,1,$0
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]110 beq $17,.Lout
111 bne $0,.Lalign
112.Lout: stq_u $1,0($2)
113 beq $17,.Ldone
114 bic $17,7,$at
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]115 beq $at,.Little
116
117.Laligned:
118 stq $31,0($16)
119 subq $17,8,$17
120 lda $16,8($16)
121 bic $17,7,$at
122 bne $at,.Laligned
Andy Polyakov20735f42011-08-12 12:28:52 +0000[diff] [blame]123 bne $17,.Little
Andy Polyakove1197692007-05-15 06:36:17 +0000[diff] [blame]124.Ldone: ret ($26)
125.end OPENSSL_cleanse
Andy Polyakov149b1802010-07-26 22:04:31 +0000[diff] [blame]126___
Andy Polyakov5fabb882011-04-17 12:46:00 +0000[diff] [blame]127{
128my ($out,$cnt,$max)=("\$16","\$17","\$18");
129my ($tick,$lasttick)=("\$19","\$20");
130my ($diff,$lastdiff)=("\$21","\$22");
131my ($v0,$ra,$sp,$zero)=("\$0","\$26","\$30","\$31");
132
133print <<___;
134.globl OPENSSL_instrument_bus
135.ent OPENSSL_instrument_bus
136OPENSSL_instrument_bus:
137 .frame $sp,0,$ra
138 .prologue 0
139 mov $cnt,$v0
140
141 rpcc $lasttick
142 mov 0,$diff
143
144 ecb ($out)
145 ldl_l $tick,0($out)
146 addl $diff,$tick,$tick
147 mov $tick,$diff
148 stl_c $tick,0($out)
149 stl $diff,0($out)
150
151.Loop: rpcc $tick
152 subq $tick,$lasttick,$diff
153 mov $tick,$lasttick
154
155 ecb ($out)
156 ldl_l $tick,0($out)
157 addl $diff,$tick,$tick
158 mov $tick,$diff
159 stl_c $tick,0($out)
160 stl $diff,0($out)
161
162 subl $cnt,1,$cnt
163 lda $out,4($out)
164 bne $cnt,.Loop
165
166 ret ($ra)
167.end OPENSSL_instrument_bus
168
169.globl OPENSSL_instrument_bus2
170.ent OPENSSL_instrument_bus2
171OPENSSL_instrument_bus2:
172 .frame $sp,0,$ra
173 .prologue 0
174 mov $cnt,$v0
175
176 rpcc $lasttick
177 mov 0,$diff
178
179 ecb ($out)
180 ldl_l $tick,0($out)
181 addl $diff,$tick,$tick
182 mov $tick,$diff
183 stl_c $tick,0($out)
184 stl $diff,0($out)
185
186 rpcc $tick
187 subq $tick,$lasttick,$diff
188 mov $tick,$lasttick
189 mov $diff,$lastdiff
190.Loop2:
191 ecb ($out)
192 ldl_l $tick,0($out)
193 addl $diff,$tick,$tick
194 mov $tick,$diff
195 stl_c $tick,0($out)
196 stl $diff,0($out)
197
198 subl $max,1,$max
199 beq $max,.Ldone2
200
201 rpcc $tick
202 subq $tick,$lasttick,$diff
203 mov $tick,$lasttick
204 subq $lastdiff,$diff,$tick
205 mov $diff,$lastdiff
206 cmovne $tick,1,$tick
207 subl $cnt,$tick,$cnt
208 s4addq $tick,$out,$out
209 bne $cnt,.Loop2
210
211.Ldone2:
212 subl $v0,$cnt,$v0
213 ret ($ra)
214.end OPENSSL_instrument_bus2
215___
216}