mirror of
https://github.com/MariaDB/server.git
synced 2025-01-30 18:41:56 +01:00
47 lines
1.2 KiB
C
47 lines
1.2 KiB
C
/* File : strchr.c
|
|||
Author : Richard A. O'Keefe.
|
|||
Michael Widenius: ifdef MC68000
|
|||
Updated: 20 April 1984
|
|||
Defines: strchr(), index()
|
|||
|
|||
strchr(s, c) returns a pointer to the first place in s where c
|
|||
occurs, or NullS if c does not occur in s. This function is called
|
|||
index in V7 and 4.?bsd systems; while not ideal the name is clearer
|
|||
than strchr, so index remains in strings.h as a macro. NB: strchr
|
|||
looks for single characters, not for sets or strings. To find the
|
|||
NUL character which closes s, use strchr(s, '\0') or strend(s). The
|
|||
parameter 'c' is declared 'int' so it will go in a register; if your
|
|||
C compiler is happy with register _char_ change it to that.
|
|||
*/
|
|||
|
|||
#include "strings.h"
|
|||
|
|||
#if defined(MC68000) && defined(DS90)
|
|||
|
|||
char* strchr(char *s, pchar c)
|
|||
{
|
|||
asm(" movl 4(a7),a0 ");
|
|||
asm(" movl 8(a7),d1 ");
|
|||
asm(".L2: movb (a0)+,d0 ");
|
|||
asm(" cmpb d0,d1 ");
|
|||
asm(" beq .L1 ");
|
|||
asm(" tstb d0 ");
|
|||
asm(" bne .L2 ");
|
|||
asm(" moveq #0,d0 ");
|
|||
asm(" rts ");
|
|||
asm(".L1: movl a0,d0 ");
|
|||
asm(" subql #1,d0 ");
|
|||
}
|
|||
#else
|
|||
|
|||
char *strchr(register const char *s, register pchar c)
|
|||
{
|
|||
for (;;)
|
|||
{
|
|||
if (*s == (char) c) return (char*) s;
|
|||
if (!*s++) return NullS;
|
|||
}
|
|||
}
|
|||
|
|||
#endif
|
