hashtree-rs 0.2.0

Rust bindings for the hashtree library
Documentation
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
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
/*
MIT License

Copyright (c) 2021-2024 Prysmatic Labs

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
SOFTWARE.

This code is based on Intel's implementation found in
	https://github.com/intel/intel-ipsec-mb
Such software is licensed under the BSD 3-Clause License and is 
Copyright (c) 2012-2023, Intel Corporation
*/

#ifdef __x86_64__
.intel_syntax noprefix
.section .rodata
.align 64

.LK256_4:
	.quad	0x428a2f98428a2f98, 0x428a2f98428a2f98
	.quad	0x7137449171374491, 0x7137449171374491
	.quad	0xb5c0fbcfb5c0fbcf, 0xb5c0fbcfb5c0fbcf
	.quad	0xe9b5dba5e9b5dba5, 0xe9b5dba5e9b5dba5
	.quad	0x3956c25b3956c25b, 0x3956c25b3956c25b
	.quad	0x59f111f159f111f1, 0x59f111f159f111f1
	.quad	0x923f82a4923f82a4, 0x923f82a4923f82a4
	.quad	0xab1c5ed5ab1c5ed5, 0xab1c5ed5ab1c5ed5
	.quad	0xd807aa98d807aa98, 0xd807aa98d807aa98
	.quad	0x12835b0112835b01, 0x12835b0112835b01
	.quad	0x243185be243185be, 0x243185be243185be
	.quad	0x550c7dc3550c7dc3, 0x550c7dc3550c7dc3
	.quad	0x72be5d7472be5d74, 0x72be5d7472be5d74
	.quad	0x80deb1fe80deb1fe, 0x80deb1fe80deb1fe
	.quad	0x9bdc06a79bdc06a7, 0x9bdc06a79bdc06a7
	.quad	0xc19bf174c19bf174, 0xc19bf174c19bf174
	.quad	0xe49b69c1e49b69c1, 0xe49b69c1e49b69c1
	.quad	0xefbe4786efbe4786, 0xefbe4786efbe4786
	.quad	0x0fc19dc60fc19dc6, 0x0fc19dc60fc19dc6
	.quad	0x240ca1cc240ca1cc, 0x240ca1cc240ca1cc
	.quad	0x2de92c6f2de92c6f, 0x2de92c6f2de92c6f
	.quad	0x4a7484aa4a7484aa, 0x4a7484aa4a7484aa
	.quad	0x5cb0a9dc5cb0a9dc, 0x5cb0a9dc5cb0a9dc
	.quad	0x76f988da76f988da, 0x76f988da76f988da
	.quad	0x983e5152983e5152, 0x983e5152983e5152
	.quad	0xa831c66da831c66d, 0xa831c66da831c66d
	.quad	0xb00327c8b00327c8, 0xb00327c8b00327c8
	.quad	0xbf597fc7bf597fc7, 0xbf597fc7bf597fc7
	.quad	0xc6e00bf3c6e00bf3, 0xc6e00bf3c6e00bf3
	.quad	0xd5a79147d5a79147, 0xd5a79147d5a79147
	.quad	0x06ca635106ca6351, 0x06ca635106ca6351
	.quad	0x1429296714292967, 0x1429296714292967
	.quad	0x27b70a8527b70a85, 0x27b70a8527b70a85
	.quad	0x2e1b21382e1b2138, 0x2e1b21382e1b2138
	.quad	0x4d2c6dfc4d2c6dfc, 0x4d2c6dfc4d2c6dfc
	.quad	0x53380d1353380d13, 0x53380d1353380d13
	.quad	0x650a7354650a7354, 0x650a7354650a7354
	.quad	0x766a0abb766a0abb, 0x766a0abb766a0abb
	.quad	0x81c2c92e81c2c92e, 0x81c2c92e81c2c92e
	.quad	0x92722c8592722c85, 0x92722c8592722c85
	.quad	0xa2bfe8a1a2bfe8a1, 0xa2bfe8a1a2bfe8a1
	.quad	0xa81a664ba81a664b, 0xa81a664ba81a664b
	.quad	0xc24b8b70c24b8b70, 0xc24b8b70c24b8b70
	.quad	0xc76c51a3c76c51a3, 0xc76c51a3c76c51a3
	.quad	0xd192e819d192e819, 0xd192e819d192e819
	.quad	0xd6990624d6990624, 0xd6990624d6990624
	.quad	0xf40e3585f40e3585, 0xf40e3585f40e3585
	.quad	0x106aa070106aa070, 0x106aa070106aa070
	.quad	0x19a4c11619a4c116, 0x19a4c11619a4c116
	.quad	0x1e376c081e376c08, 0x1e376c081e376c08
	.quad	0x2748774c2748774c, 0x2748774c2748774c
	.quad	0x34b0bcb534b0bcb5, 0x34b0bcb534b0bcb5
	.quad	0x391c0cb3391c0cb3, 0x391c0cb3391c0cb3
	.quad	0x4ed8aa4a4ed8aa4a, 0x4ed8aa4a4ed8aa4a
	.quad	0x5b9cca4f5b9cca4f, 0x5b9cca4f5b9cca4f
	.quad	0x682e6ff3682e6ff3, 0x682e6ff3682e6ff3
	.quad	0x748f82ee748f82ee, 0x748f82ee748f82ee
	.quad	0x78a5636f78a5636f, 0x78a5636f78a5636f
	.quad	0x84c8781484c87814, 0x84c8781484c87814
	.quad	0x8cc702088cc70208, 0x8cc702088cc70208
	.quad	0x90befffa90befffa, 0x90befffa90befffa
	.quad	0xa4506ceba4506ceb, 0xa4506ceba4506ceb
	.quad	0xbef9a3f7bef9a3f7, 0xbef9a3f7bef9a3f7
	.quad	0xc67178f2c67178f2, 0xc67178f2c67178f2

.LPADDING_4:
        .quad      0xc28a2f98c28a2f98, 0xc28a2f98c28a2f98
        .quad      0x7137449171374491, 0x7137449171374491
        .quad      0xb5c0fbcfb5c0fbcf, 0xb5c0fbcfb5c0fbcf
        .quad      0xe9b5dba5e9b5dba5, 0xe9b5dba5e9b5dba5
        .quad      0x3956c25b3956c25b, 0x3956c25b3956c25b
        .quad      0x59f111f159f111f1, 0x59f111f159f111f1
        .quad      0x923f82a4923f82a4, 0x923f82a4923f82a4
        .quad      0xab1c5ed5ab1c5ed5, 0xab1c5ed5ab1c5ed5
        .quad      0xd807aa98d807aa98, 0xd807aa98d807aa98
        .quad      0x12835b0112835b01, 0x12835b0112835b01
        .quad      0x243185be243185be, 0x243185be243185be
        .quad      0x550c7dc3550c7dc3, 0x550c7dc3550c7dc3
        .quad      0x72be5d7472be5d74, 0x72be5d7472be5d74
        .quad      0x80deb1fe80deb1fe, 0x80deb1fe80deb1fe
        .quad      0x9bdc06a79bdc06a7, 0x9bdc06a79bdc06a7
        .quad      0xc19bf374c19bf374, 0xc19bf374c19bf374
        .quad      0x649b69c1649b69c1, 0x649b69c1649b69c1
        .quad      0xf0fe4786f0fe4786, 0xf0fe4786f0fe4786
        .quad      0x0fe1edc60fe1edc6, 0x0fe1edc60fe1edc6
        .quad      0x240cf254240cf254, 0x240cf254240cf254
        .quad      0x4fe9346f4fe9346f, 0x4fe9346f4fe9346f
        .quad      0x6cc984be6cc984be, 0x6cc984be6cc984be
        .quad      0x61b9411e61b9411e, 0x61b9411e61b9411e
        .quad      0x16f988fa16f988fa, 0x16f988fa16f988fa
        .quad      0xf2c65152f2c65152, 0xf2c65152f2c65152
        .quad      0xa88e5a6da88e5a6d, 0xa88e5a6da88e5a6d
        .quad      0xb019fc65b019fc65, 0xb019fc65b019fc65
        .quad      0xb9d99ec7b9d99ec7, 0xb9d99ec7b9d99ec7
        .quad      0x9a1231c39a1231c3, 0x9a1231c39a1231c3
        .quad      0xe70eeaa0e70eeaa0, 0xe70eeaa0e70eeaa0
        .quad      0xfdb1232bfdb1232b, 0xfdb1232bfdb1232b
        .quad      0xc7353eb0c7353eb0, 0xc7353eb0c7353eb0
        .quad      0x3069bad53069bad5, 0x3069bad53069bad5
        .quad      0xcb976d5fcb976d5f, 0xcb976d5fcb976d5f
        .quad      0x5a0f118f5a0f118f, 0x5a0f118f5a0f118f
        .quad      0xdc1eeefddc1eeefd, 0xdc1eeefddc1eeefd
        .quad      0x0a35b6890a35b689, 0x0a35b6890a35b689
        .quad      0xde0b7a04de0b7a04, 0xde0b7a04de0b7a04
        .quad      0x58f4ca9d58f4ca9d, 0x58f4ca9d58f4ca9d
        .quad      0xe15d5b16e15d5b16, 0xe15d5b16e15d5b16
        .quad      0x007f3e86007f3e86, 0x007f3e86007f3e86
        .quad      0x3708898037088980, 0x3708898037088980
        .quad      0xa507ea32a507ea32, 0xa507ea32a507ea32
        .quad      0x6fab95376fab9537, 0x6fab95376fab9537
        .quad      0x1740611017406110, 0x1740611017406110
        .quad      0x0d8cd6f10d8cd6f1, 0x0d8cd6f10d8cd6f1
        .quad      0xcdaa3b6dcdaa3b6d, 0xcdaa3b6dcdaa3b6d
        .quad      0xc0bbbe37c0bbbe37, 0xc0bbbe37c0bbbe37
        .quad      0x83613bda83613bda, 0x83613bda83613bda
        .quad      0xdb48a363db48a363, 0xdb48a363db48a363
        .quad      0x0b02e9310b02e931, 0x0b02e9310b02e931
        .quad      0x6fd15ca76fd15ca7, 0x6fd15ca76fd15ca7
        .quad      0x521afaca521afaca, 0x521afaca521afaca
        .quad      0x3133843131338431, 0x3133843131338431
        .quad      0x6ed41a956ed41a95, 0x6ed41a956ed41a95
        .quad      0x6d4378906d437890, 0x6d4378906d437890
        .quad      0xc39c91f2c39c91f2, 0xc39c91f2c39c91f2
        .quad      0x9eccabbd9eccabbd, 0x9eccabbd9eccabbd
        .quad      0xb5c9a0e6b5c9a0e6, 0xb5c9a0e6b5c9a0e6
        .quad      0x532fb63c532fb63c, 0x532fb63c532fb63c
        .quad      0xd2c741c6d2c741c6, 0xd2c741c6d2c741c6
        .quad      0x07237ea307237ea3, 0x07237ea307237ea3
        .quad      0xa4954b68a4954b68, 0xa4954b68a4954b68
        .quad      0x4c191d764c191d76, 0x4c191d764c191d76

.LDIGEST_4:
        .long   0x6a09e667, 0x6a09e667, 0x6a09e667, 0x6a09e667
	.long 	0xbb67ae85, 0xbb67ae85, 0xbb67ae85, 0xbb67ae85 
	.long   0x3c6ef372, 0x3c6ef372, 0x3c6ef372, 0x3c6ef372 
	.long 	0xa54ff53a, 0xa54ff53a, 0xa54ff53a, 0xa54ff53a 
	.long	0x510e527f, 0x510e527f, 0x510e527f, 0x510e527f
	.long 	0x9b05688c, 0x9b05688c, 0x9b05688c, 0x9b05688c 
	.long	0x1f83d9ab, 0x1f83d9ab, 0x1f83d9ab, 0x1f83d9ab
        .long   0x5be0cd19, 0x5be0cd19, 0x5be0cd19, 0x5be0cd19

.LPSHUFFLE_BYTE_FLIP_MASK: 
	.quad 0x0405060700010203, 0x0c0d0e0f08090a0b

#ifdef __WIN64__
	.equiv OUTPUT_PTR,	rcx 	// 1st arg
	.equiv DATA_PTR,	rdx 	// 2nd arg
	.equiv NUM_BLKS, 	r8	// 3rd arg
	.equiv TBL, 		rax
#else
	.equiv OUTPUT_PTR,	rdi	// 1st arg
	.equiv DATA_PTR,	rsi	// 2nd arg
	.equiv NUM_BLKS,	rdx	// 3rd arg
	.equiv TBL, 		rcx
#endif

.equiv ROUND,	r9

.equ a, xmm0
.equ b, xmm1
.equ c, xmm2
.equ d, xmm3
.equ e, xmm4
.equ f, xmm5
.equ g, xmm6
.equ h, xmm7

.equiv a0, xmm8
.equiv a1, xmm9
.equiv a2, xmm10

.equiv TT0, xmm14
.equiv TT1, xmm13
.equiv TT2, xmm12
.equiv TT3, xmm11
.equiv TT4, xmm10
.equiv TT5, xmm9

.equiv T1,  xmm14
.equiv TMP, xmm15

#define SZ4 16
#define SHA256_DIGEST_WORD_SIZE 4
#define NUM_SHA256_DIGEST_WORDS 8
#define ROUNDS 1024

// stack usage
#define _DATA 0
#define _DIGEST 256
#ifdef __WIN64__
	#define _XMM_SAVE 384
	#define sha256_avx_4_stack_size 568
#else
	#define sha256_avx_4_stack_size 408
#endif

#define VMOVPS	vmovups

.macro TRANSPOSE r0, r1, r2, r3, t0, t1
	vshufps	\t0, \r0, \r1, 0x44	// t0 = {b1 b0 a1 a0}
	vshufps	\r0, \r0, \r1, 0xEE	// r0 = {b3 b2 a3 a2}

	vshufps	\t1, \r2, \r3, 0x44	// t1 = {d1 d0 c1 c0}
	vshufps	\r2, \r2, \r3, 0xEE	// r2 = {d3 d2 c3 c2}

	vshufps	\r1, \t0, \t1, 0xDD	// r1 = {d1 c1 b1 a1}

	vshufps	\r3, \r0, \r2, 0xDD	// r3 = {d3 c3 b3 a3}

	vshufps	\r0, \r0, \r2, 0x88	// r0 = {d2 c2 b2 a2}
	vshufps	\t0, \t0, \t1, 0x88	// t0 = {d0 c0 b0 a0}
.endm

.macro ROTATE_ARGS
.equ TMP_, h
.equ h, g
.equ g, f
.equ f, e
.equ e, d
.equ d, c
.equ c, b
.equ b, a
.equ a, TMP_
.endm


.macro PRORD3 reg, imm, tmp
	vpslld	\tmp, \reg, (32-(\imm))
	vpsrld	\reg, \reg, \imm
	vpor	\reg, \reg, \tmp
.endm

.macro PRORD_nd4 reg, imm, tmp, src
	vpslld	\tmp, \src, (32-(\imm))
	vpsrld	\reg, \src, \imm
	vpor	\reg, \reg, \tmp
.endm

.macro PRORD src, imm
	PRORD3	\src, \imm, TMP
.endm

.macro PRORD_nd dst, src, amt
	PRORD_nd4	\dst, \amt, TMP, \src
.endm

.macro ROUND_00_15 T1, index
	PRORD_nd	a0, e, (11-6)	// sig1: a0 = (e >> 5)

	vpxor	a2, f, g	// ch: a2 = f^g
	vpand	a2, a2, e	// ch: a2 = (f^g)&e
	vpxor	a2, a2, g	// a2 = ch

	PRORD_nd	a1, e, 25		// sig1: a1 = (e >> 25)
.if .Lpadding - 1
	vmovdqa	[SZ4*(\index&0xf) + rsp + _DATA], \T1
	vpaddd	\T1, \T1, [TBL + ROUND]	// T1 = W + K
.else 
        vmovdqa \T1, [TBL + ROUND]
.endif 
	vpxor	a0, a0, e	// sig1: a0 = e ^ (e >> 5)
	PRORD	a0, 6		// sig1: a0 = (e >> 6) ^ (e >> 11)
	vpaddd	h, h, a2	// h = h + ch
	PRORD_nd	a2, a, (13-2)	// sig0: a2 = (a >> 11)
	vpaddd	h, h, \T1	// h = h + ch + W + K
	vpxor	a0, a0, a1	// a0 = sigma1
	PRORD_nd	a1, a, 22	// sig0: a1 = (a >> 22)
	vpxor	\T1, a, c	// maj: T1 = a^c
	add	ROUND, SZ4	// ROUND++
	vpand	\T1, \T1, b	// maj: T1 = (a^c)&b
	vpaddd	h, h, a0

	vpaddd	d, d, h

	vpxor	a2, a2, a	// sig0: a2 = a ^ (a >> 11)
	PRORD	a2, 2		// sig0: a2 = (a >> 2) ^ (a >> 13)
	vpxor	a2, a2, a1	// a2 = sig0
	vpand	a1, a, c	// maj: a1 = a&c
	vpor	a1, a1, \T1	// a1 = maj
	vpaddd	h, h, a1	// h = h + ch + W + K + maj
	vpaddd	h, h, a2	// h = h + ch + W + K + maj + sigma0

	ROTATE_ARGS
.endm


//; arguments passed implicitly in preprocessor symbols i, a...h
.macro ROUND_16_XX T1, index
	vmovdqa	\T1, [SZ4*((\index-15)&0xf) + rsp + _DATA]
	vmovdqa	a1, [SZ4*((\index-2)&0xf) + rsp + _DATA]
	vmovdqa	a0, \T1
	PRORD	\T1, 18-7
	vmovdqa	a2, a1
	PRORD	a1, 19-17
	vpxor	\T1, \T1, a0
	PRORD	\T1, 7
	vpxor	a1, a1, a2
	PRORD	a1, 17
	vpsrld	a0, a0, 3
	vpxor	\T1, \T1, a0
	vpsrld	a2, a2, 10
	vpxor	a1, a1, a2
	vpaddd	\T1, \T1, [SZ4*((\index-16)&0xf) + rsp + _DATA]
	vpaddd	a1, a1, [SZ4*((\index-7)&0xf) + rsp + _DATA]
	vpaddd	\T1, \T1, a1

	ROUND_00_15 \T1, \index
.endm

.text 
.global hashtree_sha256_avx_x4
#ifndef __WIN64__
.type   hashtree_sha256_avx_x4,%function
#endif
.align 16
hashtree_sha256_avx_x4:
        endbr64
	cmp	NUM_BLKS, 0
	jne	.Lstart_routine
	ret
.Lstart_routine:
	sub	rsp, sha256_avx_4_stack_size
#ifdef __WIN64__
	vmovdqa	[rsp + _XMM_SAVE + 0*16],xmm6
	vmovdqa	[rsp + _XMM_SAVE + 1*16],xmm7
	vmovdqa	[rsp + _XMM_SAVE + 2*16],xmm8
	vmovdqa	[rsp + _XMM_SAVE + 3*16],xmm9
	vmovdqa	[rsp + _XMM_SAVE + 4*16],xmm10
	vmovdqa	[rsp + _XMM_SAVE + 5*16],xmm11
	vmovdqa	[rsp + _XMM_SAVE + 6*16],xmm12
	vmovdqa	[rsp + _XMM_SAVE + 7*16],xmm13
	vmovdqa	[rsp + _XMM_SAVE + 8*16],xmm14
	vmovdqa	[rsp + _XMM_SAVE + 9*16],xmm15
#endif

.Lsha256_4_avx_loop:
.set .Lpadding, 0
	cmp 	NUM_BLKS, 4
	jl 	.Lsha256_4_avx_epilog

	xor	ROUND, ROUND

	// Load the pre-transposed incoming digest.
	lea TBL, [rip + .LDIGEST_4]
	vmovdqa	a,[TBL + 0*SZ4]
	vmovdqa	b,[TBL + 1*SZ4]
	vmovdqa	c,[TBL + 2*SZ4]
	vmovdqa	d,[TBL + 3*SZ4]
	vmovdqa	e,[TBL + 4*SZ4]
	vmovdqa	f,[TBL + 5*SZ4]
	vmovdqa	g,[TBL + 6*SZ4]
	vmovdqa	h,[TBL + 7*SZ4]

	lea	TBL, [rip + .LK256_4]

.set .Li, 0
.rept 4
	vmovdqa	TMP, [rip + .LPSHUFFLE_BYTE_FLIP_MASK]
	VMOVPS	TT2,[DATA_PTR + 0*64 + .Li*16]
	VMOVPS	TT1,[DATA_PTR + 1*64 + .Li*16]
	VMOVPS	TT4,[DATA_PTR + 2*64 + .Li*16]
	VMOVPS	TT3,[DATA_PTR + 3*64 + .Li*16]
	TRANSPOSE	TT2, TT1, TT4, TT3, TT0, TT5
	vpshufb	TT0, TT0, TMP
	vpshufb	TT1, TT1, TMP
	vpshufb	TT2, TT2, TMP
	vpshufb	TT3, TT3, TMP
	ROUND_00_15	TT0, 4*.Li
	ROUND_00_15	TT1, 4*.Li + 1
	ROUND_00_15	TT2, 4*.Li + 2
	ROUND_00_15	TT3, 4*.Li + 3
.set .Li, .Li+1
.endr
.set .Li, 4*.Li
	jmp	.Lrounds_16_xx
.align 16
.Lrounds_16_xx:
.rept 16
	ROUND_16_XX	T1, .Li
.set .Li, .Li+1
.endr

	cmp	ROUND,ROUNDS
	jb	.Lrounds_16_xx

	// add old digest
	lea TBL, [rip + .LDIGEST_4]
	vpaddd	a, a, [TBL + 0*SZ4]
	vpaddd	b, b, [TBL + 1*SZ4]
	vpaddd	c, c, [TBL + 2*SZ4]
	vpaddd	d, d, [TBL + 3*SZ4]
	vpaddd	e, e, [TBL + 4*SZ4]
	vpaddd	f, f, [TBL + 5*SZ4]
	vpaddd	g, g, [TBL + 6*SZ4]
	vpaddd	h, h, [TBL + 7*SZ4]

        // rounds with padding
        
        // save old digest
        
	vmovdqa	[rsp + _DIGEST + 0*SZ4], a
	vmovdqa	[rsp + _DIGEST + 1*SZ4], b
	vmovdqa	[rsp + _DIGEST + 2*SZ4], c
	vmovdqa	[rsp + _DIGEST + 3*SZ4], d
	vmovdqa	[rsp + _DIGEST + 4*SZ4], e
	vmovdqa	[rsp + _DIGEST + 5*SZ4], f
	vmovdqa	[rsp + _DIGEST + 6*SZ4], g
	vmovdqa	[rsp + _DIGEST + 7*SZ4], h

        lea   TBL, [rip + .LPADDING_4]
        xor   ROUND,ROUND
        jmp   .Lrounds_padding

.align 16
.Lrounds_padding:
.set .Lpadding, 1
.rept 64
                    ROUND_00_15 T1, 0
.endr 

	// add old digest
	vpaddd	a, a, [rsp + _DIGEST + 0*SZ4]
	vpaddd	b, b, [rsp + _DIGEST + 1*SZ4]
	vpaddd	c, c, [rsp + _DIGEST + 2*SZ4]
	vpaddd	d, d, [rsp + _DIGEST + 3*SZ4]
	vpaddd	e, e, [rsp + _DIGEST + 4*SZ4]
	vpaddd	f, f, [rsp + _DIGEST + 5*SZ4]
	vpaddd	g, g, [rsp + _DIGEST + 6*SZ4]
	vpaddd	h, h, [rsp + _DIGEST + 7*SZ4]

	// transpose the digest and convert to little endian to get the registers correctly

	TRANSPOSE a, b, c, d, TT0, TT1
        TRANSPOSE e, f, g, h, TT2, TT1

	vmovdqa	TMP, [rip + .LPSHUFFLE_BYTE_FLIP_MASK]
        vpshufb TT0, TT0, TMP
        vpshufb TT2, TT2, TMP
        vpshufb b, b, TMP
        vpshufb f, f, TMP
        vpshufb a, a, TMP
        vpshufb e, e, TMP
        vpshufb d, d, TMP
        vpshufb h, h, TMP


	// write to output

	vmovdqu	[OUTPUT_PTR + 0*SZ4],TT0
	vmovdqu	[OUTPUT_PTR + 1*SZ4],TT2
	vmovdqu	[OUTPUT_PTR + 2*SZ4],b
	vmovdqu	[OUTPUT_PTR + 3*SZ4],f
	vmovdqu	[OUTPUT_PTR + 4*SZ4],a
	vmovdqu	[OUTPUT_PTR + 5*SZ4],e
	vmovdqu	[OUTPUT_PTR + 6*SZ4],d
	vmovdqu	[OUTPUT_PTR + 7*SZ4],h

	// update pointers and loop

        add 	DATA_PTR, 64*4
	add 	OUTPUT_PTR, 32*4
	sub 	NUM_BLKS, 4
        jmp     .Lsha256_4_avx_loop

.Lsha256_4_avx_epilog:
#ifdef __WIN64__
	vmovdqa	xmm6,[rsp + _XMM_SAVE + 0*16]
	vmovdqa	xmm7,[rsp + _XMM_SAVE + 1*16]
	vmovdqa	xmm8,[rsp + _XMM_SAVE + 2*16]
	vmovdqa	xmm9,[rsp + _XMM_SAVE + 3*16]
	vmovdqa	xmm10,[rsp + _XMM_SAVE + 4*16]
	vmovdqa	xmm11,[rsp + _XMM_SAVE + 5*16]
	vmovdqa	xmm12,[rsp + _XMM_SAVE + 6*16]
	vmovdqa	xmm13,[rsp + _XMM_SAVE + 7*16]
	vmovdqa	xmm14,[rsp + _XMM_SAVE + 8*16]
	vmovdqa	xmm15,[rsp + _XMM_SAVE + 9*16]
#endif 

	add	rsp, sha256_avx_4_stack_size
        jmp     hashtree_sha256_avx_x1
#ifdef __linux__ 
.size hashtree_sha256_avx_x4,.-hashtree_sha256_avx_x4
.section .note.GNU-stack,"",@progbits
#endif
#endif