]> git.ipfire.org Git - thirdparty/gcc.git/blob - libiberty/strchr.c
rs6000: Fix bcd test case
[thirdparty/gcc.git] / libiberty / strchr.c
1 /* Portable version of strchr()
2 This function is in the public domain. */
3
4 /*
5
6 @deftypefn Supplemental char* strchr (const char *@var{s}, int @var{c})
7
8 Returns a pointer to the first occurrence of the character @var{c} in
9 the string @var{s}, or @code{NULL} if not found. If @var{c} is itself the
10 null character, the results are undefined.
11
12 @end deftypefn
13
14 */
15
16 #include <ansidecl.h>
17
18 char *
19 strchr (register const char *s, int c)
20 {
21 do {
22 if (*s == c)
23 {
24 return (char*)s;
25 }
26 } while (*s++);
27 return (0);
28 }