| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* csum_copy.S: Checksum+copy code for sparc64 | 
|  | 2 | * | 
|  | 3 | * Copyright (C) 2005 David S. Miller <davem@davemloft.net> | 
|  | 4 | */ | 
|  | 5 |  | 
|  | 6 | #ifdef __KERNEL__ | 
|  | 7 | #define GLOBAL_SPARE	%g7 | 
|  | 8 | #else | 
|  | 9 | #define GLOBAL_SPARE	%g5 | 
|  | 10 | #endif | 
|  | 11 |  | 
|  | 12 | #ifndef EX_LD | 
|  | 13 | #define EX_LD(x)	x | 
|  | 14 | #endif | 
|  | 15 |  | 
|  | 16 | #ifndef EX_ST | 
|  | 17 | #define EX_ST(x)	x | 
|  | 18 | #endif | 
|  | 19 |  | 
|  | 20 | #ifndef EX_RETVAL | 
|  | 21 | #define EX_RETVAL(x)	x | 
|  | 22 | #endif | 
|  | 23 |  | 
|  | 24 | #ifndef LOAD | 
|  | 25 | #define LOAD(type,addr,dest)	type [addr], dest | 
|  | 26 | #endif | 
|  | 27 |  | 
|  | 28 | #ifndef STORE | 
|  | 29 | #define STORE(type,src,addr)	type src, [addr] | 
|  | 30 | #endif | 
|  | 31 |  | 
|  | 32 | #ifndef FUNC_NAME | 
|  | 33 | #define FUNC_NAME	csum_partial_copy_nocheck | 
|  | 34 | #endif | 
|  | 35 |  | 
|  | 36 | .register	%g2, #scratch | 
|  | 37 | .register	%g3, #scratch | 
|  | 38 |  | 
|  | 39 | .text | 
|  | 40 |  | 
|  | 41 | 90: | 
|  | 42 | /* We checked for zero length already, so there must be | 
|  | 43 | * at least one byte. | 
|  | 44 | */ | 
|  | 45 | be,pt		%icc, 1f | 
|  | 46 | nop | 
|  | 47 | EX_LD(LOAD(ldub, %o0 + 0x00, %o4)) | 
|  | 48 | add		%o0, 1, %o0 | 
|  | 49 | sub		%o2, 1, %o2 | 
|  | 50 | EX_ST(STORE(stb, %o4, %o1 + 0x00)) | 
|  | 51 | add		%o1, 1, %o1 | 
|  | 52 | 1:	andcc		%o0, 0x2, %g0 | 
|  | 53 | be,pn		%icc, 80f | 
|  | 54 | cmp		%o2, 2 | 
|  | 55 | blu,pn		%icc, 60f | 
|  | 56 | nop | 
|  | 57 | EX_LD(LOAD(lduh, %o0 + 0x00, %o5)) | 
|  | 58 | add		%o0, 2, %o0 | 
|  | 59 | sub		%o2, 2, %o2 | 
|  | 60 | EX_ST(STORE(sth, %o5, %o1 + 0x00)) | 
|  | 61 | add		%o1, 2, %o1 | 
|  | 62 | ba,pt		%xcc, 80f | 
|  | 63 | add		%o5, %o4, %o4 | 
|  | 64 |  | 
|  | 65 | .globl		FUNC_NAME | 
|  | 66 | FUNC_NAME:		/* %o0=src, %o1=dst, %o2=len, %o3=sum */ | 
|  | 67 | LOAD(prefetch, %o0 + 0x000, #n_reads) | 
|  | 68 | xor		%o0, %o1, %g1 | 
|  | 69 | clr		%o4 | 
|  | 70 | andcc		%g1, 0x3, %g0 | 
|  | 71 | bne,pn		%icc, 95f | 
|  | 72 | LOAD(prefetch, %o0 + 0x040, #n_reads) | 
|  | 73 |  | 
|  | 74 | brz,pn		%o2, 70f | 
|  | 75 | andcc		%o0, 0x3, %g0 | 
|  | 76 |  | 
|  | 77 | /* We "remember" whether the lowest bit in the address | 
|  | 78 | * was set in GLOBAL_SPARE.  Because if it is, we have to swap | 
|  | 79 | * upper and lower 8 bit fields of the sum we calculate. | 
|  | 80 | */ | 
|  | 81 | bne,pn		%icc, 90b | 
|  | 82 | andcc		%o0, 0x1, GLOBAL_SPARE | 
|  | 83 |  | 
|  | 84 | 80: | 
|  | 85 | LOAD(prefetch, %o0 + 0x080, #n_reads) | 
|  | 86 | andncc		%o2, 0x3f, %g3 | 
|  | 87 |  | 
|  | 88 | LOAD(prefetch, %o0 + 0x0c0, #n_reads) | 
|  | 89 | sub		%o2, %g3, %o2 | 
|  | 90 | brz,pn		%g3, 2f | 
|  | 91 | LOAD(prefetch, %o0 + 0x100, #n_reads) | 
|  | 92 |  | 
|  | 93 | /* So that we don't need to use the non-pairing | 
|  | 94 | * add-with-carry instructions we accumulate 32-bit | 
|  | 95 | * values into a 64-bit register.  At the end of the | 
|  | 96 | * loop we fold it down to 32-bits and so on. | 
|  | 97 | */ | 
|  | 98 | ba,pt		%xcc, 1f | 
|  | 99 | LOAD(prefetch, %o0 + 0x140, #n_reads) | 
|  | 100 |  | 
|  | 101 | .align		32 | 
|  | 102 | 1:	EX_LD(LOAD(lduw, %o0 + 0x00, %o5)) | 
|  | 103 | EX_LD(LOAD(lduw, %o0 + 0x04, %g1)) | 
|  | 104 | EX_LD(LOAD(lduw, %o0 + 0x08, %g2)) | 
|  | 105 | add		%o4, %o5, %o4 | 
|  | 106 | EX_ST(STORE(stw, %o5, %o1 + 0x00)) | 
|  | 107 | EX_LD(LOAD(lduw, %o0 + 0x0c, %o5)) | 
|  | 108 | add		%o4, %g1, %o4 | 
|  | 109 | EX_ST(STORE(stw, %g1, %o1 + 0x04)) | 
|  | 110 | EX_LD(LOAD(lduw, %o0 + 0x10, %g1)) | 
|  | 111 | add		%o4, %g2, %o4 | 
|  | 112 | EX_ST(STORE(stw, %g2, %o1 + 0x08)) | 
|  | 113 | EX_LD(LOAD(lduw, %o0 + 0x14, %g2)) | 
|  | 114 | add		%o4, %o5, %o4 | 
|  | 115 | EX_ST(STORE(stw, %o5, %o1 + 0x0c)) | 
|  | 116 | EX_LD(LOAD(lduw, %o0 + 0x18, %o5)) | 
|  | 117 | add		%o4, %g1, %o4 | 
|  | 118 | EX_ST(STORE(stw, %g1, %o1 + 0x10)) | 
|  | 119 | EX_LD(LOAD(lduw, %o0 + 0x1c, %g1)) | 
|  | 120 | add		%o4, %g2, %o4 | 
|  | 121 | EX_ST(STORE(stw, %g2, %o1 + 0x14)) | 
|  | 122 | EX_LD(LOAD(lduw, %o0 + 0x20, %g2)) | 
|  | 123 | add		%o4, %o5, %o4 | 
|  | 124 | EX_ST(STORE(stw, %o5, %o1 + 0x18)) | 
|  | 125 | EX_LD(LOAD(lduw, %o0 + 0x24, %o5)) | 
|  | 126 | add		%o4, %g1, %o4 | 
|  | 127 | EX_ST(STORE(stw, %g1, %o1 + 0x1c)) | 
|  | 128 | EX_LD(LOAD(lduw, %o0 + 0x28, %g1)) | 
|  | 129 | add		%o4, %g2, %o4 | 
|  | 130 | EX_ST(STORE(stw, %g2, %o1 + 0x20)) | 
|  | 131 | EX_LD(LOAD(lduw, %o0 + 0x2c, %g2)) | 
|  | 132 | add		%o4, %o5, %o4 | 
|  | 133 | EX_ST(STORE(stw, %o5, %o1 + 0x24)) | 
|  | 134 | EX_LD(LOAD(lduw, %o0 + 0x30, %o5)) | 
|  | 135 | add		%o4, %g1, %o4 | 
|  | 136 | EX_ST(STORE(stw, %g1, %o1 + 0x28)) | 
|  | 137 | EX_LD(LOAD(lduw, %o0 + 0x34, %g1)) | 
|  | 138 | add		%o4, %g2, %o4 | 
|  | 139 | EX_ST(STORE(stw, %g2, %o1 + 0x2c)) | 
|  | 140 | EX_LD(LOAD(lduw, %o0 + 0x38, %g2)) | 
|  | 141 | add		%o4, %o5, %o4 | 
|  | 142 | EX_ST(STORE(stw, %o5, %o1 + 0x30)) | 
|  | 143 | EX_LD(LOAD(lduw, %o0 + 0x3c, %o5)) | 
|  | 144 | add		%o4, %g1, %o4 | 
|  | 145 | EX_ST(STORE(stw, %g1, %o1 + 0x34)) | 
|  | 146 | LOAD(prefetch, %o0 + 0x180, #n_reads) | 
|  | 147 | add		%o4, %g2, %o4 | 
|  | 148 | EX_ST(STORE(stw, %g2, %o1 + 0x38)) | 
|  | 149 | subcc		%g3, 0x40, %g3 | 
|  | 150 | add		%o0, 0x40, %o0 | 
|  | 151 | add		%o4, %o5, %o4 | 
|  | 152 | EX_ST(STORE(stw, %o5, %o1 + 0x3c)) | 
|  | 153 | bne,pt		%icc, 1b | 
|  | 154 | add		%o1, 0x40, %o1 | 
|  | 155 |  | 
|  | 156 | 2:	and		%o2, 0x3c, %g3 | 
|  | 157 | brz,pn		%g3, 2f | 
|  | 158 | sub		%o2, %g3, %o2 | 
|  | 159 | 1:	EX_LD(LOAD(lduw, %o0 + 0x00, %o5)) | 
|  | 160 | subcc		%g3, 0x4, %g3 | 
|  | 161 | add		%o0, 0x4, %o0 | 
|  | 162 | add		%o4, %o5, %o4 | 
|  | 163 | EX_ST(STORE(stw, %o5, %o1 + 0x00)) | 
|  | 164 | bne,pt		%icc, 1b | 
|  | 165 | add		%o1, 0x4, %o1 | 
|  | 166 |  | 
|  | 167 | 2: | 
|  | 168 | /* fold 64-->32 */ | 
|  | 169 | srlx		%o4, 32, %o5 | 
|  | 170 | srl		%o4, 0, %o4 | 
|  | 171 | add		%o4, %o5, %o4 | 
|  | 172 | srlx		%o4, 32, %o5 | 
|  | 173 | srl		%o4, 0, %o4 | 
|  | 174 | add		%o4, %o5, %o4 | 
|  | 175 |  | 
|  | 176 | /* fold 32-->16 */ | 
|  | 177 | sethi		%hi(0xffff0000), %g1 | 
|  | 178 | srl		%o4, 16, %o5 | 
|  | 179 | andn		%o4, %g1, %g2 | 
|  | 180 | add		%o5, %g2, %o4 | 
|  | 181 | srl		%o4, 16, %o5 | 
|  | 182 | andn		%o4, %g1, %g2 | 
|  | 183 | add		%o5, %g2, %o4 | 
|  | 184 |  | 
|  | 185 | 60: | 
|  | 186 | /* %o4 has the 16-bit sum we have calculated so-far.  */ | 
|  | 187 | cmp		%o2, 2 | 
|  | 188 | blu,pt		%icc, 1f | 
|  | 189 | nop | 
|  | 190 | EX_LD(LOAD(lduh, %o0 + 0x00, %o5)) | 
|  | 191 | sub		%o2, 2, %o2 | 
|  | 192 | add		%o0, 2, %o0 | 
|  | 193 | add		%o4, %o5, %o4 | 
|  | 194 | EX_ST(STORE(sth, %o5, %o1 + 0x00)) | 
|  | 195 | add		%o1, 0x2, %o1 | 
|  | 196 | 1:	brz,pt		%o2, 1f | 
|  | 197 | nop | 
|  | 198 | EX_LD(LOAD(ldub, %o0 + 0x00, %o5)) | 
|  | 199 | sub		%o2, 1, %o2 | 
|  | 200 | add		%o0, 1, %o0 | 
|  | 201 | EX_ST(STORE(stb, %o5, %o1 + 0x00)) | 
|  | 202 | sllx		%o5, 8, %o5 | 
|  | 203 | add		%o1, 1, %o1 | 
|  | 204 | add		%o4, %o5, %o4 | 
|  | 205 | 1: | 
|  | 206 | /* fold 32-->16 */ | 
|  | 207 | sethi		%hi(0xffff0000), %g1 | 
|  | 208 | srl		%o4, 16, %o5 | 
|  | 209 | andn		%o4, %g1, %g2 | 
|  | 210 | add		%o5, %g2, %o4 | 
|  | 211 | srl		%o4, 16, %o5 | 
|  | 212 | andn		%o4, %g1, %g2 | 
|  | 213 | add		%o5, %g2, %o4 | 
|  | 214 |  | 
|  | 215 | 1:	brz,pt		GLOBAL_SPARE, 1f | 
|  | 216 | nop | 
|  | 217 |  | 
|  | 218 | /* We started with an odd byte, byte-swap the result.  */ | 
|  | 219 | srl		%o4, 8, %o5 | 
|  | 220 | and		%o4, 0xff, %g1 | 
|  | 221 | sll		%g1, 8, %g1 | 
|  | 222 | or		%o5, %g1, %o4 | 
|  | 223 |  | 
| David S. Miller | ae5de0f | 2006-06-04 21:32:01 -0700 | [diff] [blame] | 224 | 1:	addcc		%o3, %o4, %o3 | 
|  | 225 | addc		%g0, %o3, %o3 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 226 |  | 
|  | 227 | 70: | 
|  | 228 | retl | 
| David S. Miller | ae5de0f | 2006-06-04 21:32:01 -0700 | [diff] [blame] | 229 | srl		%o3, 0, %o0 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 230 |  | 
|  | 231 | 95:	mov		0, GLOBAL_SPARE | 
|  | 232 | brlez,pn	%o2, 4f | 
|  | 233 | andcc		%o0, 1, %o5 | 
|  | 234 | be,a,pt		%icc, 1f | 
|  | 235 | srl		%o2, 1, %g1 | 
|  | 236 | sub		%o2, 1, %o2 | 
|  | 237 | EX_LD(LOAD(ldub, %o0, GLOBAL_SPARE)) | 
|  | 238 | add		%o0, 1, %o0 | 
|  | 239 | EX_ST(STORE(stb, GLOBAL_SPARE, %o1)) | 
|  | 240 | srl		%o2, 1, %g1 | 
|  | 241 | add		%o1, 1, %o1 | 
|  | 242 | 1:	brz,a,pn	%g1, 3f | 
|  | 243 | andcc		%o2, 1, %g0 | 
|  | 244 | andcc		%o0, 2, %g0 | 
|  | 245 | be,a,pt		%icc, 1f | 
|  | 246 | srl		%g1, 1, %g1 | 
|  | 247 | EX_LD(LOAD(lduh, %o0, %o4)) | 
|  | 248 | sub		%o2, 2, %o2 | 
|  | 249 | srl		%o4, 8, %g2 | 
|  | 250 | sub		%g1, 1, %g1 | 
|  | 251 | EX_ST(STORE(stb, %g2, %o1)) | 
|  | 252 | add		%o4, GLOBAL_SPARE, GLOBAL_SPARE | 
|  | 253 | EX_ST(STORE(stb, %o4, %o1 + 1)) | 
|  | 254 | add		%o0, 2, %o0 | 
|  | 255 | srl		%g1, 1, %g1 | 
|  | 256 | add		%o1, 2, %o1 | 
|  | 257 | 1:	brz,a,pn	%g1, 2f | 
|  | 258 | andcc		%o2, 2, %g0 | 
|  | 259 | EX_LD(LOAD(lduw, %o0, %o4)) | 
|  | 260 | 5:	srl		%o4, 24, %g2 | 
|  | 261 | srl		%o4, 16, %g3 | 
|  | 262 | EX_ST(STORE(stb, %g2, %o1)) | 
|  | 263 | srl		%o4, 8, %g2 | 
|  | 264 | EX_ST(STORE(stb, %g3, %o1 + 1)) | 
|  | 265 | add		%o0, 4, %o0 | 
|  | 266 | EX_ST(STORE(stb, %g2, %o1 + 2)) | 
|  | 267 | addcc		%o4, GLOBAL_SPARE, GLOBAL_SPARE | 
|  | 268 | EX_ST(STORE(stb, %o4, %o1 + 3)) | 
|  | 269 | addc		GLOBAL_SPARE, %g0, GLOBAL_SPARE | 
|  | 270 | add		%o1, 4, %o1 | 
|  | 271 | subcc		%g1, 1, %g1 | 
|  | 272 | bne,a,pt	%icc, 5b | 
|  | 273 | EX_LD(LOAD(lduw, %o0, %o4)) | 
|  | 274 | sll		GLOBAL_SPARE, 16, %g2 | 
|  | 275 | srl		GLOBAL_SPARE, 16, GLOBAL_SPARE | 
|  | 276 | srl		%g2, 16, %g2 | 
|  | 277 | andcc		%o2, 2, %g0 | 
|  | 278 | add		%g2, GLOBAL_SPARE, GLOBAL_SPARE | 
|  | 279 | 2:	be,a,pt		%icc, 3f | 
|  | 280 | andcc		%o2, 1, %g0 | 
|  | 281 | EX_LD(LOAD(lduh, %o0, %o4)) | 
|  | 282 | andcc		%o2, 1, %g0 | 
|  | 283 | srl		%o4, 8, %g2 | 
|  | 284 | add		%o0, 2, %o0 | 
|  | 285 | EX_ST(STORE(stb, %g2, %o1)) | 
|  | 286 | add		GLOBAL_SPARE, %o4, GLOBAL_SPARE | 
|  | 287 | EX_ST(STORE(stb, %o4, %o1 + 1)) | 
|  | 288 | add		%o1, 2, %o1 | 
|  | 289 | 3:	be,a,pt		%icc, 1f | 
|  | 290 | sll		GLOBAL_SPARE, 16, %o4 | 
|  | 291 | EX_LD(LOAD(ldub, %o0, %g2)) | 
|  | 292 | sll		%g2, 8, %o4 | 
|  | 293 | EX_ST(STORE(stb, %g2, %o1)) | 
|  | 294 | add		GLOBAL_SPARE, %o4, GLOBAL_SPARE | 
|  | 295 | sll		GLOBAL_SPARE, 16, %o4 | 
|  | 296 | 1:	addcc		%o4, GLOBAL_SPARE, GLOBAL_SPARE | 
|  | 297 | srl		GLOBAL_SPARE, 16, %o4 | 
|  | 298 | addc		%g0, %o4, GLOBAL_SPARE | 
|  | 299 | brz,pt		%o5, 4f | 
|  | 300 | srl		GLOBAL_SPARE, 8, %o4 | 
|  | 301 | and		GLOBAL_SPARE, 0xff, %g2 | 
|  | 302 | and		%o4, 0xff, %o4 | 
|  | 303 | sll		%g2, 8, %g2 | 
|  | 304 | or		%g2, %o4, GLOBAL_SPARE | 
|  | 305 | 4:	addcc		%o3, GLOBAL_SPARE, %o3 | 
|  | 306 | addc		%g0, %o3, %o0 | 
|  | 307 | retl | 
|  | 308 | srl		%o0, 0, %o0 | 
|  | 309 | .size		FUNC_NAME, .-FUNC_NAME |