| # lpt = # avol0, # lpt0 = # avol0, # lpt0 = # avol, isbuf1 ↔ false, lpt[n0] = mklp(0, m1, LP_FREE, m2), avol = avol0[n0, mapped(mkbuf(0))], err = ESUCCESS, err = err0, freelist = freelist0.tail, freelist0 = n0 ' + nx0, keyset(gch) = gc-heap(lpt, log0), lpt1 = lpt[n, mklp(lpt[n].ref-size, 0, lpt[n].flags, lpt[n].gcheapidx)] [n, lpt[n, mklp(lpt[n].ref-size, 0, lpt[n].flags, lpt[n].gcheapidx)][n].ref-size:= 0 ], n = n0, n < # lpt, n < # lpt[n, mklp(lpt[n].ref-size, 0, lpt[n].flags, lpt[n].gcheapidx)], n0 < # avol0, awbuf-inv(avol0, bleb), awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt), buf-ro-rw-mode(false, bleb, lpt, avol0), bufs-log-only(bleb, log0, lpt), freelist-cons(lpt, n0 ' + nx0), log-group-block(log0, lpt), lpt-free-unref(lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt0), lpt-leb-size(lpt), lpt-ram-flash(lpt, lpt0, log0), synced(avol0), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪if err = ESUCCESS then {awbuf_move_buf#(n, 0, adr, m, log0, avol, lpt0, ns, isbuf1; bleb; err); if err ≠ ESUCCESS then freelist := n ' + freelist else lpt1[n].flags := LP_INDEX_NODES}⟫ ( 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 ∧ log-group-block(log0, lpt1) ∧ buf-ro-rw-mode(isbuf1, bleb, lpt1, avol) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt1, lpt0, log0) ∧ awbuf-inv(avol, bleb)), buffered(n0) = bleb, freelist0 = [] |
# lpt0 = # avol, # lpt0 = # avol0, # lpt = # avol0, isbuf1 ↔ false, lpt[n0] = mklp(0, m1, LP_FREE, m2), avol = avol0[n0, mapped(mkbuf(0))], err = err0, err = ESUCCESS, freelist = freelist0.tail, freelist0 = n0 ' + nx0, keyset(gch) = gc-heap(lpt, log0), lpt1 = lpt[n, mklp(lpt[n].ref-size, 0, lpt[n].flags, lpt[n].gcheapidx)] [n, lpt[n, mklp(lpt[n].ref-size, 0, lpt[n].flags, lpt[n].gcheapidx)][n].ref-size:= 0 ], n = n0, n0 < # avol0, n < # lpt[n, mklp(lpt[n].ref-size, 0, lpt[n].flags, lpt[n].gcheapidx)], n < # lpt, awbuf-inv(avol, bleb), awbuf-inv(avol0, bleb), bin-heap-inv(gch, lpt), buf-ro-rw-mode(false, bleb, lpt, avol0), bufs-log-only(bleb, log0, lpt), freelist-cons(lpt, n0 ' + nx0), log-group-block(log0, lpt), lpt-free-unref(lpt), lpt-free-unref(lpt0), lpt-leb-size(lpt), lpt-leb-size(lpt0), lpt-ram-flash(lpt, lpt0, log0), synced(avol0), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪awbuf_move_buf#(n, 0, adr, m, log0, avol, lpt0, ns, isbuf1; bleb; err); if err ≠ ESUCCESS then freelist := n ' + freelist else lpt1[n].flags := LP_INDEX_NODES⟫ ( 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 ∧ log-group-block(log0, lpt1) ∧ buf-ro-rw-mode(isbuf1, bleb, lpt1, avol) ∧ lpt-leb-size(lpt1) ∧ lpt-ram-flash(lpt1, lpt0, log0) ∧ awbuf-inv(avol, bleb)), buffered(n0) = bleb, freelist0 = []