Text file
src/crypto/md5/md5block_ppc64x.s
1 // Original source:
2 // http://www.zorinaq.com/papers/md5-amd64.html
3 // http://www.zorinaq.com/papers/md5-amd64.tar.bz2
4 //
5 // MD5 optimized for ppc64le using Go's assembler for
6 // ppc64le, based on md5block_amd64.s implementation by
7 // the Go authors.
8 //
9 // Author: Marc Bevand <bevand_m (at) epita.fr>
10 // Licence: I hereby disclaim the copyright on this code and place it
11 // in the public domain.
12
13 //go:build ppc64 || ppc64le
14 // +build ppc64 ppc64le
15
16 #include "textflag.h"
17
18 // ENDIAN_MOVE generates the appropriate
19 // 4 byte load for big or little endian.
20 // The 4 bytes at ptr+off is loaded into dst.
21 // The idx reg is only needed for big endian
22 // and is clobbered when used.
23 #ifdef GOARCH_ppc64le
24 #define ENDIAN_MOVE(off, ptr, dst, idx) \
25 MOVWZ off(ptr),dst
26 #else
27 #define ENDIAN_MOVE(off, ptr, dst, idx) \
28 MOVD $off,idx; \
29 MOVWBR (idx)(ptr), dst
30 #endif
31
32 #define M00 R18
33 #define M01 R19
34 #define M02 R20
35 #define M03 R24
36 #define M04 R25
37 #define M05 R26
38 #define M06 R27
39 #define M07 R28
40 #define M08 R29
41 #define M09 R21
42 #define M10 R11
43 #define M11 R8
44 #define M12 R7
45 #define M13 R12
46 #define M14 R23
47 #define M15 R10
48
49 #define ROUND1(a, b, c, d, index, const, shift) \
50 ADD $const, index, R9; \
51 ADD R9, a; \
52 AND b, c, R9; \
53 ANDN b, d, R31; \
54 OR R9, R31, R9; \
55 ADD R9, a; \
56 ROTLW $shift, a; \
57 ADD b, a;
58
59 #define ROUND2(a, b, c, d, index, const, shift) \
60 ADD $const, index, R9; \
61 ADD R9, a; \
62 AND b, d, R31; \
63 ANDN d, c, R9; \
64 OR R9, R31; \
65 ADD R31, a; \
66 ROTLW $shift, a; \
67 ADD b, a;
68
69 #define ROUND3(a, b, c, d, index, const, shift) \
70 ADD $const, index, R9; \
71 ADD R9, a; \
72 XOR d, c, R31; \
73 XOR b, R31; \
74 ADD R31, a; \
75 ROTLW $shift, a; \
76 ADD b, a;
77
78 #define ROUND4(a, b, c, d, index, const, shift) \
79 ADD $const, index, R9; \
80 ADD R9, a; \
81 ORN d, b, R31; \
82 XOR c, R31; \
83 ADD R31, a; \
84 ROTLW $shift, a; \
85 ADD b, a;
86
87
88 TEXT ·block(SB),NOSPLIT,$0-32
89 MOVD dig+0(FP), R10
90 MOVD p+8(FP), R6
91 MOVD p_len+16(FP), R5
92
93 // We assume p_len >= 64
94 SRD $6, R5
95 MOVD R5, CTR
96
97 MOVWZ 0(R10), R22
98 MOVWZ 4(R10), R3
99 MOVWZ 8(R10), R4
100 MOVWZ 12(R10), R5
101
102 loop:
103 MOVD R22, R14
104 MOVD R3, R15
105 MOVD R4, R16
106 MOVD R5, R17
107
108 ENDIAN_MOVE( 0,R6,M00,M15)
109 ENDIAN_MOVE( 4,R6,M01,M15)
110 ENDIAN_MOVE( 8,R6,M02,M15)
111 ENDIAN_MOVE(12,R6,M03,M15)
112
113 ROUND1(R22,R3,R4,R5,M00,0xd76aa478, 7);
114 ROUND1(R5,R22,R3,R4,M01,0xe8c7b756,12);
115 ROUND1(R4,R5,R22,R3,M02,0x242070db,17);
116 ROUND1(R3,R4,R5,R22,M03,0xc1bdceee,22);
117
118 ENDIAN_MOVE(16,R6,M04,M15)
119 ENDIAN_MOVE(20,R6,M05,M15)
120 ENDIAN_MOVE(24,R6,M06,M15)
121 ENDIAN_MOVE(28,R6,M07,M15)
122
123 ROUND1(R22,R3,R4,R5,M04,0xf57c0faf, 7);
124 ROUND1(R5,R22,R3,R4,M05,0x4787c62a,12);
125 ROUND1(R4,R5,R22,R3,M06,0xa8304613,17);
126 ROUND1(R3,R4,R5,R22,M07,0xfd469501,22);
127
128 ENDIAN_MOVE(32,R6,M08,M15)
129 ENDIAN_MOVE(36,R6,M09,M15)
130 ENDIAN_MOVE(40,R6,M10,M15)
131 ENDIAN_MOVE(44,R6,M11,M15)
132
133 ROUND1(R22,R3,R4,R5,M08,0x698098d8, 7);
134 ROUND1(R5,R22,R3,R4,M09,0x8b44f7af,12);
135 ROUND1(R4,R5,R22,R3,M10,0xffff5bb1,17);
136 ROUND1(R3,R4,R5,R22,M11,0x895cd7be,22);
137
138 ENDIAN_MOVE(48,R6,M12,M15)
139 ENDIAN_MOVE(52,R6,M13,M15)
140 ENDIAN_MOVE(56,R6,M14,M15)
141 ENDIAN_MOVE(60,R6,M15,M15)
142
143 ROUND1(R22,R3,R4,R5,M12,0x6b901122, 7);
144 ROUND1(R5,R22,R3,R4,M13,0xfd987193,12);
145 ROUND1(R4,R5,R22,R3,M14,0xa679438e,17);
146 ROUND1(R3,R4,R5,R22,M15,0x49b40821,22);
147
148 ROUND2(R22,R3,R4,R5,M01,0xf61e2562, 5);
149 ROUND2(R5,R22,R3,R4,M06,0xc040b340, 9);
150 ROUND2(R4,R5,R22,R3,M11,0x265e5a51,14);
151 ROUND2(R3,R4,R5,R22,M00,0xe9b6c7aa,20);
152 ROUND2(R22,R3,R4,R5,M05,0xd62f105d, 5);
153 ROUND2(R5,R22,R3,R4,M10, 0x2441453, 9);
154 ROUND2(R4,R5,R22,R3,M15,0xd8a1e681,14);
155 ROUND2(R3,R4,R5,R22,M04,0xe7d3fbc8,20);
156 ROUND2(R22,R3,R4,R5,M09,0x21e1cde6, 5);
157 ROUND2(R5,R22,R3,R4,M14,0xc33707d6, 9);
158 ROUND2(R4,R5,R22,R3,M03,0xf4d50d87,14);
159 ROUND2(R3,R4,R5,R22,M08,0x455a14ed,20);
160 ROUND2(R22,R3,R4,R5,M13,0xa9e3e905, 5);
161 ROUND2(R5,R22,R3,R4,M02,0xfcefa3f8, 9);
162 ROUND2(R4,R5,R22,R3,M07,0x676f02d9,14);
163 ROUND2(R3,R4,R5,R22,M12,0x8d2a4c8a,20);
164
165 ROUND3(R22,R3,R4,R5,M05,0xfffa3942, 4);
166 ROUND3(R5,R22,R3,R4,M08,0x8771f681,11);
167 ROUND3(R4,R5,R22,R3,M11,0x6d9d6122,16);
168 ROUND3(R3,R4,R5,R22,M14,0xfde5380c,23);
169 ROUND3(R22,R3,R4,R5,M01,0xa4beea44, 4);
170 ROUND3(R5,R22,R3,R4,M04,0x4bdecfa9,11);
171 ROUND3(R4,R5,R22,R3,M07,0xf6bb4b60,16);
172 ROUND3(R3,R4,R5,R22,M10,0xbebfbc70,23);
173 ROUND3(R22,R3,R4,R5,M13,0x289b7ec6, 4);
174 ROUND3(R5,R22,R3,R4,M00,0xeaa127fa,11);
175 ROUND3(R4,R5,R22,R3,M03,0xd4ef3085,16);
176 ROUND3(R3,R4,R5,R22,M06, 0x4881d05,23);
177 ROUND3(R22,R3,R4,R5,M09,0xd9d4d039, 4);
178 ROUND3(R5,R22,R3,R4,M12,0xe6db99e5,11);
179 ROUND3(R4,R5,R22,R3,M15,0x1fa27cf8,16);
180 ROUND3(R3,R4,R5,R22,M02,0xc4ac5665,23);
181
182 ROUND4(R22,R3,R4,R5,M00,0xf4292244, 6);
183 ROUND4(R5,R22,R3,R4,M07,0x432aff97,10);
184 ROUND4(R4,R5,R22,R3,M14,0xab9423a7,15);
185 ROUND4(R3,R4,R5,R22,M05,0xfc93a039,21);
186 ROUND4(R22,R3,R4,R5,M12,0x655b59c3, 6);
187 ROUND4(R5,R22,R3,R4,M03,0x8f0ccc92,10);
188 ROUND4(R4,R5,R22,R3,M10,0xffeff47d,15);
189 ROUND4(R3,R4,R5,R22,M01,0x85845dd1,21);
190 ROUND4(R22,R3,R4,R5,M08,0x6fa87e4f, 6);
191 ROUND4(R5,R22,R3,R4,M15,0xfe2ce6e0,10);
192 ROUND4(R4,R5,R22,R3,M06,0xa3014314,15);
193 ROUND4(R3,R4,R5,R22,M13,0x4e0811a1,21);
194 ROUND4(R22,R3,R4,R5,M04,0xf7537e82, 6);
195 ROUND4(R5,R22,R3,R4,M11,0xbd3af235,10);
196 ROUND4(R4,R5,R22,R3,M02,0x2ad7d2bb,15);
197 ROUND4(R3,R4,R5,R22,M09,0xeb86d391,21);
198
199 ADD R14, R22
200 ADD R15, R3
201 ADD R16, R4
202 ADD R17, R5
203 ADD $64, R6
204 BC 16, 0, loop // bdnz
205
206 end:
207 MOVD dig+0(FP), R10
208 MOVWZ R22, 0(R10)
209 MOVWZ R3, 4(R10)
210 MOVWZ R4, 8(R10)
211 MOVWZ R5, 12(R10)
212
213 RET
214
View as plain text