diff options
Diffstat (limited to 'sys/boot/common/interp_forth.c')
-rw-r--r-- | sys/boot/common/interp_forth.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/sys/boot/common/interp_forth.c b/sys/boot/common/interp_forth.c index b53da43..ef4265e 100644 --- a/sys/boot/common/interp_forth.c +++ b/sys/boot/common/interp_forth.c @@ -51,6 +51,13 @@ extern char bootprog_rev[]; #define BF_PARSE 100 /* + * FreeBSD loader default dictionary cells + */ +#ifndef BF_DICTSIZE +#define BF_DICTSIZE 10000 +#endif + +/* * BootForth Interface to Ficl Forth interpreter. */ @@ -240,7 +247,7 @@ bf_init(void) char create_buf[41]; /* 31 characters-long builtins */ int fd; - bf_sys = ficlInitSystem(10000); /* Default dictionary ~4000 cells */ + bf_sys = ficlInitSystem(BF_DICTSIZE); bf_vm = ficlNewVM(bf_sys); /* Put all private definitions in a "builtins" vocabulary */ |