Imported from /home/lorry/working-area/delta_binutils-tarball/binutils-2.25.tar.bz2.HEADbinutils-2.25master

1 files changed, 21 insertions, 0 deletions

diff --git a/libiberty/index.c b/libiberty/index.c
new file mode 100644
index 0000000..acd0a45
--- /dev/null
+++ b/libiberty/index.c
@@ -0,0 +1,21 @@
+/* Stub implementation of (obsolete) index(). */
+
+/*
+
+@deftypefn Supplemental char* index (char *@var{s}, int @var{c})
+
+Returns a pointer to the first occurrence of the character @var{c} in
+the string @var{s}, or @code{NULL} if not found.  The use of @code{index} is
+deprecated in new programs in favor of @code{strchr}.
+
+@end deftypefn
+
+*/
+
+extern char * strchr(const char *, int);
+
+char *
+index (const char *s, int c)
+{
+  return strchr (s, c);
+}