small update

diff --git a/client/Makefile b/client/Makefile
index 0bf9b51..91d9e87 100644 (file)
--- a/client/Makefile
+++ b/client/Makefile
@@ -1,6 +1,6 @@
 all:
        make -C nodemcu
-       make -C stm32
+       #make -C stm32
        make -C linux
 
 clean:

diff --git a/client/interpret.c b/client/interpret.c
index 0f65888..e5907cf 100644 (file)
--- a/client/interpret.c
+++ b/client/interpret.c
@@ -16,7 +16,7 @@
 
 #define f16(p) program[pc]*265+program[pc+1]
 
-uint8_t stack[STACKSIZE] = {0};
+uint16_t stack[STACKSIZE] = {0};
 
 void run_task(struct task *t)
 {
@@ -164,7 +164,7 @@ void run_task(struct task *t)
 #endif
                case BCRETURN: trace("Return");
                        pc = plen;
-                       t = stack[sp-1];
+                       t->value = (uint16_t) stack[sp-1];
                        break;
                default:
                        trace("unrecognized");

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 8f4bd40..29e1fb9 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -67,6 +67,7 @@ decode :: String -> MTaskMSGRecv
        //Binary Bool ops
        | BCAnd
        | BCOr
+       //Binary ops
        | BCEq
        | BCNeq
        | BCLes