From e19299be4b02b01fdf187418f15ddcdead25fd5a Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Mon, 19 Jun 2017 19:36:49 +0200
Subject: [PATCH] update specs
---
client/spec.c | 1 +
mTaskInterpret.dcl | 1 +
mTaskInterpret.icl | 5 +++--
3 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/client/spec.c b/client/spec.c
index a6a26d3..38c58ef 100644
--- a/client/spec.c
+++ b/client/spec.c
@@ -7,6 +7,7 @@ void spec_send(void)
write_byte('c');
write_byte(0 | (HAVELED << 0) | (HAVEAIO << 1) | (HAVEDIO << 2));
write16(MEMSIZE);
+ write16(STACKSIZE);
write_byte(NAPINS);
write_byte(NDPINS);
write_byte('\n');
diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index c4dadfb..7e8d4b4 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -39,6 +39,7 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi
,haveDio :: Bool
,aPins :: Int
,dPins :: Int
+ ,stackSize :: Int
,bytesMemory :: Int
}
diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 7917c93..2d2005a 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -164,9 +164,10 @@ instance fromByteCode MTaskDeviceSpec where
| haveLed = (c bitand 1) > 0
, haveAio = (c bitand 2) > 0
, haveDio = (c bitand 4) > 0
- , aPins = toInt s.[3]
- , dPins = toInt s.[4]
, bytesMemory = from16bit $ s % (1,3)
+ , stackSize = from16bit $ s % (3,5)
+ , aPins = toInt s.[5]
+ , dPins = toInt s.[6]
}
derive gPrint Long, UserLED, Button, AnalogPin, DigitalPin, PinMode, Pin, BC, MTaskDeviceSpec
--
2.20.1