Joseph Ferano
2e203f64b8
The INSERTIONSORT crash, all three rulings (FIX.org 2026-09-20): - (bytes s) allocates a writable copy through the allocator surface — context or (bytes s a), StorageExhausted with retry, a registry note in dev builds (flan_bytes_dup, lowered like vec-new). (bytes-view s) is the old zero-cost reinterpret, renamed, read-only by convention; every in-repo reader swept over to it. (string b) unchanged. - String constants were already read-only on both backends at -O0; now pinned — bytes-copy.flan rows on LLVM/-O0/--x86, and dies_segv rows asserting the write-through-view trap on both backends. - A dev build installs a SIGSEGV/SIGBUS handler by the same dev-only constructor slot that arms the registry: one line naming the address and the innermost frame, then the trap-hook park — stopped, not dead, the daemon serving. No agent: message and re-raise. Release builds untouched. Pinned by trap_park over dev-segv.flan.
18 lines
505 B
Plaintext
18 lines
505 B
Plaintext
(defstruct Cursor
|
|
[src [u8] ; a non-owning slice
|
|
pos i32]) ; no initialiser means zeroed
|
|
|
|
(defn peek [c (Ptr Cursor)] u8
|
|
(if (< (.pos c) (len (.src c)))
|
|
(at (.src c) (.pos c))
|
|
0))
|
|
|
|
(defn advance [c (Ptr Cursor)] ()
|
|
(set (.pos c) (+ (.pos c) 1))) ; field access derefs one level
|
|
|
|
(defn main [] ()
|
|
(let [c (Cursor {.src (bytes-view "hi")})] ; pos omitted, so pos is 0
|
|
(print (peek (addr c))) (println "")
|
|
(advance (addr c))
|
|
(print (peek (addr c))) (println "")))
|