From: Michael D. Lowis <mike@mdlowis.com>
Date: Fri, 9 May 2014 01:57:31 +0000 (-0400)
Subject: fixed unmber parsing
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=b5c286797e6f63fde816af65d4d3d2212c5bcc24;p=proto%2Fsclpl.git

fixed unmber parsing
---

diff --git a/source/slvm/kernel/parser.c b/source/slvm/kernel/parser.c
index b69c707..a914367 100644
--- a/source/slvm/kernel/parser.c
+++ b/source/slvm/kernel/parser.c
@@ -249,24 +249,20 @@ long strtol(char* p_str, char** p_p_end)
     int sign = 1;
     int base = 10;
     long value = 0;
+    bool consumed = false;
 
     /* Skip any leading whitespace */
-    do {
-        ch = *(p_str);
-        p_str++;
-    } while (is_ws(ch));
+    do { ch = *p_str++; } while (is_ws(ch));
 
     /* Detect leading sign */
     if (ch == '-')
     {
         sign = -1;
-        ch = *p_str;
-        p_str++;
+        ch = *p_str++;
     }
     else if (ch == '+')
     {
-        ch = *p_str;
-        p_str++;
+        ch = *p_str++;
     }
 
     /* Detect the base of the number being parsed */
@@ -300,8 +296,9 @@ long strtol(char* p_str, char** p_p_end)
         /* Shift the value be the base and add in the digit */
         value *= base;
         value += ch;
+        consumed = true;
     }
 
-    *p_p_end = p_str-1;
+    *p_p_end = (consumed) ? p_str-1 : p_str;
     return sign * value;
 }