6733918 Teamware has retired, please welcome your new manager, Mercurial
4758439 some files use "current date" sccs keywords
6560843 asm sources should not rely on .file "%M%" for naming STT_FILE symbols
6560958 Solaris:: perl modules should not use SCCS keywords in version information
6729074 webrev doesn't deal well with remote ssh hg parents
/*
* Copyright 2004 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/*
* Copyright (c) 2002 Advanced Micro Devices, Inc.
*
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or
* without modification, are permitted provided that the
* following conditions are met:
*
* + Redistributions of source code must retain the above
* copyright notice, this list of conditions and the
* following disclaimer.
*
* + 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.
*
* + Neither the name of Advanced Micro Devices, Inc. nor the
* names of its contributors may be used to endorse or
* promote products derived from this software without
* specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 ADVANCED MICRO DEVICES,
* INC. 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.
*
* It is licensee's responsibility to comply with any export
* regulations applicable in licensee's jurisdiction.
*/
.file "strlen.s"
#include "SYS.h"
#include "cache.h"
#define LABEL(s) .strlen/**/s
ENTRY(strlen) /* (const char *s) */
mov %rdi, %rsi
neg %rdi
LABEL(aligntry):
mov %rsi , %r8
and $7, %r8d
jz LABEL(alignafter)
LABEL(align): /* 8-byte align */
sub $8, %r8
.p2align 4
LABEL(alignloop):
cmpb $0, (%rsi)
je LABEL(exit)
inc %rsi
inc %r8
jnz LABEL(alignloop)
.p2align 4
LABEL(alignafter):
LABEL(56try):
LABEL(56): /* 56-byte */
mov (%rsi), %rax
mov $0xfefefefefefefeff, %rcx
LABEL(56loop):
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
mov %rcx, %r8
add %rax, %r8
jnc LABEL(tail)
xor %rax, %r8
or %rcx, %r8
inc %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
LABEL(56after):
LABEL(32): /* 32-byte */
mov _sref_(.amd64cache1), %r9
.p2align 4
LABEL(32loop):
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
sub $32, %r9
mov 8 (%rsi), %rax
lea 8 (%rsi), %rsi
jbe LABEL(32loop)
LABEL(32after):
LABEL(pretry):
LABEL(pre): /* 64-byte prefetch */
.p2align 4
LABEL(preloop):
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
mov 8 (%rsi), %rax
add $8, %rsi
mov %rcx, %r8
add %rax, %r8
sbb %rdx, %rdx
xor %rax, %r8
or %rcx, %r8
sub %rdx, %r8
jnz LABEL(tail)
prefetchnta 512 (%rsi) /* 3DNow: use prefetch */
mov 8 (%rsi), %rax
add $8, %rsi
jmp LABEL(preloop)
.p2align 4
LABEL(preafter):
LABEL(tailtry):
LABEL(tail): /* 4-byte tail */
LABEL(tailloop):
test %al, %al
jz LABEL(exit)
inc %rsi
test %ah, %ah
jz LABEL(exit)
inc %rsi
test $0x00ff0000, %eax
jz LABEL(exit)
inc %rsi
test $0xff000000, %eax
jz LABEL(exit)
inc %rsi
shr $32, %rax
jmp LABEL(tailloop)
LABEL(tailafter):
.p2align 4
LABEL(exit):
lea (%rdi, %rsi), %rax
ret
SET_SIZE(strlen)