X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=27d4c43e833fbef0c7ef49086877140373961244;hb=8e31b107ced5cae9230623a22d11ca37f391e74a;hp=8b489d8422fc015788f2dd4d62b74ab8767a245e;hpb=4f5bec7a819e8a8ee9ee30b761c2159df0a7d8a4;p=mTask.git

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 8b489d8..27d4c43 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -53,7 +53,7 @@ decode x
 | not (trace_tn ("decoding: " +++ toString (toJSON x))) = undef
 | size x == 0 = MTEmpty
 = case x.[0] of
-	't' = MTTaskAck $ fromByteCode x
+	't' = MTTaskAck (fromByteCode x) (fromByteCode (x % (2, size x)))
 	'd' = MTTaskDelAck $ fromByteCode x
 	'm' = MTMessage x
 	's' = MTSDSAck $ fromByteCode x
@@ -81,7 +81,8 @@ instance toString MTaskMSGSend where
 		+++ " value " +++ safePrint v
 
 instance toString MTaskMSGRecv where
-	toString (MTTaskAck i) = "Task added with id: " +++ toString i
+	toString (MTTaskAck i mem) = "Task added with id: " +++ toString i
+		+++ " free memory: " +++ toString mem
 	toString (MTTaskDelAck i) = "Task deleted with id: " +++ toString i
 	toString (MTSDSAck i) = "SDS added with id: " +++ toString i
 	toString (MTSDSDelAck i) = "SDS deleted with id: " +++ toString i