summaryrefslogtreecommitdiff
path: root/sysdeps/powerpc/powerpc64/power7/strcpy.S
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/powerpc/powerpc64/power7/strcpy.S')
-rw-r--r--sysdeps/powerpc/powerpc64/power7/strcpy.S437
1 files changed, 0 insertions, 437 deletions
diff --git a/sysdeps/powerpc/powerpc64/power7/strcpy.S b/sysdeps/powerpc/powerpc64/power7/strcpy.S
deleted file mode 100644
index 70f2987181..0000000000
--- a/sysdeps/powerpc/powerpc64/power7/strcpy.S
+++ /dev/null
@@ -1,437 +0,0 @@
-/* Optimized strcpy/stpcpy implementation for PowerPC64/POWER7.
- Copyright (C) 2013-2015 Free Software Foundation, Inc.
- This file is part of the GNU C Library.
-
- The GNU C Library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
-
- The GNU C Library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
-
- You should have received a copy of the GNU Lesser General Public
- License along with the GNU C Library; if not, see
- <http://www.gnu.org/licenses/>. */
-
-#include <sysdep.h>
-
-/* Implements the function
-
- char * [r3] strcpy (char *dest [r3], const char *src [r4])
-
- or
-
- char * [r3] strcpy (char *dest [r3], const char *src [r4])
-
- if USE_AS_STPCPY is defined. It tries to use aligned memory accesses
- when possible using the following algorithm:
-
- if (((((uintptr_t)dst & 0x7UL) == 0) && ((uintptr_t)src & 0x7UL) == 0))
- goto aligned_doubleword_copy;
- if (((uintptr_t)dst & 0x7UL) == ((uintptr_t)src & 0x7UL))
- goto same_alignment;
- goto unaligned;
-
- The aligned comparison are made using cmpb instructions. */
-
-#ifdef USE_AS_STPCPY
-# define FUNC_NAME __stpcpy
-#else
-# define FUNC_NAME strcpy
-#endif
-
- .machine power7
-EALIGN (FUNC_NAME, 4, 0)
- CALL_MCOUNT 2
-
-#define rTMP r0
-#ifdef USE_AS_STPCPY
-#define rRTN r3 /* pointer to previous word/doubleword in dest */
-#else
-#define rRTN r12 /* pointer to previous word/doubleword in dest */
-#endif
-#define rSRC r4 /* pointer to previous word/doubleword in src */
-#define rMASK r5 /* mask 0xffffffff | 0xffffffffffffffff */
-#define rWORD r6 /* current word from src */
-#define rALT r7 /* alternate word from src */
-#define rRTNAL r8 /* alignment of return pointer */
-#define rSRCAL r9 /* alignment of source pointer */
-#define rALCNT r10 /* bytes to read to reach 8 bytes alignment */
-#define rSUBAL r11 /* doubleword minus unaligned displacement */
-
-#ifndef USE_AS_STPCPY
-/* Save the dst pointer to use as return value. */
- mr rRTN, r3
-#endif
- or rTMP, rSRC, rRTN
- clrldi. rTMP, rTMP, 61
- bne L(check_alignment)
- b L(aligned_doubleword_copy)
-
- .align 4
-L(check_alignment):
- rldicl rRTNAL, rRTN, 0, 61
- rldicl rSRCAL, rSRC, 0, 61
- cmpld cr7, rSRCAL, rRTNAL
- beq cr7, L(same_alignment)
- b L(unaligned)
-
- .align 4
-L(same_alignment):
-/* Src and dst with same alignment: align both to doubleword. */
- mr rALCNT, rRTN
- lbz rWORD, 0(rSRC)
- subfic rSUBAL, rRTNAL, 8
- addi rRTN, rRTN, 1
- addi rSRC, rSRC, 1
- cmpdi cr7, rWORD, 0
- stb rWORD, 0(rALCNT)
- beq cr7, L(s2)
-
- add rALCNT, rALCNT, rSUBAL
- subf rALCNT, rRTN, rALCNT
- addi rALCNT, rALCNT, 1
- mtctr rALCNT
- b L(s1)
-
- .align 4
-L(s0):
- addi rSRC, rSRC, 1
- lbz rWORD, -1(rSRC)
- cmpdi cr7, rWORD, 0
- stb rWORD, -1(rALCNT)
- beqlr cr7
- mr rRTN, rALCNT
-L(s1):
- addi rALCNT, rRTN,1
- bdnz L(s0)
- b L(aligned_doubleword_copy)
- .align 4
-L(s2):
- mr rRTN, rALCNT
- blr
-
-/* For doubleword aligned memory, operate using doubleword load and stores. */
- .align 4
-L(aligned_doubleword_copy):
- li rMASK, 0
- addi rRTN, rRTN, -8
- ld rWORD, 0(rSRC)
- b L(g2)
-
- .align 4
-L(g0): ldu rALT, 8(rSRC)
- stdu rWORD, 8(rRTN)
- cmpb rTMP, rALT, rMASK
- cmpdi rTMP, 0
- bne L(g1)
- ldu rWORD, 8(rSRC)
- stdu rALT, 8(rRTN)
-L(g2): cmpb rTMP, rWORD, rMASK
- cmpdi rTMP, 0 /* If rTMP is 0, no null's have been found. */
- beq L(g0)
-
- mr rALT, rWORD
-/* We've hit the end of the string. Do the rest byte-by-byte. */
-L(g1):
-#ifdef __LITTLE_ENDIAN__
- extrdi. rTMP, rALT, 8, 56
- stbu rALT, 8(rRTN)
- beqlr-
- extrdi. rTMP, rALT, 8, 48
- stbu rTMP, 1(rRTN)
- beqlr-
- extrdi. rTMP, rALT, 8, 40
- stbu rTMP, 1(rRTN)
- beqlr-
- extrdi. rTMP, rALT, 8, 32
- stbu rTMP, 1(rRTN)
- beqlr-
- extrdi. rTMP, rALT, 8, 24
- stbu rTMP, 1(rRTN)
- beqlr-
- extrdi. rTMP, rALT, 8, 16
- stbu rTMP, 1(rRTN)
- beqlr-
- extrdi. rTMP, rALT, 8, 8
- stbu rTMP, 1(rRTN)
- beqlr-
- extrdi rTMP, rALT, 8, 0
- stbu rTMP, 1(rRTN)
-#else
- extrdi. rTMP, rALT, 8, 0
- stbu rTMP, 8(rRTN)
- beqlr
- extrdi. rTMP, rALT, 8, 8
- stbu rTMP, 1(rRTN)
- beqlr
- extrdi. rTMP, rALT, 8, 16
- stbu rTMP, 1(rRTN)
- beqlr
- extrdi. rTMP, rALT, 8, 24
- stbu rTMP, 1(rRTN)
- beqlr
- extrdi. rTMP, rALT, 8, 32
- stbu rTMP, 1(rRTN)
- beqlr
- extrdi. rTMP, rALT, 8, 40
- stbu rTMP, 1(rRTN)
- beqlr
- extrdi. rTMP, rALT, 8, 48
- stbu rTMP, 1(rRTN)
- beqlr
- stbu rALT, 1(rRTN)
-#endif
- blr
-
- .align 4
-L(unaligned):
- cmpdi rSRCAL, 0 /* Check src alignment */
- beq L(srcaligndstunalign)
- /* src is unaligned */
- rlwinm r10, rSRC, 3,26,28 /* Calculate padding. */
- clrrdi rSRC, rSRC, 3 /* Align the addr to dw boundary */
- ld rWORD, 0(rSRC) /* Load doubleword from memory. */
- li rTMP, 0
- /* Discard bits not part of the string */
-#ifdef __LITTLE_ENDIAN__
- srd rALT, rWORD, r10
-#else
- sld rALT, rWORD, r10
-#endif
- cmpb rTMP, rALT, rTMP /* Compare each byte against null */
- /* Discard bits not part of the string */
-#ifdef __LITTLE_ENDIAN__
- sld rTMP, rTMP, r10
-#else
- srd rTMP, rTMP, r10
-#endif
- cmpdi rTMP, 0
- bne L(bytebybyte) /* if it has null, copy byte by byte */
- subfic r8, r9, 8
- rlwinm r5, rRTN, 3,26,28 /* Calculate padding in bits. */
- rldicl r9, rRTN, 0, 61 /* Calculate padding in bytes. */
- addi rRTN, rRTN, -1
-
- cmpdi r5, 0 /* check dest alignment */
- beq L(srcunaligndstalign)
-
- /* both src and dst unaligned */
-#ifdef __LITTLE_ENDIAN__
- sld rWORD, rALT, r10
- mr r11, r10
- addi r11, r11, -8 /* Adjust byte pointer on loaded dw */
-#else
- srd rWORD, rALT, r10
- subfic r11, r10, 64
-#endif
- /* dst alignment is greater then src alignment? */
- cmpd cr7, r5, r10
- blt cr7, L(dst_align_small)
- /* src alignment is less than dst */
-
- /* Calculate the dst alignment differnce */
- subfic rALT, r9, 8
- mtctr rALT
-
- /* Write till dst is aligned */
- cmpdi rTMP, rALT, 4
- blt L(storebyte1) /* less than 4, store byte by byte */
- beq L(equal1) /* if its 4, store word */
- addi rTMP, rALT, -4 /* greater than 4, so stb and stw */
- mtctr rTMP
-L(storebyte1):
-#ifdef __LITTLE_ENDIAN__
- addi r11, r11, 8 /* Adjust byte pointer on loaded dw */
-#else
- addi r11, r11, -8
-#endif
- srd rALT, rWORD, r11
- stbu rALT, 1(rRTN)
- bdnz L(storebyte1)
-
- subfic rALT, r9, 8 /* Check the remaining bytes */
- cmpdi rTMP, rALT, 4
- blt L(proceed)
-
- .align 4
-L(equal1):
-#ifdef __LITTLE_ENDIAN__
- addi r11, r11, 8 /* Adjust byte pointer on loaded dw */
- srd rALT, rWORD, r11
-#else
- subfic r11, r11, 64
- sld rALT, rWORD, r11
- srdi rALT, rALT, 32
-#endif
- stw rALT, 1(rRTN)
- addi rRTN, rRTN, 4
-
-L(proceed):
- mr rALT, rWORD
- /* calculate the Left over bytes to be written */
- subfic r11, r10, 64
- subfic r5, r5, 64
- subf r5, r5, r11 /* remaining bytes on second dw */
- subfic r10, r5, 64 /* remaining bytes on first dw */
- subfic r9, r9, 8
- subf r8, r9, r8 /* recalculate padding */
-L(srcunaligndstalign):
- addi rRTN, rRTN, 1
- subfic r5, r10, 64 /* remaining bytes on second dw */
- addi rSRC, rSRC, 8
- li rTMP,0
- b L(storedouble)
-
- .align 4
-L(dst_align_small):
- mtctr r8
- /* Write till src is aligned */
-L(storebyte2):
-#ifdef __LITTLE_ENDIAN__
- addi r11, r11, 8 /* Adjust byte pointer on dw */
-#else
- addi r11, r11, -8
-#endif
- srd rALT, rWORD, r11
- stbu rALT, 1(rRTN)
- bdnz L(storebyte2)
-
- addi rSRC, rSRC, 8 /* Increment src pointer */
- addi rRTN, rRTN, 1 /* Increment dst pointer */
- rldicl r8, rRTN, 0, 61 /* Recalculate padding */
-
- /* src is aligned */
-L(srcaligndstunalign):
- ld rWORD, 0(rSRC)
- mr rALT, rWORD
- li rTMP, 0 /* Check null */
- cmpb rTMP, rWORD, rTMP
- cmpdi rTMP, 0
- bne L(bytebybyte) /* Do byte by byte if there is NULL */
- rlwinm r5, rRTN, 3,26,28 /* Calculate padding */
- addi rRTN, rRTN, -1
- subfic r10, r8, 8
- /* write byte by byte till aligned */
-#ifdef __LITTLE_ENDIAN__
- li r11, -8
-#else
- li r11, 64
-#endif
- mtctr r10
- cmpdi rTMP, r10, 4
- blt L(storebyte)
- beq L(equal)
- addi rTMP, r10, -4
- mtctr rTMP
-L(storebyte):
-#ifdef __LITTLE_ENDIAN__
- addi r11, r11, 8 /* Adjust byte pointer on dw */
-#else
- addi r11, r11, -8
-#endif
- srd rALT, rWORD, r11
- stbu rALT, 1(rRTN)
- bdnz L(storebyte)
-
- cmpdi rTMP, r10, 4
- blt L(align)
-
- .align 4
-L(equal):
-#ifdef __LITTLE_ENDIAN__
- addi r11, r11, 8
- srd rALT, rWORD, r11
-#else
- subfic r11, r11, 64
- sld rALT, rWORD, r11
- srdi rALT, rALT, 32
-#endif
- stw rALT, 1(rRTN)
- addi rRTN, rRTN, 4
-L(align):
- addi rRTN, rRTN, 1
- addi rSRC, rSRC, 8 /* Increment src pointer */
- subfic r10, r5, 64
- li rTMP, 0
- /* dst addr aligned to 8 */
-L(storedouble):
- ld rALT, 0(rSRC) /* load next dw */
- cmpb rTMP, rALT, rTMP
- cmpdi rTMP, 0 /* check for null on each new dw */
- bne L(null)
-#ifdef __LITTLE_ENDIAN__
- srd r9, rWORD, r10 /* bytes from first dw */
- sld r11, rALT, r5 /* bytes from second dw */
-#else
- sld r9, rWORD, r10
- srd r11, rALT, r5
-#endif
- or r11, r9, r11 /* make as a single dw */
- std r11, 0(rRTN) /* store as std on aligned addr */
- mr rWORD, rALT /* still few bytes left to be written */
- addi rRTN, rRTN, 8 /* increment dst addr */
- addi rSRC, rSRC, 8 /* increment src addr */
- b L(storedouble) /* Loop till NULL */
-
- .align 4
-
-/* We've hit the end of the string. Do the rest byte-by-byte. */
-L(null):
- addi rRTN, rRTN, -1
- mr r10, r5
- mtctr r8
-#ifdef __LITTLE_ENDIAN__
- subfic r10, r10, 64
- addi r10, r10, -8
-#endif
- cmpdi rTMP, r8, 4
- blt L(loop)
-
- /* we can still use stw if leftover >= 4*/
-#ifdef __LITTLE_ENDIAN__
- addi r10, r10, 8
- srd r11, rWORD, r10
-#else
- subfic r10, r10, 64
- sld r11, rWORD, r10
- srdi r11, r11, 32
-#endif
- stw r11, 1(rRTN)
- addi rRTN, rRTN, 4
-
- beq L(bytebybyte1)
- addi r10, r10, 32
-#ifdef __LITTLE_ENDIAN__
- addi r10, r10, -8
-#else
- subfic r10, r10, 64
-#endif
- addi rTMP, r8, -4
- mtctr rTMP
- /* remaining byte by byte part of first dw */
-L(loop):
-#ifdef __LITTLE_ENDIAN__
- addi r10, r10, 8
-#else
- addi r10, r10, -8
-#endif
- srd rTMP, rWORD, r10
- stbu rTMP, 1(rRTN)
- bdnz L(loop)
-
-L(bytebybyte1):
- addi rRTN, rRTN, 1
- /* remaining byte by byte part of second dw */
-L(bytebybyte):
- addi rRTN, rRTN, -8
- b L(g1)
-
-END (FUNC_NAME)
-
-#ifndef USE_AS_STPCPY
-libc_hidden_builtin_def (strcpy)
-#endif
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-01 19:05:19 +0000