toolchain: banner purge + WHY-only comment sweep (rule 8)

selfhost/, cmd/, internal/ join the tree-wide sweep: every section
banner dies (91 selfhost + the cmd C-style dividers -> 0); narration
and stale contracts deleted (pre-#22 bundler notes, retired
single-PT_LOAD and no-archive claims, superseded ABI tables); every
ref/harec/qbe cite, task cite, encoding/ELF contract, and rule-10
twin pointer kept; lost lifetime/rationale lines restored where the
sweep over-cut (elf_globals ownership, kwtab linear-scan). Comment-
only proven: all five wwstage tool binaries byte-identical across
the sweep; test-commit, test-byteid (161+1399, 0 pinned-divergent),
and test-bootstrap (fixed point + 991-995 byte-id) all exit 0.
The read-through banked 66 latent-bug leads (checkpoint).

cmd/w6l/obj.c

@@ -1,9 +1,3 @@
-/*
- * obj.c — load an ELF64 relocatable object emitted by w6a, append its
- * .text bytes to the combined image, and pull its symbols and
- * relocations into the global tables (with offsets adjusted to the
- * combined section).
- */
 #include "l.h"
 #include <stdlib.h>
 #include <string.h>
@@ -97,11 +91,8 @@ emit_data(Lnk *l, const u8 *src, u64 n)
 	l->datalen += n;
 }
 
-/* Internal: load a single ELF .o image already in memory. The caller
- * gives us the bytes (we own them) and a path tag for diagnostics.
- * If the bytes look like an archive (magic "!<arch>\n") we recurse
- * over each member instead.
- */
+/* The caller gives us the bytes (we own them) and a path tag for
+ * diagnostics. */
 static int load_image(Lnk *l, const char *path, u8 *buf, u64 len);
 
 static u64
@@ -119,9 +110,8 @@ ar_field(const u8 *p, int n)
 
 /* Read an ELF .o image's globally-defined symbol names without
  * actually appending it to the link. Returns a heap-allocated
- * NULL-terminated array; caller frees the array (not the strings,
- * which point into the .o image and must remain alive).
- */
+ * NULL-terminated array; caller frees the array, not the strings,
+ * which point into the .o image and need it kept alive. */
 static char **
 elf_globals(const u8 *buf, u64 len)
 {
@@ -299,8 +289,6 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
 	if (eh->e_shstrndx >= eh->e_shnum) { free(buf); return -1; }
 	const char *shstr = (const char *)(buf + sh[eh->e_shstrndx].sh_offset);
 
-	/* find .text, .data (optional), .symtab, .strtab, .rela.text,
-	 * .rela.data (optional) */
 	int idx_text = -1, idx_data = -1, idx_symtab = -1, idx_strtab = -1;
 	int idx_rela = -1, idx_relad = -1;
 	for (u16 i = 0; i < eh->e_shnum; i++) {
@@ -334,12 +322,10 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
 	ob->next = l->objs;
 	l->objs = ob;
 
-	/* append .text and (if present) .data */
 	emit_text(l, buf + sh[idx_text].sh_offset, sh[idx_text].sh_size);
 	if (idx_data >= 0 && sh[idx_data].sh_size > 0)
 		emit_data(l, buf + sh[idx_data].sh_offset, sh[idx_data].sh_size);
 
-	/* per-object: load symbols */
 	Sym64 *symtab = (Sym64 *)(buf + sh[idx_symtab].sh_offset);
 	u64 nsyms = sh[idx_symtab].sh_size / sizeof(Sym64);
 	const char *str = (const char *)(buf + sh[idx_strtab].sh_offset);
@@ -373,7 +359,6 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
 		map[i] = gs;
 	}
 
-	/* per-object: collect relocations */
 	if (idx_rela >= 0) {
 		Rela64 *rt = (Rela64 *)(buf + sh[idx_rela].sh_offset);
 		u64 nrel = sh[idx_rela].sh_size / sizeof(Rela64);
@@ -389,8 +374,7 @@ load_image(Lnk *l, const char *path, u8 *buf, u64 len)
 			l->rels = r;
 		}
 	}
-	/* per-object: collect data relocations from .rela.data. The
-	 * .data section in the .o starts at a per-object 0; we shift
+	/* The .data section in the .o starts at a per-object 0; we shift
 	 * by ob->data_off so r->off indexes the combined .data buffer. */
 	if (idx_relad >= 0) {
 		Rela64 *rt = (Rela64 *)(buf + sh[idx_relad].sh_offset);