minix/common/lib/libc/arch/x86_64/string/strchr.S
Gianluca Guida b6cbf7203b Import unmodified NetBSD libc in trunk
This patch imports the unmodified current version of NetBSD libc.
The NetBSD includes are in /nbsd_include, while the libc code itself is 
split between lib/nbsd_libc and common/lib/libc.
2011-02-14 19:36:03 +00:00

153 lines
4.9 KiB
ArmAsm

/* $NetBSD: strchr.S,v 1.6 2009/07/20 15:21:00 christos Exp $ */
/*-
* Copyright (c) 2009 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by David Laight.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
/* See comments in strlen.S about checking words for byte values */
#include <machine/asm.h>
#if defined(LIBC_SCCS)
RCSID("$NetBSD: strchr.S,v 1.6 2009/07/20 15:21:00 christos Exp $")
#endif
/*
* On entry %rdi is the buffer and the low byte of %rsi (%sil) the
* character to search for.
*
* Registers %rdx, %rcx, %r8-%r11 and %rax are also usable
*/
/* Uncomment below to get regression test to run this version but
* have everything else use the trivial one below. */
/* #define TEST_STRCHR */
#ifdef TEST_STRCHR
ENTRY(test_strchr)
#else
ENTRY(strchr)
#endif
movabsq $0x0101010101010101,%r8
movzbq %sil,%rdx /* value to search for (c) */
/* These imul are 'directpath' on athlons, so are fast */
imul $0x80,%r8,%r9 /* 0x8080808080808080 */
imul %r8,%rdx /* (c) copied to all bytes */
test $7,%dil
jnz 20f /* jump if misaligned */
_ALIGN_TEXT /* one byte nop */
1:
movq (%rdi),%rax /* bytes to check (x) */
2:
addq $8,%rdi
mov %rax,%r10
mov %rax,%r11 /* for 'char' check */
not %r10 /* invert of data (~x) */
xorq %rdx,%r11 /* convert 'char' test to one for NUL */
subq %r8,%rax /* x - 0x10 */
movq %r10,%rsi /* ~x */
subq %r8,%r11 /* (x ^ c) - 0x10 */
/*
* Here we could check ((x - 0x10) | ((x ^ c) - 0x10)) & 0x80
* and short-circuit the case where no top bits are set, and
* we continue the loop.
* However it needs 3 more clocks that are difficult to interleave
* in the existing dependency chain ...
*/
andq %r9,%rax /* (x - 0x10) & 0x80 */
xorq %rdx,%rsi /* c ^ ~x == ~(c ^ x) */
andq %r9,%r11 /* ((x ^ c) - 0x10) & 0x80 */
andq %r10,%rax /* (x - 0x10) & 0x80 & ~x */
jne 10f /* jump if string ends */
andq %rsi,%r11 /* ((x ^ c) - 0x10) & 0x80 & ~(x ^ c) */
je 1b /* jump if no match */
/* Found char, since LE can use bit scan */
bsf %r11,%r11 /* 7, 15, 23 ... 63 */
8: shr $3,%r11 /* 0, 1, 2 .. 7 */
lea -8(%r11,%rdi),%rax
ret
/* End of string, check whether char is before NUL */
_ALIGN_TEXT /* adds three byte nop */
10:
bsf %rax,%rax /* count to NUL */
andq %rsi,%r11 /* check for char in last 8 bytes */
je 11f
bsf %r11,%r11 /* NUL and char - see which was first */
cmp %r11,%rax
jae 8b /* return 'found' if same - searching for NUL */
11: xor %eax,%eax /* char not found */
ret
/* Source misaligned: read aligned word and make low bytes invalid */
/* I (dsl) think a _ALIGN_TEXT here will slow things down! */
20:
xor %rcx,%rcx
sub %dil,%cl /* Convert low address values 1..7 ... */
sbb %rsi,%rsi /* carry was set, so %rsi now ~0u! */
and $7,%cl /* ... to 7..1 */
and $~7,%dil /* move address to start of word */
shl $3,%cl /* now 56, 48 ... 16, 8 */
movq (%rdi),%rax /* aligned word containing first data */
xor %rdx,%rsi /* invert of search pattern (~c) */
je 22f /* searching for 0xff */
21: shr %cl,%rsi /* ~c in low bytes */
or %rsi,%rax /* set some bits making low bytes invalid */
jmp 2b
/* We are searching for 0xff, so can't use ~pattern for invalid value */
22:
mov %r8,%r10 /* 0x01 pattern */
lea (%r8,%r8),%rsi /* 0x02 - bits gets set (above) */
not %r10 /* now 0xfe */
sar %cl,%r10 /* top bytes 0xff */
and %r10,%rax /* clear lsb from unwanted low bytes */
jmp 21b
#ifdef TEST_STRCHR
/* Trivial version for bug-fixing above */
ENTRY(strchr)
movq %rsi,%rdx
movq %rdi,%rsi
1:
lodsb
cmp %al,%dl
je 2f
test %al,%al
jne 1b
xor %eax,%eax
ret
2: lea -1(%rsi),%rax
ret
#endif
STRONG_ALIAS(index,strchr)