mlibc: Mescc-tools support: strtol: partly implement stub.
[mes.git] / 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