| # lpt0 = # avol, # lpt2 = # avol, isbuf ↔ false, lpt2[n] = mklp(m3, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt2, log0), log = log0, lpt = lpt0, lpt1 = lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0] [n, mklp (lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].ref-size, 0, lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].flags, lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].gcheapidx) ], m0 = n, m0 < # avol, n < # avol, n < # lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0], n < # lpt2[n, lpt2[n].flags:= LP_FREE], n < # lpt2, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(false, bleb, lpt2, avol), bufs-log-only(bleb, log0, lpt2), freelist-cons(lpt2, freelist), log-group-block(log0, lpt2), lpt-free-unref(lpt0), lpt-free-unref(lpt2), lpt-leb-size(lpt0), lpt-leb-size(lpt2), lpt-ram-flash(lpt2, lpt0, log0), synced(avol) ⊦ ⟪freelist := freelist + n '; gc_heap_remove#(lpt1[n].gcheapidx; gch, lpt1); err := ESUCCESS⟫ ( lpt-free-unref(lpt1) ∧ freelist-cons(lpt1, freelist) ∧ bin-heap-inv(gch, lpt1) ∧ keyset(gch) = gc-heap(lpt1, log0) ∧ bufs-log-only(bleb, log0, lpt1) ∧ # lpt1 = # avol[m0, unmapped] ∧ log-group-block(log0, lpt1) ∧ buf-ro-rw-mode(false, bleb, lpt1, avol[m0, unmapped]) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt1, lpt0, log0) ∧ awbuf-inv(avol[m0, unmapped], bleb) ∧ # lpt0 = # avol[m0, unmapped]), buffered(m0) = bleb, dups(log0), n ∈ log0 |
# lpt2 = # avol, # lpt0 = # avol, isbuf ↔ false, lpt2[n] = mklp(m3, m1, LP_GROUP_NODES, m2), keyset(gch) = gc-heap(lpt2, log0), log = log0, lpt = lpt0, lpt1 = lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0] [n, mklp (lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].ref-size, 0, lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].flags, lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0][n].gcheapidx) ], m0 = n, n < # lpt2, n < # lpt2[n, lpt2[n].flags:= LP_FREE], n < # lpt2[n, lpt2[n].flags:= LP_FREE][n, lpt2[n, lpt2[n].flags:= LP_FREE][n].ref-size:= 0], n < # avol, m0 < # avol, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(false, bleb, lpt2, avol), bufs-log-only(bleb, log0, lpt2), freelist-cons(lpt2, freelist), log-group-block(log0, lpt2), lpt-free-unref(lpt2), lpt-free-unref(lpt0), lpt-leb-size(lpt2), lpt-leb-size(lpt0), lpt-ram-flash(lpt2, lpt0, log0), synced(avol) ⊦ ⟪gc_heap_remove#(lpt1[n].gcheapidx; gch, lpt1); err := ESUCCESS⟫ ( lpt-free-unref(lpt1) ∧ freelist-cons(lpt1, freelist + n ') ∧ bin-heap-inv(gch, lpt1) ∧ keyset(gch) = gc-heap(lpt1, log0) ∧ bufs-log-only(bleb, log0, lpt1) ∧ # lpt1 = # avol[m0, unmapped] ∧ log-group-block(log0, lpt1) ∧ buf-ro-rw-mode(false, bleb, lpt1, avol[m0, unmapped]) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt1, lpt0, log0) ∧ awbuf-inv(avol[m0, unmapped], bleb) ∧ # lpt0 = # avol[m0, unmapped]), buffered(m0) = bleb, dups(log0), n ∈ log0