From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 30 Jul 2017 10:55:58 +0000 (+0200)
Subject: mescc: Tinycc support: strchr.
X-Git-Tag: v0.10~55
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=8991e927c319016507f5230502517e2559a789ff

mescc: Tinycc support: strchr.

* mlibc/libc-mes+tcc.c (strchr): Implement.
---

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;
 }