From 09ea349f5b37e257e8ca23ead493ba1694395530 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Tue, 12 Dec 2017 15:27:26 -0800 Subject: altos/lambdakey-v1.0: Get this building again The lambdakey can't hold a full implementation of the scheme interpreter, so use only a subset, removing floats, bigints and vectors. Also reduce the pre-loaded lisp code as well. It's pretty spare at this point; but it does fill the ROM. Signed-off-by: Keith Packard --- src/lambdakey-v1.0/ao_scheme_os.h | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/lambdakey-v1.0/ao_scheme_os.h') diff --git a/src/lambdakey-v1.0/ao_scheme_os.h b/src/lambdakey-v1.0/ao_scheme_os.h index a620684f..0d48af3b 100644 --- a/src/lambdakey-v1.0/ao_scheme_os.h +++ b/src/lambdakey-v1.0/ao_scheme_os.h @@ -20,9 +20,13 @@ #include "ao.h" -#define AO_SCHEME_SAVE 1 +#undef AO_SCHEME_FEATURE_FLOAT +#undef AO_SCHEME_FEATURE_VECTOR +#undef AO_SCHEME_FEATURE_QUASI +#undef AO_SCHEME_FEATURE_BIGINT -#define AO_SCHEME_POOL_TOTAL 2048 +#define AO_SCHEME_POOL 4096 +#define AO_SCHEME_TOKEN_MAX 64 #ifndef __BYTE_ORDER #define __LITTLE_ENDIAN 1234 -- cgit v1.2.3 From 0614c653a8ca8c4ccbf59d34296ca4b3e7d9f3a0 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Tue, 12 Dec 2017 18:02:17 -0800 Subject: altos/lambdakey-v1.0: Make stack larger scheme doesn't like to run with less than a 1kB stack. Signed-off-by: Keith Packard --- src/lambdakey-v1.0/ao_scheme_os.h | 7 +------ src/lambdakey-v1.0/lambda.ld | 4 ++-- 2 files changed, 3 insertions(+), 8 deletions(-) (limited to 'src/lambdakey-v1.0/ao_scheme_os.h') diff --git a/src/lambdakey-v1.0/ao_scheme_os.h b/src/lambdakey-v1.0/ao_scheme_os.h index 0d48af3b..b3080f31 100644 --- a/src/lambdakey-v1.0/ao_scheme_os.h +++ b/src/lambdakey-v1.0/ao_scheme_os.h @@ -20,12 +20,7 @@ #include "ao.h" -#undef AO_SCHEME_FEATURE_FLOAT -#undef AO_SCHEME_FEATURE_VECTOR -#undef AO_SCHEME_FEATURE_QUASI -#undef AO_SCHEME_FEATURE_BIGINT - -#define AO_SCHEME_POOL 4096 +#define AO_SCHEME_POOL 3584 #define AO_SCHEME_TOKEN_MAX 64 #ifndef __BYTE_ORDER diff --git a/src/lambdakey-v1.0/lambda.ld b/src/lambdakey-v1.0/lambda.ld index 15b2d971..b09fdb4a 100644 --- a/src/lambdakey-v1.0/lambda.ld +++ b/src/lambdakey-v1.0/lambda.ld @@ -18,8 +18,8 @@ MEMORY { rom (rx) : ORIGIN = 0x08001000, LENGTH = 28K - ram (!w) : ORIGIN = 0x20000000, LENGTH = 6k - 480 - stack (!w) : ORIGIN = 0x20000000 + 6k - 480, LENGTH = 480 + ram (!w) : ORIGIN = 0x20000000, LENGTH = 6k - 1k + stack (!w) : ORIGIN = 0x20000000 + 6k - 1k, LENGTH = 1k } INCLUDE registers.ld -- cgit v1.2.3