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

capacities (25.5a): @max(n) on a list field, and a full table is a failure

Browse source 
'@max(64) boxes: []Box' on a property's or a state's field is a promise: the grow path of a push to
that field (only the grow path, so nothing is paid until it doubles) checks it, and growing past n is
reported by the fence - 'PoolState.boxes grew past its @max(16) (it holds 16)' - counted under
count, said under warn, and under fail (a headless or dev build's default) the run ends with exit 87.
Mem.over("what") is the same for a package's own table: ludic.base's StrTable past its most
(sb_intern) and ludic.ui's memo past three quarters of MM_CAP no longer quietly copy per call. The
census counts overflows.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Orkun ÇAKILKAYA 2026-09-28 16:43:02 +03:00
parent 69d1db06a5
commit 6fb5118afd
8 changed files with 73094 additions and 71750 deletions
Download patch file Download diff file Expand all files Collapse all files

29
selfhost/backend/emit_fence.ludic
View file

@ -26,6 +26,10 @@ var g_fence_mode: int = 0 # 0: headless fails, windowed fai
var g_fence_warm: int = 600
var g_fence_census: pointer = null
var g_fence_flagged: bool = false # a flag said so: the manifest does not override it
var g_cap_keys: []pointer = new []pointer # 25.5a: `Type.field` declared @max(n) ...
var g_cap_vals: []int = new []int # ... and its n
var g_push_cap: int = 0 # the list being pushed to is capped (emit_push -> emit_push_into)
var g_push_capname: pointer = null
var g_arena: bool = false # 25.3: --arena / `arena on` - LOCAL sites allocate from the frame's scratch
var g_mmap_declared: bool = false # @mmap: by the fence's arena or by the asset pack
var g_es_node: Node = null # the expression being emitted, when it is a LOCAL site
@ -160,13 +164,18 @@ function fence_manifest_read(txt: pointer) -> void {
# Mem.play() / Mem.rewarm() / Mem.settled() / Mem.frame() / Mem.kept() / Mem.bad_frames()
function is_mem_fence_ns(meth: pointer) -> bool {
return (meth == "play") or (meth == "rewarm") or (meth == "settled") or (meth == "frame") or (meth == "kept") or (meth == "bad_frames")
return (meth == "play") or (meth == "rewarm") or (meth == "settled") or (meth == "over") or (meth == "frame") or (meth == "kept") or (meth == "bad_frames")
}
function emit_mem_fence_ns(meth: pointer, e: Node) -> Val {
if (meth == "kept") { return val(emit_bind("call i64 @lp_mem_kept()"), "long") }
if (meth == "bad_frames") { return val(emit_bind("call i64 @lp_mem_bad_frames()"), "long") }
if (meth == "rewarm") { emit(" call void @lp_mem_play()\n"); return val("0", "void") }
if (meth == "over") { # 25.5a: Mem.over("what") - a package's table is full
let nm = emit_expr(e.kids[0])
emit(` call void @lp_cap_over(ptr {nm.code}, i32 0, i32 0)\n`)
return val("0", "void")
}
emit(` call void @lp_mem_{meth}()\n`)
return val("0", "void")
}
@ -223,3 +232,21 @@ function emit_fence_runtime() -> void {
emith(`@lp_site_base = global [{sn} x i64] zeroinitializer\n`)
emith(`@lp_site_ra = global [{itoa(n * 6)} x ptr] zeroinitializer\n`)
}
# @max(n) on the list a push grows: its cap and its name, or 0
function fence_cap_of(target: Node) -> int {
g_push_capname = null
if target == null or target.kind != E_MEMBER or target.a == null or len(g_cap_keys) == 0 { return 0 }
let t = static_type(target.a)
if t == null { return 0 }
let key = `{t}.{target.s}`
var i = 0
while i < len(g_cap_keys) {
if (g_cap_keys[i] == key) {
g_push_capname = key
return g_cap_vals[i]
}
i += 1
}
return 0
}