Fix ABORT to actually unwind to QUIT instead of one level
ABORT is documented and tested in this codebase as standard FORTH-79 behavior -- system_words_test.c:63: "Should clear stacks and return to QUIT" -- meaning it should unwind all the way back to the outermost interpreter loop, abandoning whatever's left of the current line/block. The implementation only unwound one level: every place that checked vm->abort_requested cleared it the instant it saw it, so it never survived to propagate past the first nested frame. This surfaced via Artemis's ART-HALT-UNRECOG (capsules/artemis/init.4th): on an unrecognized disk it correctly printed "ARTEMIS HALT: unrecognized disk content" and called ABORT, but WELCOME (the next line in the same block) ran anyway, and Artemis announced ready to Hermes and joined the fleet normally -- contradicting .claude/ARTEMIS.md's "Refuse to mount... do not overwrite it" requirement. Root cause is general, not Artemis-specific, and present identically in both the hosted and kernel VM cores. Fixed at every level execution can nest through, verified by exhaustively grepping every !vm->error-gated continuation loop and adding the parallel !vm->abort_requested check: - execute_colon_word (src/vm.c, src/starkernel/vm/vm_core.c): stop clearing the flag on return -- every colon-word call is a recursive call to this same function, so leaving it set lets every enclosing frame's own check also unwind. - vm_interpret (src/vm.c, src/starkernel/vm/vm_core.c): stop parsing further words in the current input string once the flag is set. - exec_block_with_retry (src/starkernel/capsule/capsule_loader.c): capsule birth's line-by-line block executor -- stop processing further lines in the current block, but return 0 (not -1), so capsule_exec_payload still loads later blocks in the same capsule payload. Returning -1 here would have silently broken word definitions in blocks that come after the aborting one for reasons unrelated to why it aborted (concretely, Artemis's ART-PING/LOAD-DOE in blocks 4851/4852, which follow the entry block 4133). - THRU and --> (src/word_source/block_words.c): stop processing further blocks/lines in their own loops. - DODOES (src/word_source/defining_words.c): the CREATE...DOES> runtime has its own hand-rolled execution loop, separate from execute_colon_word -- same bug class, same fix. Also guarded the post-loop "if (vm->rsp < base_rsp) vm->rsp = base_rsp" clamp so it doesn't fire on an abort exit -- ABORT's own reset_vm_state() already set rsp; restoring it to base_rsp would have partially undone that. - Both REPL loops (src/repl.c, src/starkernel/repl.c x2 call sites): clear the flag after each line, mirroring the existing vm->error pattern, so a mid-line abort doesn't silently freeze subsequent interactive input. Verified directly: ": AB-TEST 1 2 3 ABORT 999 . ; AB-TEST 42 . CR 777 . CR" -- 999 never prints (stops mid-colon-word), 42 never prints (stops the rest of the same line), 777 prints fine (next line unaffected). Artemis: WELCOME/"Artemis ready" no longer fires after the halt message. No regression: all three architectures still show PASS: persist-read, PASS: E2E msg flow, and matching dict_hash on the normal (non-aborted) boot path; hosted test suite 965 passed / 0 failed. Known follow-up, not fixed here (see memory for details): Artemis still announces ready to Hermes via a separate call path (CD-INIT, block 4141) that never went through capsule_exec_payload's block chain in the first place, and the disk file still picks up incidental writes even on a correctly-halted boot -- likely generic block-subsystem housekeeping, not traced yet. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
co-authored by
Claude Sonnet 5
parent
3d9664d176
commit
cc6c8c43f3
@@ -626,8 +626,13 @@ void execute_colon_word(VM* vm)
|
||||
|
||||
if (vm->error) { vm->ecw_nesting--; return; }
|
||||
|
||||
/* ABORT clears stacks and returns immediately */
|
||||
if (vm->abort_requested) { vm->abort_requested = 0; vm->ecw_nesting--; return; }
|
||||
/* ABORT clears stacks and unwinds to QUIT: leave the flag set so
|
||||
* every enclosing colon-word frame (this function is recursive --
|
||||
* every colon word's func is execute_colon_word) also sees it and
|
||||
* also unwinds, instead of consuming it at the first frame that
|
||||
* notices. The outermost caller (vm_interpret et al.) is
|
||||
* responsible for finally clearing it. */
|
||||
if (vm->abort_requested) { vm->ecw_nesting--; return; }
|
||||
|
||||
/* EXIT discards saved IP and returns */
|
||||
if (vm->exit_colon)
|
||||
@@ -782,7 +787,11 @@ void vm_interpret(VM* vm, const char* input)
|
||||
|
||||
char word[64];
|
||||
size_t wlen;
|
||||
while (!vm->error && (wlen = (size_t)vm_parse_word(vm, word, sizeof(word))) > 0)
|
||||
/* !abort_requested: ABORT unwinds all the way to QUIT -- stop parsing
|
||||
* further words in this input the moment it's seen. Flag is left set
|
||||
* on return; caller (REPL, exec_block_with_retry, etc.) consumes it. */
|
||||
while (!vm->error && !vm->abort_requested &&
|
||||
(wlen = (size_t)vm_parse_word(vm, word, sizeof(word))) > 0)
|
||||
{
|
||||
vm_interpret_word(vm, word, wlen);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user