Subversion Repositories planix.SVN

        TEXT    strchr(SB), $0

        MOVL    s+0(FP), DI
        MOVB    c+4(FP), AX
        CMPB    AX, $0
        JEQ     l2      /**/

/*
 * char is not null
 */
l1:
        MOVB    (DI), BX
        CMPB    BX, $0
        JEQ     ret0
        ADDL    $1, DI
        CMPB    AX, BX
        JNE     l1

        MOVL    DI, AX
        SUBL    $1, AX
        RET

/*
 * char is null
 */
l2:
        MOVL    $-1, CX
        CLD

        REPN;   SCASB

        MOVL    DI, AX
        SUBL    $1, AX
        RET

ret0:
        MOVL    $0, AX
        RET