github.com/code-reading/golang@v0.0.0-20220303082512-ba5bc0e589a3/go/src/crypto/md5/md5block_ppc64x.s (about) 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