summaryrefslogtreecommitdiff
path: root/src/pkg/crypto/md5/md5block_arm.s
blob: e644bfcd6133dd1b8aee07be1fe93c78e5e56c7b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
// Copyright 2013 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.
//
// ARM version of md5block.go

#include "../../../cmd/ld/textflag.h"

// Register definitions
table = 0	// Pointer to MD5 constants table
data = 1	// Pointer to data to hash
a = 2		// MD5 accumulator
b = 3		// MD5 accumulator
c = 4		// MD5 accumulator
d = 5		// MD5 accumulator
c0 = 6		// MD5 constant
c1 = 7		// MD5 constant
c2 = 8		// MD5 constant
// r9, r10 are forbidden
// r11 is OK provided you check the assembler that no synthetic instructions use it
c3 = 11		// MD5 constant
t0 = 12		// temporary
t1 = 14		// temporary

// func block(dig *digest, p []byte)
// 0(FP) is *digest
// 4(FP) is p.array (struct Slice)
// 8(FP) is p.len
//12(FP) is p.cap
//
// Stack frame
p_end = -4	// -4(SP) pointer to the end of data
p_data = -8	// -8(SP) current data pointer
buf = -8-4*16	//-72(SP) 16 words temporary buffer
		// 3 words at 4..12(R13) for called routine parameters

TEXT	·block(SB), NOSPLIT, $84-16
	MOVW	p+4(FP), R(data)	// pointer to the data
	MOVW	p_len+8(FP), R(t0)	// number of bytes
	ADD	R(data), R(t0)
	MOVW	R(t0), p_end(SP)	// pointer to end of data

loop:
	MOVW	R(data), p_data(SP)	// Save R(data)
	AND.S	$3, R(data), R(t0)	// TST $3, R(data) not working see issue 5921
	BEQ	aligned			// aligned detected - skip copy

	// Copy the unaligned source data into the aligned temporary buffer
	// memove(to=4(R13), from=8(R13), n=12(R13)) - Corrupts all registers
	MOVW	$buf(SP), R(table)	// to
	MOVW	$64, R(c0)		// n
	MOVM.IB	[R(table),R(data),R(c0)], (R13)
	BL	runtime·memmove(SB)

	// Point to the local aligned copy of the data
	MOVW	$buf(SP), R(data)

aligned:
	// Point to the table of constants
	// A PC relative add would be cheaper than this
	MOVW	$·table(SB), R(table)

	// Load up initial MD5 accumulator
	MOVW	dig+0(FP), R(c0)
	MOVM.IA (R(c0)), [R(a),R(b),R(c),R(d)]

// a += (((c^d)&b)^d) + X[index] + const
// a = a<<shift | a>>(32-shift) + b
#define ROUND1(a, b, c, d, index, shift, const) \
	EOR	R(c), R(d), R(t0)		; \
	AND	R(b), R(t0)			; \
	EOR	R(d), R(t0)			; \
	MOVW	(index<<2)(R(data)), R(t1)	; \
	ADD	R(t1), R(t0)			; \
	ADD	R(const), R(t0)			; \
	ADD	R(t0), R(a)			; \
	ADD	R(a)@>(32-shift), R(b), R(a)	;

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND1(a, b, c, d,  0,	7, c0)
	ROUND1(d, a, b, c,  1, 12, c1)
	ROUND1(c, d, a, b,  2, 17, c2)
	ROUND1(b, c, d, a,  3, 22, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND1(a, b, c, d,  4,	7, c0)
	ROUND1(d, a, b, c,  5, 12, c1)
	ROUND1(c, d, a, b,  6, 17, c2)
	ROUND1(b, c, d, a,  7, 22, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND1(a, b, c, d,  8,	7, c0)
	ROUND1(d, a, b, c,  9, 12, c1)
	ROUND1(c, d, a, b, 10, 17, c2)
	ROUND1(b, c, d, a, 11, 22, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND1(a, b, c, d, 12,	7, c0)
	ROUND1(d, a, b, c, 13, 12, c1)
	ROUND1(c, d, a, b, 14, 17, c2)
	ROUND1(b, c, d, a, 15, 22, c3)

// a += (((b^c)&d)^c) + X[index] + const
// a = a<<shift | a>>(32-shift) + b
#define ROUND2(a, b, c, d, index, shift, const) \
	EOR	R(b), R(c), R(t0)		; \
	AND	R(d), R(t0)			; \
	EOR	R(c), R(t0)			; \
	MOVW	(index<<2)(R(data)), R(t1)	; \
	ADD	R(t1), R(t0)			; \
	ADD	R(const), R(t0)			; \
	ADD	R(t0), R(a)			; \
	ADD	R(a)@>(32-shift), R(b), R(a)	;

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND2(a, b, c, d,  1,	5, c0)
	ROUND2(d, a, b, c,  6,	9, c1)
	ROUND2(c, d, a, b, 11, 14, c2)
	ROUND2(b, c, d, a,  0, 20, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND2(a, b, c, d,  5,	5, c0)
	ROUND2(d, a, b, c, 10,	9, c1)
	ROUND2(c, d, a, b, 15, 14, c2)
	ROUND2(b, c, d, a,  4, 20, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND2(a, b, c, d,  9,	5, c0)
	ROUND2(d, a, b, c, 14,	9, c1)
	ROUND2(c, d, a, b,  3, 14, c2)
	ROUND2(b, c, d, a,  8, 20, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND2(a, b, c, d, 13,	5, c0)
	ROUND2(d, a, b, c,  2,	9, c1)
	ROUND2(c, d, a, b,  7, 14, c2)
	ROUND2(b, c, d, a, 12, 20, c3)

// a += (b^c^d) + X[index] + const
// a = a<<shift | a>>(32-shift) + b
#define ROUND3(a, b, c, d, index, shift, const) \
	EOR	R(b), R(c), R(t0)		; \
	EOR	R(d), R(t0)			; \
	MOVW	(index<<2)(R(data)), R(t1)	; \
	ADD	R(t1), R(t0)			; \
	ADD	R(const), R(t0)			; \
	ADD	R(t0), R(a)			; \
	ADD	R(a)@>(32-shift), R(b), R(a)	;

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND3(a, b, c, d,  5,	4, c0)
	ROUND3(d, a, b, c,  8, 11, c1)
	ROUND3(c, d, a, b, 11, 16, c2)
	ROUND3(b, c, d, a, 14, 23, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND3(a, b, c, d,  1,	4, c0)
	ROUND3(d, a, b, c,  4, 11, c1)
	ROUND3(c, d, a, b,  7, 16, c2)
	ROUND3(b, c, d, a, 10, 23, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND3(a, b, c, d, 13,	4, c0)
	ROUND3(d, a, b, c,  0, 11, c1)
	ROUND3(c, d, a, b,  3, 16, c2)
	ROUND3(b, c, d, a,  6, 23, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND3(a, b, c, d,  9,	4, c0)
	ROUND3(d, a, b, c, 12, 11, c1)
	ROUND3(c, d, a, b, 15, 16, c2)
	ROUND3(b, c, d, a,  2, 23, c3)

// a += (c^(b|^d)) + X[index] + const
// a = a<<shift | a>>(32-shift) + b
#define ROUND4(a, b, c, d, index, shift, const) \
	MVN	R(d), R(t0)			; \
	ORR	R(b), R(t0)			; \
	EOR	R(c), R(t0)			; \
	MOVW	(index<<2)(R(data)), R(t1)	; \
	ADD	R(t1), R(t0)			; \
	ADD	R(const), R(t0)			; \
	ADD	R(t0), R(a)			; \
	ADD	R(a)@>(32-shift), R(b), R(a)	;

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND4(a, b, c, d,  0,	6, c0)
	ROUND4(d, a, b, c,  7, 10, c1)
	ROUND4(c, d, a, b, 14, 15, c2)
	ROUND4(b, c, d, a,  5, 21, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND4(a, b, c, d, 12,	6, c0)
	ROUND4(d, a, b, c,  3, 10, c1)
	ROUND4(c, d, a, b, 10, 15, c2)
	ROUND4(b, c, d, a,  1, 21, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND4(a, b, c, d,  8,	6, c0)
	ROUND4(d, a, b, c, 15, 10, c1)
	ROUND4(c, d, a, b,  6, 15, c2)
	ROUND4(b, c, d, a, 13, 21, c3)

	MOVM.IA.W (R(table)), [R(c0),R(c1),R(c2),R(c3)]
	ROUND4(a, b, c, d,  4,	6, c0)
	ROUND4(d, a, b, c, 11, 10, c1)
	ROUND4(c, d, a, b,  2, 15, c2)
	ROUND4(b, c, d, a,  9, 21, c3)

	MOVW	dig+0(FP), R(t0)
	MOVM.IA (R(t0)), [R(c0),R(c1),R(c2),R(c3)]

	ADD	R(c0), R(a)
	ADD	R(c1), R(b)
	ADD	R(c2), R(c)
	ADD	R(c3), R(d)

	MOVM.IA [R(a),R(b),R(c),R(d)], (R(t0))

	MOVW	p_data(SP), R(data)
	MOVW	p_end(SP), R(t0)
	ADD	$64, R(data)
	CMP	R(t0), R(data)
	BLO	loop

	RET

// MD5 constants table

	// Round 1
	DATA	·table+0x00(SB)/4, $0xd76aa478
	DATA	·table+0x04(SB)/4, $0xe8c7b756
	DATA	·table+0x08(SB)/4, $0x242070db
	DATA	·table+0x0c(SB)/4, $0xc1bdceee
	DATA	·table+0x10(SB)/4, $0xf57c0faf
	DATA	·table+0x14(SB)/4, $0x4787c62a
	DATA	·table+0x18(SB)/4, $0xa8304613
	DATA	·table+0x1c(SB)/4, $0xfd469501
	DATA	·table+0x20(SB)/4, $0x698098d8
	DATA	·table+0x24(SB)/4, $0x8b44f7af
	DATA	·table+0x28(SB)/4, $0xffff5bb1
	DATA	·table+0x2c(SB)/4, $0x895cd7be
	DATA	·table+0x30(SB)/4, $0x6b901122
	DATA	·table+0x34(SB)/4, $0xfd987193
	DATA	·table+0x38(SB)/4, $0xa679438e
	DATA	·table+0x3c(SB)/4, $0x49b40821
	// Round 2
	DATA	·table+0x40(SB)/4, $0xf61e2562
	DATA	·table+0x44(SB)/4, $0xc040b340
	DATA	·table+0x48(SB)/4, $0x265e5a51
	DATA	·table+0x4c(SB)/4, $0xe9b6c7aa
	DATA	·table+0x50(SB)/4, $0xd62f105d
	DATA	·table+0x54(SB)/4, $0x02441453
	DATA	·table+0x58(SB)/4, $0xd8a1e681
	DATA	·table+0x5c(SB)/4, $0xe7d3fbc8
	DATA	·table+0x60(SB)/4, $0x21e1cde6
	DATA	·table+0x64(SB)/4, $0xc33707d6
	DATA	·table+0x68(SB)/4, $0xf4d50d87
	DATA	·table+0x6c(SB)/4, $0x455a14ed
	DATA	·table+0x70(SB)/4, $0xa9e3e905
	DATA	·table+0x74(SB)/4, $0xfcefa3f8
	DATA	·table+0x78(SB)/4, $0x676f02d9
	DATA	·table+0x7c(SB)/4, $0x8d2a4c8a
	// Round 3
	DATA	·table+0x80(SB)/4, $0xfffa3942
	DATA	·table+0x84(SB)/4, $0x8771f681
	DATA	·table+0x88(SB)/4, $0x6d9d6122
	DATA	·table+0x8c(SB)/4, $0xfde5380c
	DATA	·table+0x90(SB)/4, $0xa4beea44
	DATA	·table+0x94(SB)/4, $0x4bdecfa9
	DATA	·table+0x98(SB)/4, $0xf6bb4b60
	DATA	·table+0x9c(SB)/4, $0xbebfbc70
	DATA	·table+0xa0(SB)/4, $0x289b7ec6
	DATA	·table+0xa4(SB)/4, $0xeaa127fa
	DATA	·table+0xa8(SB)/4, $0xd4ef3085
	DATA	·table+0xac(SB)/4, $0x04881d05
	DATA	·table+0xb0(SB)/4, $0xd9d4d039
	DATA	·table+0xb4(SB)/4, $0xe6db99e5
	DATA	·table+0xb8(SB)/4, $0x1fa27cf8
	DATA	·table+0xbc(SB)/4, $0xc4ac5665
	// Round 4
	DATA	·table+0xc0(SB)/4, $0xf4292244
	DATA	·table+0xc4(SB)/4, $0x432aff97
	DATA	·table+0xc8(SB)/4, $0xab9423a7
	DATA	·table+0xcc(SB)/4, $0xfc93a039
	DATA	·table+0xd0(SB)/4, $0x655b59c3
	DATA	·table+0xd4(SB)/4, $0x8f0ccc92
	DATA	·table+0xd8(SB)/4, $0xffeff47d
	DATA	·table+0xdc(SB)/4, $0x85845dd1
	DATA	·table+0xe0(SB)/4, $0x6fa87e4f
	DATA	·table+0xe4(SB)/4, $0xfe2ce6e0
	DATA	·table+0xe8(SB)/4, $0xa3014314
	DATA	·table+0xec(SB)/4, $0x4e0811a1
	DATA	·table+0xf0(SB)/4, $0xf7537e82
	DATA	·table+0xf4(SB)/4, $0xbd3af235
	DATA	·table+0xf8(SB)/4, $0x2ad7d2bb
	DATA	·table+0xfc(SB)/4, $0xeb86d391
	// Global definition
	GLOBL	·table(SB),8,$256