2N/A/*
2N/A * CDDL HEADER START
2N/A *
2N/A * The contents of this file are subject to the terms of the
2N/A * Common Development and Distribution License (the "License").
2N/A * You may not use this file except in compliance with the License.
2N/A *
2N/A * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
2N/A * or http://www.opensolaris.org/os/licensing.
2N/A * See the License for the specific language governing permissions
2N/A * and limitations under the License.
2N/A *
2N/A * When distributing Covered Code, include this CDDL HEADER in each
2N/A * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
2N/A * If applicable, add the following below this CDDL HEADER, with the
2N/A * fields enclosed by brackets "[]" replaced with your own identifying
2N/A * information: Portions Copyright [yyyy] [name of copyright owner]
2N/A *
2N/A * CDDL HEADER END
2N/A */
2N/A
2N/A/*
2N/A * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
2N/A * Use is subject to license terms.
2N/A */
2N/A
2N/A .file "wschr.s"
2N/A
2N/A/
2N/A/ Wide character wcschr() implementation
2N/A/
2N/A/ Algorithm based on Solaris 2.6 gen/strchr.s implementation
2N/A/
2N/A
2N/A#include <sys/asm_linkage.h>
2N/A
2N/A ANSI_PRAGMA_WEAK(wcschr,function)
2N/A ANSI_PRAGMA_WEAK(wschr,function)
2N/A
2N/A .align 8 / accounts for .loop alignment and prolog
2N/A
2N/A ENTRY(wcschr) /* (wchar_t *s, wchar_t wc) */
2N/A movq %rdi,%rax
2N/A.loop:
2N/A movl (%rax),%edx / %edx = wchar of string
2N/A cmpl %esi,%edx / find it?
2N/A je .found / yes
2N/A testl %edx,%edx / is it null?
2N/A je .notfound
2N/A
2N/A movl 4(%rax),%edx / %edx = wchar of string
2N/A cmpl %esi,%edx / find it?
2N/A je .found1 / yes
2N/A testl %edx,%edx / is it null?
2N/A je .notfound
2N/A
2N/A movl 8(%rax),%edx / %edx = wchar of string
2N/A cmpl %esi,%edx / find it?
2N/A je .found2 / yes
2N/A testl %edx,%edx / is it null?
2N/A je .notfound
2N/A
2N/A movl 12(%rax),%edx / %edx = wchar of string
2N/A cmpl %esi,%edx / find it?
2N/A je .found3 / yes
2N/A addq $16,%rax
2N/A testl %edx,%edx / is it null?
2N/A jne .loop
2N/A
2N/A.notfound:
2N/A xorl %eax,%eax / %rax = NULL
2N/A ret
2N/A
2N/A.found3:
2N/A addq $12,%rax
2N/A ret
2N/A.found2:
2N/A addq $8,%rax
2N/A ret
2N/A.found1:
2N/A addq $4,%rax
2N/A.found:
2N/A ret
2N/A SET_SIZE(wcschr)
2N/A
2N/A ENTRY(wschr)
2N/A jmp wcschr / tail call into wcschr
2N/A SET_SIZE(wschr)