From: Michael D. Lowis <mike@mdlowis.com>
Date: Wed, 23 Apr 2014 02:09:40 +0000 (-0400)
Subject: checkpoint commit
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=4cf7965e4ff8d3f8c1892a24a0323545dfbc150e;p=proto%2Fsclpl.git

checkpoint commit
---

diff --git a/source/slvm/main.c b/source/slvm/main.c
index c9f6cf3..3d45d77 100644
--- 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 58c8596..6a68710 100644
--- 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