| # lpt2 = # avol, # lpt1 = # avol, bleb0 = bleb, keyset(gch) = gc-heap(lpt2, log1), log = log0, log1 = log0, lpt = lpt1, lpt0 = lpt2, m = m1, m0 = m2, m2 = LEB_SIZE, awbuf-inv(avol, bleb), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(isbuf, bleb, lpt2, avol), bufs-log-only(bleb, log1, lpt2), freelist-cons(lpt2, freelist), log-group-block(log1, lpt2), lpt-free-unref(lpt2), lpt-free-unref(lpt1), lpt-leb-size(lpt2), lpt-leb-size(lpt1), lpt-ram-flash(lpt2, lpt1, log1) ⊦ ⟪let bleb = ? in {awbuf_get_buf#(adr, m, log, avol, lpt, ns, bleb0, isbuf; ; bleb); if bleb = nobuffer then n := 0 else n := m0 - lpt0[bleb.leb].size}⟫ true |
# lpt1 = # avol, # lpt2 = # avol, bleb0 = bleb1, keyset(gch) = gc-heap(lpt2, log1), log = log0, log1 = log0, lpt = lpt1, lpt0 = lpt2, m = m1, m0 = m2, m2 = LEB_SIZE, awbuf-inv(avol, bleb1), bin-heap-inv(gch, lpt2), buf-ro-rw-mode(isbuf, bleb1, lpt2, avol), bufs-log-only(bleb1, log1, lpt2), freelist-cons(lpt2, freelist), log-group-block(log1, lpt2), lpt-free-unref(lpt1), lpt-free-unref(lpt2), lpt-leb-size(lpt1), lpt-leb-size(lpt2), lpt-ram-flash(lpt2, lpt1, log1) ⊦ ⟪awbuf_get_buf#(adr, m, log, avol, lpt, ns, bleb0, isbuf; ; bleb); if bleb = nobuffer then n := 0 else n := m0 - lpt0[bleb.leb].size⟫ true