diff options
Diffstat (limited to 'strings/strchr.c')
| -rw-r--r-- | strings/strchr.c | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/strings/strchr.c b/strings/strchr.c new file mode 100644 index 00000000000..ef117d85635 --- /dev/null +++ b/strings/strchr.c @@ -0,0 +1,46 @@ +/* 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 |