rajamesandClaude Opus 5.5
5d6043e37e
capsules/v4/post79.4th: 537 of v3's POST cases for the FORTH-79 Required Word Set, each carrying what the hosted v3 binary did with the same line (error or not, the stack, the length and checksum of what it printed). Written by v4/tools/mkpost.py. The harness is FORTH-79 plus the two nucleus hooks. docs/v4.0.0/NUCLEUS.md section 6. - NODE-ERROR has a FORTH name: how a definition in FORTH raises an error - the boot passes POST only on seeing its tally line with fail=0 - POST is not in the boot yet (V4_POST_AT_BOOT=0); make -C v4 post runs it Result: tests=537 pass=439 fail=98. The 98 are not yet sorted into v4 defects and differences needing a ruling; v4/README.md has a first reading. Verified: make -C v4 test passes; hosted-check passes on three ISAs; clean qemu with STARFORTH_V4=1 on amd64, aarch64 and riscv64 reaches ok> with the same hashes as hosted (logs/20261005-1601xx..1604xx). Nothing was typed at a bare-metal prompt. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
54 lines
2.2 KiB
C
54 lines
2.2 KiB
C
/* boot.h -- how a StarForth v4 system comes up: the nucleus, then its
|
|
* capsules, then the prompt. docs/v4.0.0/NUCLEUS.md.
|
|
*
|
|
* The hosted binary (tools/hosted.c) and the bare-metal kernel
|
|
* (kernel/src/v4/sk_v4.c) both call v4_boot_run and differ only in where
|
|
* the text goes. So the two start the same way and print the same lines:
|
|
*
|
|
* PARITY:V4_NUCLEUS words=N image_hash=0x...
|
|
* PARITY:V4_CAPSULE name=v4:forth79.4th capsule_id=0x... capsule_hash=0x... dict_hash=0x...
|
|
* PARITY:V4_POST tests=N pass=N fail=N (printed by the POST capsule)
|
|
* PARITY:V4_CAPSULE name=v4:post79.4th capsule_id=0x... capsule_hash=0x... dict_hash=0x...
|
|
* PARITY:OK
|
|
* POST: PASSED
|
|
* ok>
|
|
*
|
|
* or, if anything is wrong, what was wrong and then
|
|
*
|
|
* PARITY:FAIL
|
|
* POST: FAILED
|
|
*
|
|
* A capsule is found by name in the directory tools/mkcapsule.c baked into
|
|
* the binary, its hash is recomputed, its signature is checked -- one that
|
|
* does not verify refuses the capsule, a missing one is only reported, as
|
|
* for v3's capsules -- and its blocks are given to the node a line at a
|
|
* time as if typed. The node must answer " ok" to every line; the first
|
|
* line it does not accept ends the boot. What a line prints is shown.
|
|
*
|
|
* The dictionary hash is FNV-1a over the node's memory below HERE, a cell at
|
|
* a time, low byte first, then LATEST. It does not depend on the machine:
|
|
* every build of one commit, with one cell width, prints the same hashes.
|
|
*/
|
|
#ifndef V4_BOOT_H
|
|
#define V4_BOOT_H
|
|
|
|
#include "v4/image.h"
|
|
|
|
typedef struct {
|
|
v4_node *n;
|
|
v4_exec_state *es;
|
|
v4_heat *h;
|
|
const v4_image *im; /* the nucleus */
|
|
void (*out)(const char *text, unsigned len); /* the console */
|
|
} v4_boot;
|
|
|
|
/* Start the node from the nucleus image, with `disk` as its block storage
|
|
* (see v4_image_boot), and load the capsules. Returns 1 with the node
|
|
* waiting at its prompt, the prompt printed; or 0, the failure printed. */
|
|
int v4_boot_run(const v4_boot *b, unsigned char *disk, unsigned blocks);
|
|
|
|
/* The dictionary hash of a node started from `im`. */
|
|
uint64_t v4_boot_dict_hash(const v4_node *n, const v4_image *im);
|
|
|
|
#endif /* V4_BOOT_H */
|