checkpoint commit

diff --git a/source/slvm/kernel/parser.c b/source/slvm/kernel/parser.c
index a9143672b299462d592a3c49e4111ca58137e61b..107d265236e4af2028aea2e0013bf1d273680251 100644 (file)
--- 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 421bf9bb91f38c53c8caded0e55bb57aeb10eb12..dec68103913b22e88bf6128945862780f7caf22e 100644 (file)
--- 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
 
 /**