| /* Optimized strcasecmp implementation for PowerPC64. |
| Copyright (C) 2011-2014 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 |
| |
| ENTRY (__STRCMP) |
| #ifndef USE_IN_EXTENDED_LOCALE_MODEL |
| CALL_MCOUNT 2 |
| #else |
| 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) |
