diff options
| author | jkh <jkh@FreeBSD.org> | 1998-11-05 08:39:43 +0000 |
|---|---|---|
| committer | jkh <jkh@FreeBSD.org> | 1998-11-05 08:39:43 +0000 |
| commit | 33ecda9af6cd79db0f8bc85975b466659a140a5d (patch) | |
| tree | dcf09926361f18a2af7284bb0bd911c4b7a1e1a3 /sys/boot/common | |
| parent | 6a9b63e38581729c20e76a9680f81a0b31961f50 (diff) | |
| download | FreeBSD-src-33ecda9af6cd79db0f8bc85975b466659a140a5d.zip FreeBSD-src-33ecda9af6cd79db0f8bc85975b466659a140a5d.tar.gz | |
Remember a bit more of my forth and do:
o Add fexists word to check for the presence of a file
o make fexists and fload immediate words which DTRT both interpreted
and compiled (doh!)
o add an init word which gets run at bootstrapping time to do extra
post-coldload initialization (in the default implementation, we
look for /boot/boot.4th and load it if found).
Diffstat (limited to 'sys/boot/common')
| -rw-r--r-- | sys/boot/common/interp_forth.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/sys/boot/common/interp_forth.c b/sys/boot/common/interp_forth.c index cdc71ea..36d4838 100644 --- a/sys/boot/common/interp_forth.c +++ b/sys/boot/common/interp_forth.c @@ -23,7 +23,7 @@ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * - * $Id: interp_forth.c,v 1.1 1998/11/04 00:29:01 msmith Exp $ + * $Id: interp_forth.c,v 1.2 1998/11/04 03:41:09 msmith Exp $ */ #include <stand.h> @@ -90,13 +90,14 @@ bf_init(void) { struct bootblk_command **cmdp; - ficlInitSystem(3000); /* Default dictionary ~2000 cells */ + ficlInitSystem(4000); /* Default dictionary ~4000 cells */ bf_vm = ficlNewVM(); /* make all commands appear as Forth words */ SET_FOREACH(cmdp, Xcommand_set) ficlBuild((*cmdp)->c_name, bf_command, FW_DEFAULT); - + /* run the init word from softcore */ + ficlExec(bf_vm, "init"); } /* |
