kyle
/
ulisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Version 2.8c - 7th September 2019 

Better use of DataFlash
Fixed Trace bug
This commit is contained in:
David Johnson-Davies 2019-09-07 14:56:20 +01:00 committed by GitHub
parent 2c7b68d727
commit dd27e3eba6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 26 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM 2.8b - www.ulisp.com /* uLisp ARM 2.8c - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 13th August 2019 David Johnson-Davies - www.technoblogy.com - 7th September 2019
Licensed under the MIT license: https://opensource.org/licenses/MIT Licensed under the MIT license: https://opensource.org/licenses/MIT
*/ */
@ -123,9 +123,8 @@ typedef void (*pfun_t)(char);
#if defined(ADAFRUIT_ITSYBITSY_M0) #if defined(ADAFRUIT_ITSYBITSY_M0)
#define WORKSPACESIZE 3072-SDSIZE /* Cells (8*bytes) */ #define WORKSPACESIZE 3072-SDSIZE /* Cells (8*bytes) */
#define FLASHSIZE 65536 /* Bytes */ #define DATAFLASHSIZE 2048000 /* 2 MBytes */
#define SYMBOLTABLESIZE 512 /* Bytes */ #define SYMBOLTABLESIZE 512 /* Bytes */
#define HASDATAFLASH
uint8_t _end; uint8_t _end;
#elif defined(ADAFRUIT_GEMMA_M0) #elif defined(ADAFRUIT_GEMMA_M0)
@ -141,30 +140,25 @@ typedef void (*pfun_t)(char);
#elif defined(ADAFRUIT_METRO_M4_EXPRESS) #elif defined(ADAFRUIT_METRO_M4_EXPRESS)
#define WORKSPACESIZE 20480-SDSIZE /* Cells (8*bytes) */ #define WORKSPACESIZE 20480-SDSIZE /* Cells (8*bytes) */
#define FLASHSIZE 65536 /* Bytes */ #define DATAFLASHSIZE 2048000 /* 2 MBytes */
#define SYMBOLTABLESIZE 1024 /* Bytes */
#define HASDATAFLASH
uint8_t _end; uint8_t _end;
#elif defined(ADAFRUIT_ITSYBITSY_M4) #elif defined(ADAFRUIT_ITSYBITSY_M4)
#define WORKSPACESIZE 20480-SDSIZE /* Cells (8*bytes) */ #define WORKSPACESIZE 20480-SDSIZE /* Cells (8*bytes) */
#define FLASHSIZE 65536 /* Bytes */ #define DATAFLASHSIZE 2048000 /* 2 MBytes */
#define SYMBOLTABLESIZE 1024 /* Bytes */ #define SYMBOLTABLESIZE 1024 /* Bytes */
#define HASDATAFLASH
uint8_t _end; uint8_t _end;
#elif defined(ADAFRUIT_FEATHER_M4) #elif defined(ADAFRUIT_FEATHER_M4)
#define WORKSPACESIZE 20480-SDSIZE /* Cells (8*bytes) */ #define WORKSPACESIZE 20480-SDSIZE /* Cells (8*bytes) */
#define FLASHSIZE 65536 /* Bytes */ #define DATAFLASHSIZE 2048000 /* 2 MBytes */
#define SYMBOLTABLESIZE 1024 /* Bytes */ #define SYMBOLTABLESIZE 1024 /* Bytes */
#define HASDATAFLASH
uint8_t _end; uint8_t _end;
#elif defined(ADAFRUIT_GRAND_CENTRAL_M4) #elif defined(ADAFRUIT_GRAND_CENTRAL_M4)
#define WORKSPACESIZE 30720-SDSIZE /* Cells (8*bytes) */ #define WORKSPACESIZE 30720-SDSIZE /* Cells (8*bytes) */
#define FLASHSIZE 65536 /* Bytes */ #define DATAFLASHSIZE 8192000 /* 8 MBytes */
#define SYMBOLTABLESIZE 1024 /* Bytes */ #define SYMBOLTABLESIZE 1024 /* Bytes */
#define HASDATAFLASH
uint8_t _end; uint8_t _end;
#elif defined(ARDUINO_SAM_DUE) #elif defined(ARDUINO_SAM_DUE)
@ -437,7 +431,7 @@ void SDWriteInt (File file, int data) {
file.write(data & 0xFF); file.write(data>>8 & 0xFF); file.write(data & 0xFF); file.write(data>>8 & 0xFF);
file.write(data>>16 & 0xFF); file.write(data>>24 & 0xFF); file.write(data>>16 & 0xFF); file.write(data>>24 & 0xFF);
} }
#elif defined(HASDATAFLASH) #elif defined(DATAFLASHSIZE)
// Winbond DataFlash support for Adafruit M4 Express boards // Winbond DataFlash support for Adafruit M4 Express boards
#define PAGEPROG 0x02 #define PAGEPROG 0x02
#define READSTATUS 0x05 #define READSTATUS 0x05
@ -507,22 +501,24 @@ inline void FlashEndRead(void) {
digitalWrite(ssel, 1); digitalWrite(ssel, 1);
} }
void FlashBeginWrite () { void FlashBeginWrite (int blocks) {
FlashBusy(); FlashBusy();
// Erase 64K // Erase 64K
FlashWriteEnable(); FlashWriteEnable();
for (int b=0; b<blocks; b++) {
digitalWrite(ssel, 0); digitalWrite(ssel, 0);
FlashWrite(BLOCK64K); FlashWrite(BLOCK64K);
FlashWrite(0); FlashWrite(0); FlashWrite(0); FlashWrite(0); FlashWrite(b); FlashWrite(0);
digitalWrite(ssel, 1); digitalWrite(ssel, 1);
FlashBusy(); FlashBusy();
}
} }
inline uint8_t FlashReadByte () { inline uint8_t FlashReadByte () {
return FlashRead(); return FlashRead();
} }
void FlashWriteByte (unsigned int *addr, uint8_t data) { void FlashWriteByte (unsigned long *addr, uint8_t data) {
// New page // New page
if (((*addr) & 0xFF) == 0) { if (((*addr) & 0xFF) == 0) {
digitalWrite(ssel, 1); digitalWrite(ssel, 1);
@ -542,7 +538,7 @@ inline void FlashEndWrite (void) {
digitalWrite(ssel, 1); digitalWrite(ssel, 1);
} }
void FlashWriteInt (unsigned int *addr, int data) { void FlashWriteInt (unsigned long *addr, int data) {
FlashWriteByte(addr, data & 0xFF); FlashWriteByte(addr, data>>8 & 0xFF); FlashWriteByte(addr, data & 0xFF); FlashWriteByte(addr, data>>8 & 0xFF);
FlashWriteByte(addr, data>>16 & 0xFF); FlashWriteByte(addr, data>>24 & 0xFF); FlashWriteByte(addr, data>>16 & 0xFF); FlashWriteByte(addr, data>>24 & 0xFF);
} }
@ -574,14 +570,14 @@ int saveimage (object *arg) {
} }
file.close(); file.close();
return imagesize; return imagesize;
#elif defined(HASDATAFLASH) #elif defined(DATAFLASHSIZE)
if (!(arg == NULL || listp(arg))) error(SAVEIMAGE, PSTR("illegal argument"), arg); if (!(arg == NULL || listp(arg))) error(SAVEIMAGE, PSTR("illegal argument"), arg);
if (!FlashSetup()) error2(SAVEIMAGE, PSTR("no DataFlash found.")); if (!FlashSetup()) error2(SAVEIMAGE, PSTR("no DataFlash found."));
// Save to DataFlash // Save to DataFlash
int bytesneeded = imagesize*8 + SYMBOLTABLESIZE + 20; int bytesneeded = imagesize*8 + SYMBOLTABLESIZE + 20;
if (bytesneeded > FLASHSIZE) error(SAVEIMAGE, PSTR("image size too large"), number(imagesize)); if (bytesneeded > DATAFLASHSIZE) error(SAVEIMAGE, PSTR("image size too large"), number(imagesize));
unsigned int addr = 0; unsigned long addr = 0;
FlashBeginWrite(); FlashBeginWrite(ceil(bytesneeded/65536));
FlashWriteInt(&addr, (uintptr_t)arg); FlashWriteInt(&addr, (uintptr_t)arg);
FlashWriteInt(&addr, imagesize); FlashWriteInt(&addr, imagesize);
FlashWriteInt(&addr, (uintptr_t)GlobalEnv); FlashWriteInt(&addr, (uintptr_t)GlobalEnv);
@ -610,7 +606,7 @@ int SDReadInt (File file) {
uintptr_t b2 = file.read(); uintptr_t b3 = file.read(); uintptr_t b2 = file.read(); uintptr_t b3 = file.read();
return b0 | b1<<8 | b2<<16 | b3<<24; return b0 | b1<<8 | b2<<16 | b3<<24;
} }
#elif defined(HASDATAFLASH) #elif defined(DATAFLASHSIZE)
int FlashReadInt () { int FlashReadInt () {
uint8_t b0 = FlashReadByte(); uint8_t b1 = FlashReadByte(); uint8_t b0 = FlashReadByte(); uint8_t b1 = FlashReadByte();
uint8_t b2 = FlashReadByte(); uint8_t b3 = FlashReadByte(); uint8_t b2 = FlashReadByte(); uint8_t b3 = FlashReadByte();
@ -642,7 +638,7 @@ int loadimage (object *arg) {
file.close(); file.close();
gc(NULL, NULL); gc(NULL, NULL);
return imagesize; return imagesize;
#elif defined(HASDATAFLASH) #elif defined(DATAFLASHSIZE)
if (!FlashSetup()) error2(LOADIMAGE, PSTR("no DataFlash found.")); if (!FlashSetup()) error2(LOADIMAGE, PSTR("no DataFlash found."));
FlashBeginRead(); FlashBeginRead();
FlashReadInt(); // Skip eval address FlashReadInt(); // Skip eval address
@ -680,7 +676,7 @@ void autorunimage () {
loadimage(NULL); loadimage(NULL);
apply(0, autorun, NULL, NULL); apply(0, autorun, NULL, NULL);
} }
#elif defined(HASDATAFLASH) #elif defined(DATAFLASHSIZE)
if (!FlashSetup()) error2(0, PSTR("no DataFlash found.")); if (!FlashSetup()) error2(0, PSTR("no DataFlash found."));
FlashBeginRead(); FlashBeginRead();
object *autorun = (object *)FlashReadInt(); object *autorun = (object *)FlashReadInt();
@ -1005,7 +1001,7 @@ object *closure (int tc, symbol_t name, object *state, object *function, object
if (trace) { if (trace) {
indent(TraceDepth[trace-1]<<1, pserial); indent(TraceDepth[trace-1]<<1, pserial);
pint(TraceDepth[trace-1]++, pserial); pint(TraceDepth[trace-1]++, pserial);
pserial(':'); pserial(' '); pserial('('); pstring(lookupbuiltin(name), pserial); pserial(':'); pserial(' '); pserial('('); pstring(symbolname(name), pserial);
} }
object *params = first(function); object *params = first(function);
function = cdr(function); function = cdr(function);