Add test for range error in expm1.
[glibc.git] / string / strrchr.c
blob64118b87effd074daad1ed3e0387230a57b313f6
1 /* Copyright (C) 1991, 1995, 1996, 1997, 2003 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, write to the Free
16 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17 02111-1307 USA. */
19 #include <string.h>
21 #undef strrchr
23 /* Find the last occurrence of C in S. */
24 char *
25 strrchr (const char *s, int c)
27 register const char *found, *p;
29 c = (unsigned char) c;
31 /* Since strchr is fast, we use it rather than the obvious loop. */
33 if (c == '\0')
34 return strchr (s, '\0');
36 found = NULL;
37 while ((p = strchr (s, c)) != NULL)
39 found = p;
40 s = p + 1;
43 return (char *) found;
46 #ifdef weak_alias
47 #undef rindex
48 weak_alias (strrchr, rindex)
49 #endif
50 libc_hidden_builtin_def (strrchr)