ludic.base: tb_reserve and imap_reserve size a table up front; HandlePool (a slot and a generation, nothing made after hd_pool_new, past its capacity a panic naming it); kept_push is the one declared grow, and every growth path left says its bound in @alloc_ok
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
parent
f2dd27f443
commit
2d1d06899e
17 changed files with 199 additions and 26 deletions
|
|
@ -4,6 +4,7 @@
|
|||
const IX_DENSE: int = 1024 # a value below this is its own slot; above, one is given it
|
||||
const IX_CAP: int = 16 # rows a value's list holds before it grows: a list grown in play is a new block
|
||||
|
||||
@alloc_ok("once per distinct value: its list is made the first time the value is filed, and kept")
|
||||
function ix_list_new() -> words {
|
||||
let l = words(IX_CAP)
|
||||
List.clear(l)
|
||||
|
|
@ -16,15 +17,15 @@ function ix_slot(ix: IntIndex, v: int, make: bool) -> int {
|
|||
if v < IX_DENSE {
|
||||
if v >= len(ix.lists) {
|
||||
if not make { return -1 }
|
||||
while len(ix.lists) <= v { push(ix.lists, ix_list_new()) }
|
||||
while len(ix.lists) <= v { kept_push(ix.lists, ix_list_new()) }
|
||||
}
|
||||
return v
|
||||
}
|
||||
var s = imap_get(ix.sparse, v, -1)
|
||||
if s < 0 and make {
|
||||
while len(ix.lists) < IX_DENSE { push(ix.lists, ix_list_new()) }
|
||||
while len(ix.lists) < IX_DENSE { kept_push(ix.lists, ix_list_new()) }
|
||||
s = len(ix.lists)
|
||||
push(ix.lists, ix_list_new())
|
||||
kept_push(ix.lists, ix_list_new())
|
||||
imap_put(ix.sparse, v, s)
|
||||
}
|
||||
return s
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue