From 76f985fe4373626c613d17515d58f37f839dc586 Mon Sep 17 00:00:00 2001 From: "Michael D. Lowis" Date: Mon, 23 Jun 2014 19:52:46 -0400 Subject: [PATCH] checkpoint commit --- source/slvm/kernel/parser.c | 1 - source/slvm/kernel/slvm.h | 11 +++++------ 2 files changed, 5 insertions(+), 7 deletions(-) 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 /* 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 /** -- 2.52.0