From 8991e927c319016507f5230502517e2559a789ff Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 30 Jul 2017 12:55:58 +0200
Subject: [PATCH] mescc: Tinycc support: strchr.

* mlibc/libc-mes+tcc.c (strchr): Implement.
---
 mlibc/libc-mes+tcc.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/mlibc/libc-mes+tcc.c b/mlibc/libc-mes+tcc.c
index b70cb3cb..1b917d2f 100644
--- a/mlibc/libc-mes+tcc.c
+++ b/mlibc/libc-mes+tcc.c
@@ -277,7 +277,12 @@ strcat (char *dest, char const *src)
 char *
 strchr (char const *s, int c)
 {
-  eputs ("strchr stub\n");
+  char const *p = s;
+  while (*p || !c)
+    {
+      if (c == *p) return p;
+      *p++;
+    }
   return 0;
 }