mlibc: Mescc-tools support: strtol: partly implement stub.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 19 Nov 2017 15:54:13 +0000 (16:54 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 19 Nov 2017 15:54:13 +0000 (16:54 +0100)
* mlibc/libc-mes+tcc.c (strtol): Partly implement stub.

mlibc/libc-mes+tcc.c

index 087253a214f652eeef1d5525d84d41426bbcf001..9af01d97184ca3cefeecf5c8fb82f379406fa06e 100644 (file)
@@ -309,7 +309,12 @@ long
 strtol (char const *nptr, char **endptr, int base)
 {
   eputs ("strtol stub\n");
-  return 0;
+  if (!strncmp (nptr, "0x", 2))
+    {
+      char const *p = nptr + 2;
+      return _atoi (&p, 16);
+    }
+  return _atoi (&nptr, base);
 }
 
 long long int