Orange Pi5 kernel

^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  1) /* SPDX-License-Identifier: GPL-2.0 */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  2) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  3)  * arch/alpha/lib/strcat.S
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  4)  * Contributed by Richard Henderson (rth@tamu.edu)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  5)  *
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  6)  * Append a null-terminated string from SRC to DST.
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  7)  */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  8) #include <asm/export.h>
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300  9) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 10) 	.text
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 11) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 12) 	.align 3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 13) 	.globl strcat
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 14) 	.ent strcat
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 15) strcat:
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 16) 	.frame $30, 0, $26
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 17) 	.prologue 0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 18) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 19) 	mov	$16, $0		# set up return value
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 20) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 21) 	/* Find the end of the string.  */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 22) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 23) 	ldq_u   $1, 0($16)	# load first quadword (a0 may be misaligned)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 24) 	lda     $2, -1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 25) 	insqh   $2, $16, $2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 26) 	andnot  $16, 7, $16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 27) 	or      $2, $1, $1
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 28) 	cmpbge  $31, $1, $2	# bits set iff byte == 0
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 29) 	bne     $2, $found
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 30) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 31) $loop:	ldq     $1, 8($16)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 32) 	addq    $16, 8, $16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 33) 	cmpbge  $31, $1, $2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 34) 	beq     $2, $loop
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 35) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 36) $found:	negq    $2, $3		# clear all but least set bit
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 37) 	and     $2, $3, $2
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 38) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 39) 	and     $2, 0xf0, $3	# binary search for that set bit
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 40) 	and	$2, 0xcc, $4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 41) 	and	$2, 0xaa, $5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 42) 	cmovne	$3, 4, $3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 43) 	cmovne	$4, 2, $4
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 44) 	cmovne	$5, 1, $5
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 45) 	addq	$3, $4, $3
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 46) 	addq	$16, $5, $16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 47) 	addq	$16, $3, $16
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 48) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 49) 	/* Now do the append.  */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 50) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 51) 	mov	$26, $23
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 52) 	br	__stxcpy
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 53) 
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 54) 	.end strcat
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 55) EXPORT_SYMBOL(strcat);