mescc: Tinycc support: strrchr.

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

diff --git a/mlibc/libc-mes+tcc.c b/mlibc/libc-mes+tcc.c
index 1b917d2f0bc1532c08b446df068d45015a53a6bd..b704302c435fea16ddb3c0860838db149fbc8e93 100644 (file)
--- a/mlibc/libc-mes+tcc.c
+++ b/mlibc/libc-mes+tcc.c
@@ -289,7 +289,14 @@ strchr (char const *s, int c)
 char *
 strrchr (char const *s, int c)
 {
-  eputs ("strrchr stub\n");
+  int n = strlen (s);
+  if (!n) return 0;
+  char const *p = s + n - 1;
+  while (*p || !c)
+    {
+      if (c == *p) return p;
+      *p--;
+    }
   return 0;
 }