Subversion Repositories or1k

/*
 * ====================================================
 * Copyright (C) 1998 by Cygnus Solutions. All rights reserved.
 *
 * Permission to use, copy, modify, and distribute this
 * software is freely granted, provided that this notice
 * is preserved.
 * ====================================================
 */

        #include "i386mach.h"
        
        .global SYM (strchr)
       SOTYPE_FUNCTION(strchr)

SYM (strchr):

        pushl ebp
        movl esp,ebp
        pushl edi
        pushl ebx
        xorl ebx,ebx
        movl 8(ebp),edi
        movb 12(ebp),bl

#ifndef __OPTIMIZE_SIZE__       
/* check if string is aligned, if not do check one byte at a time */
        test $3,edi
        jne L9

/* create 4 byte mask which is just the desired byte repeated 4 times */
        movl ebx,ecx
        sall $8,ebx
        subl $4,edi
        orl ecx,ebx
        movl ebx,edx
        sall $16,ebx
        orl edx,ebx

/* loop performing 4 byte mask checking for 0 byte or desired byte */
        .p2align 4,,7
L10:
        addl $4,edi
        movl (edi),ecx
        leal -16843009(ecx),edx
        movl ecx,eax
        notl eax
        andl eax,edx
        testl $-2139062144,edx
        jne L9

        movl ebx,eax
        xorl ecx,eax
        leal -16843009(eax),edx
        notl eax
        andl eax,edx
        testl $-2139062144,edx
        je L10
#endif /* not __OPTIMIZE_SIZE__ */
                
/* loop while (*s && *s++ != c) */
L9:
        leal -1(edi),eax
        .p2align 4,,7
L15:
        incl eax
        movb (eax),dl
        testb dl,dl
        je L14
        cmpb bl,dl
        jne L15
        
L14:
/*  if (*s == c) return address otherwise return NULL */
        cmpb bl,(eax)
        je L19
        xorl eax,eax

L19:
        leal -8(ebp),esp
        popl ebx
        popl edi
        leave
        ret