X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=92f668387877f9bae51ef3a36494fd379c720aec;hb=7ab8606c3d22a2bc2743eae7a398407c84d502f2;hp=d104b021cc7e13b6c0c9354868cb9ad9389106d2;hpb=18c1286739897b65578e87b17167c6cef1922a3b;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index d104b02..92f6683 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -104,8 +104,7 @@ derive gEq BCValue
 :: BCShare = {
 		sdsi :: Int,
 		sdspub :: Bool,
-		sdsval :: Dynamic,
-		sdsbc :: String
+		sdsval :: BCValue
 	}
 
 :: BCState = {
@@ -120,11 +119,10 @@ class fromByteCode a :: String -> a
 class mTaskType a | toByteCode, fromByteCode, iTask, TC a
 
 instance toByteCode Int, Bool, Char, Long, String, Button, UserLED, BCValue
-instance fromByteCode Int, Bool, Char, Long, String, Button, UserLED
+instance fromByteCode Int, Bool, Char, Long, String, Button, UserLED, BCValue
 instance toByteCode MTaskInterval
 instance fromByteCode MTaskInterval
 
-instance toChar Pin
 instance arith ByteCode
 instance boolExpr ByteCode
 instance analogIO ByteCode