/* Optimized strcasecmp implementation for PowerPC64.

   Copyright (C) 2011-2018 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>

#include <locale-defines.h>

/* int [r3] strcasecmp (const char *s1 [r3], const char *s2 [r4] )

   or if defined USE_IN_EXTENDED_LOCALE_MODEL:

   int [r3] strcasecmp_l (const char *s1 [r3], const char *s2 [r4],

                          locale_t loc [r5]) */

#ifndef STRCMP

# define __STRCMP __strcasecmp

# define STRCMP   strcasecmp

#endif

#ifndef USE_IN_EXTENDED_LOCALE_MODEL

ENTRY (__STRCMP)

	CALL_MCOUNT 2

#else

ENTRY_TOCLESS (__STRCMP)

	CALL_MCOUNT 3

#endif

#define rRTN	r3	/* Return value */

#define rSTR1	r5	/* 1st string */

#define rSTR2	r4	/* 2nd string */

#define rLOCARG	r5	/* 3rd argument: locale_t */

#define rCHAR1	r6	/* Byte read from 1st string */

#define rCHAR2	r7	/* Byte read from 2nd string */

#define rADDR1	r8	/* Address of tolower(rCHAR1) */

#define rADDR2	r12	/* Address of tolower(rCHAR2) */

#define rLWR1	r8	/* Word tolower(rCHAR1) */

#define rLWR2	r12	/* Word tolower(rCHAR2) */

#define rTMP	r9

#define rLOC	r11	/* Default locale address */

	cmpd	cr7, r3, r4

#ifndef USE_IN_EXTENDED_LOCALE_MODEL

	ld 	rTMP, __libc_tsd_LOCALE@got@tprel(r2)

	add 	rLOC, rTMP, __libc_tsd_LOCALE@tls

	ld	rLOC, 0(rLOC)

#else

	mr	rLOC, rLOCARG

#endif

	ld	rLOC, LOCALE_CTYPE_TOLOWER(rLOC)

	mr	rSTR1, rRTN

	li	rRTN, 0

	beqlr	cr7

	/* Unrolling loop for POWER: loads are done with 'lbz' plus

	offset and string descriptors are only updated in the end

	of loop unrolling. */

	lbz	rCHAR1, 0(rSTR1)	/* Load char from s1 */

	lbz	rCHAR2, 0(rSTR2)	/* Load char from s2 */

L(loop):

	cmpdi	rCHAR1, 0		/* *s1 == '\0' ? */

	sldi	rADDR1, rCHAR1, 2	/* Calculate address for tolower(*s1) */

	sldi	rADDR2, rCHAR2, 2	/* Calculate address for tolower(*s2) */

	lwzx	rLWR1, rLOC, rADDR1	/* Load tolower(*s1) */

	lwzx	rLWR2, rLOC, rADDR2	/* Load tolower(*s2) */

	cmpw	cr1, rLWR1, rLWR2	/* r = tolower(*s1) == tolower(*s2) ? */

	crorc	4*cr1+eq,eq,4*cr1+eq	/* (*s1 != '\0') || (r == 1) */

	beq	cr1, L(done)

	lbz	rCHAR1, 1(rSTR1)

	lbz	rCHAR2, 1(rSTR2)

	cmpdi	rCHAR1, 0

	sldi	rADDR1, rCHAR1, 2

	sldi	rADDR2, rCHAR2, 2

	lwzx	rLWR1, rLOC, rADDR1

	lwzx	rLWR2, rLOC, rADDR2

	cmpw	cr1, rLWR1, rLWR2

	crorc	4*cr1+eq,eq,4*cr1+eq

	beq	cr1, L(done)

	lbz	rCHAR1, 2(rSTR1)

	lbz	rCHAR2, 2(rSTR2)

	cmpdi	rCHAR1, 0

	sldi	rADDR1, rCHAR1, 2

	sldi	rADDR2, rCHAR2, 2

	lwzx	rLWR1, rLOC, rADDR1

	lwzx	rLWR2, rLOC, rADDR2

	cmpw	cr1, rLWR1, rLWR2

	crorc	4*cr1+eq,eq,4*cr1+eq

	beq	cr1, L(done)

	lbz	rCHAR1, 3(rSTR1)

	lbz	rCHAR2, 3(rSTR2)

	cmpdi	rCHAR1, 0

	/* Increment both string descriptors */

	addi	rSTR1, rSTR1, 4

	addi	rSTR2, rSTR2, 4

	sldi	rADDR1, rCHAR1, 2

	sldi	rADDR2, rCHAR2, 2

	lwzx	rLWR1, rLOC, rADDR1

	lwzx	rLWR2, rLOC, rADDR2

	cmpw	cr1, rLWR1, rLWR2

	crorc	4*cr1+eq,eq,4*cr1+eq

	beq     cr1,L(done)

	lbz	rCHAR1, 0(rSTR1)	/* Load char from s1 */

	lbz	rCHAR2, 0(rSTR2)	/* Load char from s2 */

	b	L(loop)

L(done):

	subf	r0, rLWR2, rLWR1

	extsw	rRTN, r0

	blr

END (__STRCMP)

weak_alias (__STRCMP, STRCMP)

libc_hidden_builtin_def (__STRCMP)