From: Michael D. Lowis <mike@mdlowis.com>
Date: Mon, 23 Jun 2014 23:52:46 +0000 (-0400)
Subject: checkpoint commit
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=refs%2Fheads%2Fall-in-one;p=proto%2Fsclpl.git

checkpoint commit
---

diff --git a/source/slvm/kernel/parser.c b/source/slvm/kernel/parser.c
index a914367..107d265 100644
--- a/source/slvm/kernel/parser.c
+++ b/source/slvm/kernel/parser.c
@@ -165,7 +165,6 @@ static bool is_integer(char* p_str, val_t* p_val)
     char* end;
     *(p_val) = (val_t)strtol(p_str,&end);
     return (end == &(p_str[pal_strlen(p_str)]));
-    //return false;
 }
 
 static bool is_float(char* p_str, val_t* p_val)
diff --git a/source/slvm/kernel/slvm.h b/source/slvm/kernel/slvm.h
index 421bf9b..dec6810 100644
--- a/source/slvm/kernel/slvm.h
+++ b/source/slvm/kernel/slvm.h
@@ -10,8 +10,8 @@
 #include <stdint.h>
 
 /* Choose a width for val_t that matches the pointer size of the target
- * architecture. Defaults to simply a long but can be overridden for specific
- * cases */
+ * architecture. Defaults to simply a intptr_t but can be overridden
+ * for specific cases */
 #if defined(_16BIT_)
     typedef int16_t val_t;
 #elif defined(_32BIT_)
@@ -19,8 +19,7 @@
 #elif defined(_64BIT_)
     typedef int64_t val_t;
 #else
-    /* hope for the best? */
-    typedef long val_t;
+    typedef intptr_t val_t;
 #endif
 
 /**
@@ -91,8 +90,8 @@ typedef struct dict_t {
 #define EXEC(word) (word).codeword((word).code)
 
 /** The maximum number of entries that can be on the argument stack */
-#ifndef STACK_SIZE
-#define STACK_SIZE 32
+#ifndef ARG_STACK_SIZE
+#define ARG_STACK_SIZE (1024/sizeof(val_t))
 #endif
 
 /**