[thirdparty/glibc.git] / sysdeps / sparc / sparc32 / strchr.S

/* strchr (str, ch) -- Return pointer to first occurrence of CH in STR.
   For SPARC v7.
   Copyright (C) 1996-2016 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Jakub Jelinek <jj@ultra.linux.cz> and
		  David S. Miller <davem@caip.rutgers.edu>.

   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>

	/* Normally, this uses ((xword - 0x01010101) & 0x80808080) test
	   to find out if any byte in xword could be zero. This is fast, but
	   also gives false alarm for any byte in range 0x81-0xff. It does
	   not matter for correctness, as if this test tells us there could
	   be some zero byte, we check it byte by byte, but if bytes with
	   high bits set are common in the strings, then this will give poor
	   performance. You can #define EIGHTBIT_NOT_RARE and the algorithm
	   will use one tick slower, but more precise test
	   ((xword - 0x01010101) & (~xword) & 0x80808080),
	   which does not give any false alarms (but if some bits are set,
	   one cannot assume from it which bytes are zero and which are not).
	   It is yet to be measured, what is the correct default for glibc
	   in these days for an average user.
	 */

	.text
	.align		4
ENTRY(strchr)
	andcc		%o1, 0xff, %o1
	be		12f
	 sll		%o1, 8, %o2
	andcc		%o0, 3, %g0
	or		%o1, %o2, %o2
	sethi		%hi(0x80808080), %o4
	sll		%o2, 16, %o3
	be		13f
	 or		%o3, %o2, %g2

	ldub		[%o0], %g4
	cmp		%g4, %o1
	be		11f
	 add		%o0, 1, %o0
	cmp		%g4, 0
	be		9f
	 andcc		%o0, 3, %g0
	be		4f
	 or		%o4, %lo(0x80808080), %o3
	ldub		[%o0], %g4
	cmp		%g4, %o1
	be		11f
	 add		%o0, 1, %o0
	cmp		%g4, 0
	be		9f
	 andcc		%o0, 3, %g0
	be		5f
	 sethi		%hi(0x01010101), %o5
	ldub		[%o0], %g4
	cmp		%g4, %o1
	be		11f
	 add		%o0, 1, %o0
	cmp		%g4, 0
	be		9f
	 or		%o5, %lo(0x01010101), %o2
	b		6f
	 ld		[%o0], %g4
11:	retl
	 sub		%o0, 1, %o0

13:	or		%o4, %lo(0x80808080), %o3
4:	sethi		%hi(0x01010101), %o5
5:	or		%o5, %lo(0x01010101), %o2
7:	ld		[%o0], %g4
6:	xor		%g4, %g2, %g5
	sub		%g4, %o2, %o4
#ifdef EIGHTBIT_NOT_RARE
	sub		%g5, %o2, %g6
	andn		%o4, %g4, %o4
	andn		%g6, %g5, %g5
#else
	sub		%g5, %o2, %g5
#endif
	or		%g5, %o4, %o4
	andcc		%o4, %o3, %g0
	be		7b
	 add		%o0, 4, %o0

	/* Check every byte. */
8:	srl		%g4, 24, %g5
7:	andcc		%g5, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be		4f
	 srl		%g4, 16, %g5
	andcc		%g5, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be		3f
	 srl		%g4, 8, %g5
	andcc		%g5, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be		2f
	 andcc		%g4, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	bne,a		6b
	 ld		[%o0], %g4
	retl
	 sub		%o0, 1, %o0
2:	retl
	 sub		%o0, 2, %o0
3:	retl
	 sub		%o0, 3, %o0
4:	retl
	 sub		%o0, 4, %o0
9:	retl
	 clr		%o0

11:	ldub		[%o0], %o5
	cmp		%o5, 0
	be		1f
	 add		%o0, 1, %o0
	andcc		%o0, 3, %g0
	be		4f
	 or		%o4, %lo(0x80808080), %o3
	ldub		[%o0], %o5
	cmp		%o5, 0
	be		1f
	 add		%o0, 1, %o0
	andcc		%o0, 3, %g0
	be		5f
	 sethi		%hi(0x01010101), %o4
	ldub		[%o0], %o5
	cmp		%o5, 0
	be		1f
	 add		%o0, 1, %o0
	b		6f
	 or		%o4, %lo(0x01010101), %o2
1:	retl
	 sub		%o0, 1, %o0

12:	andcc		%o0, 3, %g0
	bne		11b
	 sethi		%hi(0x80808080), %o4
	or		%o4, %lo(0x80808080), %o3
4:	sethi		%hi(0x01010101), %o4
5:	or		%o4, %lo(0x01010101), %o2
6:	ld		[%o0], %o5
7:	sub		%o5, %o2, %o4
#ifdef EIGHTBIT_NOT_RARE
	andn		%o4, %o5, %o4
#endif
	andcc		%o4, %o3, %g0
	be		6b
	 add		%o0, 4, %o0

	/* Check every byte. */
	srl		%o5, 24, %g5
	andcc		%g5, 0xff, %g0
	be		8f
	 add		%o0, -4, %o4
	srl		%o5, 16, %g5
	andcc		%g5, 0xff, %g0
	be		8f
	 add		%o4, 1, %o4
	srl		%o5, 8, %g5
	andcc		%g5, 0xff, %g0
	be		8f
	 add		%o4, 1, %o4
	andcc		%o5, 0xff, %g0
	bne,a		7b
	 ld		[%o0], %o5
	add		%o4, 1, %o4
8:	retl
	 mov		%o4, %o0

13:	ldub		[%o0], %g4
	cmp		%g4, %o1
	add		%o0, 1, %o0
	be,a		1f
	 sub		%o0, 1, %o5
	cmp		%g4, 0
	be		9f
1:	 andcc		%o0, 3, %g0
	be		4f
	 or		%o4, %lo(0x80808080), %o3
	ldub		[%o0], %g4
	cmp		%g4, %o1
	add		%o0, 1, %o0
	be,a		1f
	 sub		%o0, 1, %o5
	cmp		%g4, 0
	be		9f
1:	 andcc		%o0, 3, %g0
	be		5f
	 sethi		%hi(0x01010101), %o4
	ldub		[%o0], %g4
	cmp		%g4, %o1
	add		%o0, 1, %o0
	be,a		1f
	 sub		%o0, 1, %o5
	cmp		%g4, 0
	be		9f
1:	 or		%o4, %lo(0x01010101), %o2
	b		7f
	 ld		[%o0], %g4
END(strchr)

ENTRY(strrchr)
	andcc		%o1, 0xff, %o1
	clr		%o5
	be		12b
	 sll		%o1, 8, %o2
	andcc		%o0, 3, %g0
	or		%o1, %o2, %o2
	sethi		%hi(0x80808080), %o4
	sll		%o2, 16, %o3
	bne		13b
	 or		%o3, %o2, %g2
	or		%o4, %lo(0x80808080), %o3
4:	sethi		%hi(0x01010101), %o4
5:	or		%o4, %lo(0x01010101), %o2
6:	ld		[%o0], %g4
7:	xor		%g4, %g2, %g5
	sub		%g4, %o2, %o4
#ifdef EIGHTBIT_NOT_RARE
	sub		%g5, %o2, %g6
	andn		%o4, %g4, %o4
	andn		%g6, %g5, %g5
#else
	sub		%g5, %o2, %g5
#endif
	or		%g5, %o4, %o4
	andcc		%o4, %o3, %g0
	be		6b
	 add		%o0, 4, %o0

	/* Check every byte. */
3:	srl		%g4, 24, %g5
8:	andcc		%g5, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be,a		1f
	 sub		%o0, 4, %o5
1:	srl		%g4, 16, %g5
	andcc		%g5, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be,a		1f
	 sub		%o0, 3, %o5
1:	srl		%g4, 8, %g5
	andcc		%g5, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be,a		1f
	 sub		%o0, 2, %o5
1:	andcc		%g4, 0xff, %g5
	be		9f
	 cmp		%g5, %o1
	be,a		1f
	 sub		%o0, 1, %o5
1:	b		7b
	 ld		[%o0], %g4
9:	retl
	 mov		%o5, %o0
END(strrchr)

weak_alias (strchr, index)
weak_alias (strrchr, rindex)
libc_hidden_builtin_def (strchr)
libc_hidden_builtin_def (strrchr)
Commit	Line	Data
ae6b8730 RH	1	/* strchr (str, ch) -- Return pointer to first occurrence of CH in STR.
ae6b8730 RH	2	For SPARC v7.
f7a9f785	3	Copyright (C) 1996-2016 Free Software Foundation, Inc.
ae6b8730 RH	4	This file is part of the GNU C Library.
	5	Contributed by Jakub Jelinek <jj@ultra.linux.cz> and
	6	David S. Miller <davem@caip.rutgers.edu>.
	7
	8	The GNU C Library is free software; you can redistribute it and/or
41bdb6e2 AJ	9	modify it under the terms of the GNU Lesser General Public
	10	License as published by the Free Software Foundation; either
	11	version 2.1 of the License, or (at your option) any later version.
ae6b8730 RH	12
	13	The GNU C Library is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
41bdb6e2	16	Lesser General Public License for more details.
ae6b8730	17
41bdb6e2	18	You should have received a copy of the GNU Lesser General Public
59ba27a6 PE	19	License along with the GNU C Library; if not, see
59ba27a6 PE	20	<http://www.gnu.org/licenses/>. */
ae6b8730 RH	21
	22	#include <sysdep.h>
	23
	24	/* Normally, this uses ((xword - 0x01010101) & 0x80808080) test
	25	to find out if any byte in xword could be zero. This is fast, but
	26	also gives false alarm for any byte in range 0x81-0xff. It does
	27	not matter for correctness, as if this test tells us there could
	28	be some zero byte, we check it byte by byte, but if bytes with
	29	high bits set are common in the strings, then this will give poor
	30	performance. You can #define EIGHTBIT_NOT_RARE and the algorithm
	31	will use one tick slower, but more precise test
	32	((xword - 0x01010101) & (~xword) & 0x80808080),
	33	which does not give any false alarms (but if some bits are set,
	34	one cannot assume from it which bytes are zero and which are not).
	35	It is yet to be measured, what is the correct default for glibc
	36	in these days for an average user.
	37	*/
	38
	39	.text
	40	.align 4
043cee37 RM	41	ENTRY(strchr)
	42	andcc %o1, 0xff, %o1
	43	be 12f
	44	sll %o1, 8, %o2
	45	andcc %o0, 3, %g0
	46	or %o1, %o2, %o2
	47	sethi %hi(0x80808080), %o4
	48	sll %o2, 16, %o3
	49	be 13f
	50	or %o3, %o2, %g2
	51
	52	ldub [%o0], %g4
ae6b8730	53	cmp %g4, %o1
043cee37	54	be 11f
ae6b8730 RH	55	add %o0, 1, %o0
	56	cmp %g4, 0
	57	be 9f
	58	andcc %o0, 3, %g0
	59	be 4f
	60	or %o4, %lo(0x80808080), %o3
	61	ldub [%o0], %g4
	62	cmp %g4, %o1
043cee37	63	be 11f
ae6b8730 RH	64	add %o0, 1, %o0
	65	cmp %g4, 0
	66	be 9f
	67	andcc %o0, 3, %g0
	68	be 5f
	69	sethi %hi(0x01010101), %o5
	70	ldub [%o0], %g4
	71	cmp %g4, %o1
043cee37	72	be 11f
ae6b8730 RH	73	add %o0, 1, %o0
	74	cmp %g4, 0
	75	be 9f
	76	or %o5, %lo(0x01010101), %o2
	77	b 6f
	78	ld [%o0], %g4
043cee37	79	11: retl
ae6b8730 RH	80	sub %o0, 1, %o0
ae6b8730 RH	81
043cee37	82	13: or %o4, %lo(0x80808080), %o3
ae6b8730 RH	83	4: sethi %hi(0x01010101), %o5
	84	5: or %o5, %lo(0x01010101), %o2
	85	7: ld [%o0], %g4
	86	6: xor %g4, %g2, %g5
	87	sub %g4, %o2, %o4
	88	#ifdef EIGHTBIT_NOT_RARE
62f29da7	89	sub %g5, %o2, %g6
ae6b8730	90	andn %o4, %g4, %o4
62f29da7	91	andn %g6, %g5, %g5
ae6b8730 RH	92	#else
	93	sub %g5, %o2, %g5
	94	#endif
9c84384c	95	or %g5, %o4, %o4
ae6b8730 RH	96	andcc %o4, %o3, %g0
	97	be 7b
	98	add %o0, 4, %o0
	99
	100	/* Check every byte. */
9c84384c	101	8: srl %g4, 24, %g5
ae6b8730 RH	102	7: andcc %g5, 0xff, %g5
	103	be 9f
	104	cmp %g5, %o1
	105	be 4f
	106	srl %g4, 16, %g5
	107	andcc %g5, 0xff, %g5
	108	be 9f
	109	cmp %g5, %o1
	110	be 3f
	111	srl %g4, 8, %g5
	112	andcc %g5, 0xff, %g5
	113	be 9f
	114	cmp %g5, %o1
	115	be 2f
	116	andcc %g4, 0xff, %g5
	117	be 9f
	118	cmp %g5, %o1
	119	bne,a 6b
	120	ld [%o0], %g4
	121	retl
	122	sub %o0, 1, %o0
	123	2: retl
	124	sub %o0, 2, %o0
	125	3: retl
	126	sub %o0, 3, %o0
	127	4: retl
	128	sub %o0, 4, %o0
	129	9: retl
	130	clr %o0
	131
	132	11: ldub [%o0], %o5
	133	cmp %o5, 0
	134	be 1f
	135	add %o0, 1, %o0
	136	andcc %o0, 3, %g0
	137	be 4f
	138	or %o4, %lo(0x80808080), %o3
	139	ldub [%o0], %o5
	140	cmp %o5, 0
	141	be 1f
	142	add %o0, 1, %o0
	143	andcc %o0, 3, %g0
	144	be 5f
	145	sethi %hi(0x01010101), %o4
	146	ldub [%o0], %o5
	147	cmp %o5, 0
	148	be 1f
	149	add %o0, 1, %o0
	150	b 6f
	151	or %o4, %lo(0x01010101), %o2
	152	1: retl
	153	sub %o0, 1, %o0
	154
	155	12: andcc %o0, 3, %g0
	156	bne 11b
	157	sethi %hi(0x80808080), %o4
	158	or %o4, %lo(0x80808080), %o3
	159	4: sethi %hi(0x01010101), %o4
	160	5: or %o4, %lo(0x01010101), %o2
	161	6: ld [%o0], %o5
	162	7: sub %o5, %o2, %o4
	163	#ifdef EIGHTBIT_NOT_RARE
	164	andn %o4, %o5, %o4
	165	#endif
166	andcc %o4, %o3, %g0
167	be 6b
168	add %o0, 4, %o0
169
170	/* Check every byte. */
171	srl %o5, 24, %g5
172	andcc %g5, 0xff, %g0
173	be 8f
174	add %o0, -4, %o4
175	srl %o5, 16, %g5
176	andcc %g5, 0xff, %g0
177	be 8f
178	add %o4, 1, %o4
179	srl %o5, 8, %g5
180	andcc %g5, 0xff, %g0
181	be 8f
182	add %o4, 1, %o4
183	andcc %o5, 0xff, %g0
184	bne,a 7b
185	ld [%o0], %o5
186	add %o4, 1, %o4
187	8: retl
188	mov %o4, %o0
189
190	13: ldub [%o0], %g4
191	cmp %g4, %o1
192	add %o0, 1, %o0
193	be,a 1f
194	sub %o0, 1, %o5
195	cmp %g4, 0
196	be 9f
197	1: andcc %o0, 3, %g0
198	be 4f
199	or %o4, %lo(0x80808080), %o3
200	ldub [%o0], %g4
201	cmp %g4, %o1
202	add %o0, 1, %o0
203	be,a 1f
204	sub %o0, 1, %o5
205	cmp %g4, 0
206	be 9f
207	1: andcc %o0, 3, %g0
208	be 5f
209	sethi %hi(0x01010101), %o4
210	ldub [%o0], %g4
211	cmp %g4, %o1
212	add %o0, 1, %o0
213	be,a 1f
214	sub %o0, 1, %o5
215	cmp %g4, 0
216	be 9f
217	1: or %o4, %lo(0x01010101), %o2
218	b 7f
219	ld [%o0], %g4
220	END(strchr)
221
222	ENTRY(strrchr)
223	andcc %o1, 0xff, %o1
224	clr %o5
225	be 12b
226	sll %o1, 8, %o2
227	andcc %o0, 3, %g0
228	or %o1, %o2, %o2
229	sethi %hi(0x80808080), %o4
230	sll %o2, 16, %o3
231	bne 13b
232	or %o3, %o2, %g2
233	or %o4, %lo(0x80808080), %o3
234	4: sethi %hi(0x01010101), %o4
235	5: or %o4, %lo(0x01010101), %o2
236	6: ld [%o0], %g4
237	7: xor %g4, %g2, %g5
238	sub %g4, %o2, %o4
239	#ifdef EIGHTBIT_NOT_RARE
62f29da7	240	sub %g5, %o2, %g6
ae6b8730	241	andn %o4, %g4, %o4
62f29da7	242	andn %g6, %g5, %g5
ae6b8730 RH	243	#else
	244	sub %g5, %o2, %g5
	245	#endif
9c84384c	246	or %g5, %o4, %o4
ae6b8730 RH	247	andcc %o4, %o3, %g0
	248	be 6b
	249	add %o0, 4, %o0
	250
	251	/* Check every byte. */
9c84384c	252	3: srl %g4, 24, %g5
ae6b8730 RH	253	8: andcc %g5, 0xff, %g5
	254	be 9f
	255	cmp %g5, %o1
	256	be,a 1f
	257	sub %o0, 4, %o5
	258	1: srl %g4, 16, %g5
	259	andcc %g5, 0xff, %g5
	260	be 9f
	261	cmp %g5, %o1
	262	be,a 1f
	263	sub %o0, 3, %o5
	264	1: srl %g4, 8, %g5
	265	andcc %g5, 0xff, %g5
	266	be 9f
	267	cmp %g5, %o1
	268	be,a 1f
	269	sub %o0, 2, %o5
	270	1: andcc %g4, 0xff, %g5
	271	be 9f
	272	cmp %g5, %o1
	273	be,a 1f
	274	sub %o0, 1, %o5
	275	1: b 7b
	276	ld [%o0], %g4
	277	9: retl
	278	mov %o5, %o0
	279	END(strrchr)
	280
1ab18a5b UD	281	weak_alias (strchr, index)
1ab18a5b UD	282	weak_alias (strrchr, rindex)
85dd1003 UD	283	libc_hidden_builtin_def (strchr)
85dd1003 UD	284	libc_hidden_builtin_def (strrchr)