X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=3e7513fde7354c920e5656ecfc3e9351695d21db;hb=HEAD;hp=99a3533cd2fa0ea32b7c1ccfe0cdbf56e9f7bd67;hpb=0403d4e20b0d43efad9b17bb9f51d53559aad738;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 99a3533..3e7513f 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -34,13 +34,18 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi
 	| OnInterrupt Int
 
 :: MTaskDeviceSpec =
-		{haveLed :: Bool
-		,haveAio :: Bool
-		,haveDio :: Bool
+		{haveLed     :: Bool
+		,haveAio     :: Bool
+		,haveDio     :: Bool
+		,aPins       :: Int
+		,dPins       :: Int
+		,stackSize   :: Int
 		,bytesMemory :: Int
 	}
 
-:: BCValue = E.e: BCValue e & mTaskType e
+:: BCValue = E.e: BCValue e & mTaskType, TC e
+
+instance == BCValue
 
 instance toString MTaskInterval
 instance toString MTaskMSGRecv
@@ -113,14 +118,15 @@ derive gEq BCValue
 
 :: ByteCode a p = BC (RWS () [BC] BCState ())
 
-:: BCShare = {
-		sdsi :: Int,
-		sdsval :: BCValue
+:: BCShare =
+	{ sdsi :: Int
+	, sdsval :: BCValue
+	, sdsname :: String
 	}
 
 :: BCState = {
-		freshl :: [Int],
-		freshs :: [Int],
+		freshl :: Int,
+		freshs :: Int,
 		sdss :: [BCShare]
 	}
 instance zero BCState
@@ -150,6 +156,7 @@ instance noOp ByteCode
 instance retrn ByteCode
 
 instance sds ByteCode
+instance sdspub ByteCode
 instance assign ByteCode
 instance seq ByteCode
 instance serial ByteCode