| /* |
| * arch/alpha/lib/strcat.S |
| * Contributed by Richard Henderson (rth@tamu.edu) |
| * |
| * Append a null-terminated string from SRC to DST. |
| */ |
| |
| .text |
| |
| .align 3 |
| .globl strcat |
| .ent strcat |
| strcat: |
| .frame $30, 0, $26 |
| .prologue 0 |
| |
| mov $16, $0 # set up return value |
| |
| /* Find the end of the string. */ |
| |
| ldq_u $1, 0($16) # load first quadword (a0 may be misaligned) |
| lda $2, -1 |
| insqh $2, $16, $2 |
| andnot $16, 7, $16 |
| or $2, $1, $1 |
| cmpbge $31, $1, $2 # bits set iff byte == 0 |
| bne $2, $found |
| |
| $loop: ldq $1, 8($16) |
| addq $16, 8, $16 |
| cmpbge $31, $1, $2 |
| beq $2, $loop |
| |
| $found: negq $2, $3 # clear all but least set bit |
| and $2, $3, $2 |
| |
| and $2, 0xf0, $3 # binary search for that set bit |
| and $2, 0xcc, $4 |
| and $2, 0xaa, $5 |
| cmovne $3, 4, $3 |
| cmovne $4, 2, $4 |
| cmovne $5, 1, $5 |
| addq $3, $4, $3 |
| addq $16, $5, $16 |
| addq $16, $3, $16 |
| |
| /* Now do the append. */ |
| |
| mov $26, $23 |
| br __stxcpy |
| |
| .end strcat |