1*57920690Smsaitoh/* $NetBSD: index.S,v 1.6 2020/09/29 02:58:51 msaitoh Exp $ */ 292a955a8Sragge/* 392a955a8Sragge * Copyright (c) 1980, 1993 492a955a8Sragge * The Regents of the University of California. All rights reserved. 592a955a8Sragge * 692a955a8Sragge * Redistribution and use in source and binary forms, with or without 792a955a8Sragge * modification, are permitted provided that the following conditions 892a955a8Sragge * are met: 992a955a8Sragge * 1. Redistributions of source code must retain the above copyright 1092a955a8Sragge * notice, this list of conditions and the following disclaimer. 1192a955a8Sragge * 2. Redistributions in binary form must reproduce the above copyright 1292a955a8Sragge * notice, this list of conditions and the following disclaimer in the 1392a955a8Sragge * documentation and/or other materials provided with the distribution. 14eb7c1594Sagc * 3. Neither the name of the University nor the names of its contributors 1592a955a8Sragge * may be used to endorse or promote products derived from this software 1692a955a8Sragge * without specific prior written permission. 1792a955a8Sragge * 1892a955a8Sragge * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 1992a955a8Sragge * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2092a955a8Sragge * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2192a955a8Sragge * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 2292a955a8Sragge * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2392a955a8Sragge * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2492a955a8Sragge * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2592a955a8Sragge * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 2692a955a8Sragge * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 2792a955a8Sragge * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 2892a955a8Sragge * SUCH DAMAGE. 2992a955a8Sragge */ 3092a955a8Sragge 3192a955a8Sragge/* 32*57920690Smsaitoh * Find the first occurrence of c in the string cp. 3392a955a8Sragge * Return pointer to match or null pointer. 3492a955a8Sragge * 3592a955a8Sragge * char * 3692a955a8Sragge * index(cp, c) 3792a955a8Sragge * char *cp, c; 3892a955a8Sragge */ 3992a955a8Sragge#include "DEFS.h" 4092a955a8Sragge 41787e823fSmatt#ifdef LIBC_SCCS 42*57920690SmsaitohRCSID("$NetBSD: index.S,v 1.6 2020/09/29 02:58:51 msaitoh Exp $") 43787e823fSmatt#endif 44787e823fSmatt 4592a955a8Sragge/* Alas not quite twice as fast as the generic C version on a uvax2 */ 4692a955a8Sragge 4792a955a8SraggeENTRY(index, 0) 480ce5ca14Smatt movq 4(%ap),%r0 # %r0 = cp; %r1 = c 490ce5ca14Smatt tstb %r1 # special case, looking for '\0' 5092a955a8Sragge jeql 3f 5192a955a8Sragge1: 520ce5ca14Smatt cmpb (%r0),%r1 5392a955a8Sragge jeql 2f 540ce5ca14Smatt tstb (%r0)+ 5592a955a8Sragge jneq 1b 560ce5ca14Smatt clrl %r0 # return NULL if no match 5792a955a8Sragge2: 5892a955a8Sragge ret 5992a955a8Sragge3: 600ce5ca14Smatt tstb (%r0)+ 6192a955a8Sragge jneq 3b 620ce5ca14Smatt decl %r0 6392a955a8Sragge jbr 2b 64787e823fSmattEND(index) 65