checkpoint commit

diff --git a/source/slvm/main.c b/source/slvm/main.c
index c9f6cf3db2e8593ef62ab7ac2431a7d1b8b11f68..3d45d77762478df305c4ffc854d7629acb381d53 100644 (file)
--- a/source/slvm/main.c
+++ b/source/slvm/main.c
@@ -45,9 +45,9 @@ void docolon(long* code) {
 
 /* Built-in Constants
  *****************************************************************************/
-defconst("VERSION",  version, 0, 0,        1);
-defconst("EXECDEF",  execdef, 0, &version, (long)&docolon);
-defconst("WORDSZ",   wordsz,  0, &execdef, sizeof(long));
+defconst("VERSION", version, 0, 0,        1);
+defconst("EXECDEF", execdef, 0, &version, (long)&docolon);
+defconst("WORDSZ",  wordsz,  0, &execdef, sizeof(long));
 
 /* Built-in Variables
  *****************************************************************************/
@@ -617,7 +617,6 @@ defcode("printdefw", printdefw, 0, &printallw){
  *****************************************************************************/
 int main(int argc, char** argv)
 {
-    ArgStackPtr = ArgStack - 1;
     latest_val = (long)&printdefw;
     EXEC(quit);
     return 0;

diff --git a/source/slvm/slvm.h b/source/slvm/slvm.h
index 58c8596cd078c6972e9fe39ef4a40d36d6de2efe..6a68710d8a70e769c0aab79b725bb5b678f07f6e 100644 (file)
--- a/source/slvm/slvm.h
+++ b/source/slvm/slvm.h
@@ -7,6 +7,13 @@
 #ifndef SLVM_H
 #define SLVM_H
 
+//#if defined(_16BIT_)
+//#elif defined(_32BIT_)
+//#elif defined(_64BIT_)
+//#else
+//    #error "Invalid architecture"
+//#endif
+
 /**
     This type represents a pointer to a function handler for executing a word.
     For built-in words this typically points to the C function that implements