workshopsoft/ludic
2
0
Fork 0
Code Issues Pull requests Projects Releases 26 Packages Wiki Activity Actions

frame allocs (25.2): what a frame can come to allocate, counted and ratcheted

Browse source 
deps_reach's graph gains the handlers and each @On body (an emit reaches its event's listeners).
Roots: a handler in a frame phase, every reducer, an @On body, and a function stored as a System's
tick. Every allocating construct in what they reach - new, a list literal, push (grow), text built
by + or a template, words/floats/buffer/bytes - is a falloc line with the shortest chain from a
root (root>..>last six), and the program's count is frame_allocs. @alloc_ok("why") on a function or
a handler takes it and what only it reaches out; the reason is required. ludic deps --allocs lists
them, and frame_allocs is a number --check ratchets. Maroon Lake starts at 2661.

Not yet: @frame on a step list's field (only 'tick' is a root field so far), statement-level
@alloc_ok, the three lints.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-28 15:50:09 +03:00
parent 691964877b
commit 76b1bd20ae
7 changed files with 82112 additions and 76450 deletions
Download patch file Download diff file Expand all files Collapse all files

24
selfhost/backend/emit_deps.ludic
View file

@ -304,6 +304,16 @@ function dr_walk(n: Node, refs: []int) -> void {
return
}
if dr_reg_field(n, refs) { return }
if n.kind == S_EMIT and n.s != null { # 25.2: an emit reaches its event's listeners
var li = 0
while li < len(g_onlisten) {
if (g_onlisten[li].s == n.s) {
let lk = dr_index(`@On {n.s}#{itoa(li)}`)
if lk >= 0 { push(refs, lk) }
}
li += 1
}
}
if (n.kind == E_ID or n.kind == E_FNREF) and n.s != null {
let k = dr_index(n.s)
if k >= 0 { push(refs, k) }
@ -430,7 +440,7 @@ function deps_reach(f: pointer) -> void {
var i = 0
while i < len(prog) {
let d = prog[i]
if d.s != null and (d.kind == N_FN or d.kind == N_VAR or d.kind == N_CONST) and ck_tab_get(g_dr_find_k, g_dr_find_v, d.s) == null {
if d.s != null and (d.kind == N_FN or d.kind == N_VAR or d.kind == N_CONST or d.kind == N_SYS) and ck_tab_get(g_dr_find_k, g_dr_find_v, d.s) == null {
let h = new Node
h.ival = len(g_dr_node)
ck_tab_put(g_dr_find_k, g_dr_find_v, d.s, h)
@ -439,6 +449,17 @@ function deps_reach(f: pointer) -> void {
}
i += 1
}
# 25.2: each @On body is a node, reached from every `emit` of its event (dr_walk)
var li = 0
while li < len(g_onlisten) {
let nm = `@On {g_onlisten[li].s}#{itoa(li)}`
let h = new Node
h.ival = len(g_dr_node)
ck_tab_put(g_dr_find_k, g_dr_find_v, nm, h)
push(g_dr_name, nm)
push(g_dr_node, g_onlisten[li])
li += 1
}
let nw = dr_words()
var j = 0
while j < len(g_dr_node) {
@ -493,4 +514,5 @@ function deps_reach(f: pointer) -> void {
}
j += 1
}
deps_frame(f) # 25.2: what a frame can come to allocate
}