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

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index fe68463..3e7513f 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -34,9 +34,12 @@ 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
 	}
 
@@ -115,9 +118,10 @@ derive gEq BCValue
 
 :: ByteCode a p = BC (RWS () [BC] BCState ())
 
-:: BCShare = {
-		sdsi :: Int,
-		sdsval :: BCValue
+:: BCShare =
+	{ sdsi :: Int
+	, sdsval :: BCValue
+	, sdsname :: String
 	}
 
 :: BCState = {