From f795548ef78ca38a04586c99fab4583ace12e797 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Sun, 13 Sep 2026 09:27:26 +0700 Subject: [PATCH] The step number in dev-ptr's header is a counter, not a promise MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit It is the registry's own event clock and moves if anything allocates ahead of this program's two Vecs. Written as N, with a line saying a test should match around it rather than on it — a header that reads as a spec and quietly goes wrong is worse than no header. The fallback socket takes the name every other dev program in this directory uses. --- test/programs/dev-ptr.flan | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/test/programs/dev-ptr.flan b/test/programs/dev-ptr.flan index c88e768..b316a46 100644 --- a/test/programs/dev-ptr.flan +++ b/test/programs/dev-ptr.flan @@ -3,7 +3,11 @@ ;;;; them apart, and this is the program that shows it: ;;;; ;;;; ("live" "(Ptr Enemy)" "") -;;;; ("dead" "(Ptr Enemy)" "") +;;;; ("dead" "(Ptr Enemy)" "") +;;;; +;;;; N is the registry's own event counter and is no part of the claim: it +;;;; moves if anything allocates or frees ahead of this program's two Vecs. +;;;; A test that asserts these lines should match around it, not on it. ;;;; ;;;; Both lines are what `(:op "locals" :frame 1)` answers with today, and ;;;; both were read off a running session by hand. **No test drives this @@ -38,7 +42,7 @@ (defvar ticks i64) (defn main [] i32 - (agent/start "/tmp/flan-ptr-fallback.sock") + (agent/start "/tmp/flan-dev-ptr-fallback.sock") (print (outer)) (println "") (dotimes [i 4000] (agent/wait 5)