Claude
3bd81097e1
The header scan (Captain Bob, 2026-11-10): 788 source files -- 351 with the
SL-1.0 header, 12 with the old name (docs/working/experiments, kept by
ruling), 31 under someone else's licence (tools/kconfig, Linux's, GPL-2.0:
kept), and 394 with none. Ruled: the SPDX form; capsules (.4th, .f18) and
proofs (.thy) left for a ruling of their own (mkcapsule's 64x16 block format,
content-addressed capsules).
253 files now begin
SPDX-License-Identifier: LicenseRef-Starship-1.0
Copyright (c) 2023-2026 Robert A. James
as a /* */ block (C, headers, assembly, linker scripts) or # lines (scripts,
Makefiles, Kconfig; below a shebang or a coding line); tools/mkcapsule.c,
which had the copyright line, gets the SPDX line only.
Not touched: docs/working/ (archive and old campaign material, as the
ruling kept the experiments); v4/system/post_cases.c (generated by
v4/tools/mkpost.py, "do not edit" -- the generator has the header).
Comments only: the kernel builds on amd64, aarch64, riscv64; make -C v4
test-32: 39 programs, 0 failures; every changed script parses.
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01GE3SDvQn5EoxdGufk84zz2
24 lines
967 B
C
24 lines
967 B
C
/* SPDX-License-Identifier: LicenseRef-Starship-1.0
|
|
* Copyright (c) 2023-2026 Robert A. James
|
|
*/
|
|
/* testcode.h -- run a word on a node, for tests. */
|
|
#ifndef V4_TESTCODE_H
|
|
#define V4_TESTCODE_H
|
|
|
|
#include "v4/exec.h"
|
|
|
|
/* Where a word called by v4_test_call returns to. Nothing is executed there:
|
|
* arriving is the stop condition. */
|
|
#define V4_TEST_HALT ((v4_cell)(V4_NODE_WORDS - 1u))
|
|
|
|
/* Call the word at `entry` as a caller would: push a return address, set P,
|
|
* and step instruction words until the word returns. The stacks and A, B are
|
|
* left as the caller set them, so arguments go on the data stack first.
|
|
* Returns the number of instruction words stepped, or -1 if the word had not
|
|
* returned after `max_words` or the node stopped on a fault (D-14, D-16). A
|
|
* stop left by an earlier call is cleared first. */
|
|
long v4_test_call(v4_node *n, v4_exec_state *es, v4_heat *h,
|
|
v4_cell entry, long max_words);
|
|
|
|
#endif /* V4_TESTCODE_H */
|