From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 11 May 2017 19:13:44 +0000 (+0200)
Subject: small update
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=a2df77cbda43d5a24eeb8ac7db7452baae9f18aa;p=mTask.git

small update
---

diff --git a/client/Makefile b/client/Makefile
index 0bf9b51..91d9e87 100644
--- 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
--- 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
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -67,6 +67,7 @@ decode :: String -> MTaskMSGRecv
 	//Binary Bool ops
 	| BCAnd
 	| BCOr
+	//Binary ops
 	| BCEq
 	| BCNeq
 	| BCLes